senun Posted June 14, 2012 Report Share Posted June 14, 2012 Boa tarde a todos, tenho um campo Get definido em um Resource. O tamanho do campo do DBF é de 65 caracteres no meu Get, por medida de espaço , cabe apenas 25 caracteres. Estou fazendo conforme abaixo, porem quando chega no final do que foi definido no Resource, continua aceitando os caracteres digitados, porem não "rola" para a esquerda. REDEFINE GET oVar:email VAR oDbf:email ID 240 OF oDlg ; PICTURE "@S65" Como faço para digitar uma informação maior do que o definido no Resource , de forma que o que foi digitado a esquerda vai se "escondendo" e mostrando o que está sendo digitado ? Obrigado a todos, Nelson Nunes de Araujo Santo André - SP MSN : nelson.n.araujo@hotmail.com EMAIL: nelson.n.araujo@gmail.com nelson.n.araujo@terra.com.br Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop Editado por - senun on 15/06/2012 09:43:21 Quote Link to comment Share on other sites More sharing options...
senun Posted June 14, 2012 Author Report Share Posted June 14, 2012 Boa tarde a todos, tenho um campo Get definido em um Resource. O tamanho do campo do DBF é de 65 caracteres no meu Get, por medida de espaço , cabe apenas 25 caracteres. Estou fazendo conforme abaixo, porem quando chega no final do que foi definido no Resource, continua aceitando os caracteres digitados, porem não "rola" para a esquerda. REDEFINE GET oVar:email VAR oDbf:email ID 240 OF oDlg ; PICTURE "@S65" Como faço para digitar uma informação maior do que o definido no Resource , de forma que o que foi digitado a esquerda vai se "escondendo" e mostrando o que está sendo digitado ? Obrigado a todos, Nelson Nunes de Araujo Santo André - SP MSN : nelson.n.araujo@hotmail.com EMAIL: nelson.n.araujo@gmail.com nelson.n.araujo@terra.com.br Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop Editado por - senun on 15/06/2012 09:43:21 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 14, 2012 Report Share Posted June 14, 2012 DLG_TIPO_OUTLOOK DIALOG 200, 63, 300, 280 STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME CAPTION "Enviar Email" FONT 8, "MS Sans Serif" { EDITTEXT 20, 60, 1, 212, 12, ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER EDITTEXT 21, 60, 14, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP EDITTEXT 22, 60, 27, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP EDITTEXT 23, 60, 40, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP EDITTEXT 24, 60, 53, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP EDITTEXT 25, 0, 79, 300, 58, ES_MULTILINE | WS_BORDER | WS_VSCROLL | WS_TABSTOP EDITTEXT 26, 0, 153, 300, 12, ES_MULTILINE | ES_WANTRETURN | NOT WS_TABSTOP | WS_BORDER | WS_HSCROLL | WS_GROUP PUSHBUTTON "&Enviar", 301, 94, 252, 60, 16 PUSHBUTTON "&Saida", 302, 160, 252, 50, 16 PUSHBUTTON "Email &Automático", 303, 199, 138, 100, 14 PUSHBUTTON "A&nexar", 304, 98, 166, 50, 14 PUSHBUTTON "E&xcluir", 305, 151, 166, 50, 14 LISTBOX 101, 0, 182, 300, 40, LBS_NOTIFY | WS_BORDER | LBS_USETABSTOPS | LBS_DISABLENOSCROLL | WS_BORDER | WS_VSCROLL | WS_TABSTOP RTEXT "De:", 401, 7, 1, 50, 12, SS_RIGHT | NOT WS_GROUP RTEXT "Para:", 402, 7, 14, 50, 12, SS_RIGHT | NOT WS_GROUP RTEXT "Cc:", 403, 7, 27, 50, 12, SS_RIGHT | NOT WS_GROUP RTEXT "Cco:", 404, 7, 40, 50, 12, SS_RIGHT | NOT WS_GROUP RTEXT "Assunto:", 405, 7, 53, 50, 12, SS_RIGHT | NOT WS_GROUP CTEXT "Mensagem do Email", 406, 100, 67, 100, 12, SS_CENTER | NOT WS_GROUP LTEXT "Anexo(s):", 407, 17, 139, 70, 12, NOT WS_GROUP LTEXT " Sair", 408, 5, 250, 50, 12, NOT WS_GROUP CONTROL "TBitMap", 120, "TBitMap", WS_CHILD | WS_VISIBLE, 273, 14, 20, 12 CONTROL "TBitMap", 121, "TBitMap", WS_CHILD | WS_VISIBLE, 273, 27, 20, 12 CONTROL "TBitMap", 122, "TBitMap", WS_CHILD | WS_VISIBLE, 273, 40, 20, 12 CONTROL "TBitMap", 125, "TBitMap", WS_CHILD | WS_VISIBLE, 230, 224, 70, 40 } id=code>id=code> João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 14, 2012 Report Share Posted June 14, 2012 Se voce tiver varios GETS com MEMO, faca assim para "pular" de um para outro. REDEFINE GET oGet[6] VAR cCCO ID 23 OF oDlgEnv MEMO ; FONT oFont1 UPDATE COLORS CLR_BLACK, CLR_WHITE oGet[6]:cToolTip := OemToAnsi( "Contato(Email) " + ; "Para Enviar com C¢pia Oculta " ) // Para que o GET com MEMO possa "pular" Para o Proximo GET. Afff!! oGet[6]:bKeyDown:={|nKey|IF(nKey==VK_RETURN, ( xFocus( oGet[7] ) ), ; IF(nKey==VK_UP, oGet[5]:SetFocus(), ) ) } id=code>id=code> João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
joaosolution Posted June 14, 2012 Report Share Posted June 14, 2012 Boa tarde Se for no PellesC a propriedade: Auto horz scroll: yes Se for Wordkshop a propriedade Automatic Scroll, marcar Horizontal Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql Quote Link to comment Share on other sites More sharing options...
senun Posted June 14, 2012 Author Report Share Posted June 14, 2012 citação:Se for Wordkshop a propriedade Automatic Scroll, marcar Horizontal EDITTEXT 23, 60, 40, 212, 12, ES_MULTILINE | WS_BORDER | WS_HSCROLL | WS_GROUP | WS_TABSTOP id=quote>id=quote>Olá, João(s) kkk obrigado pelas respostas..... testei as duas formas. quando digito o email, por ex.: WWW.nelson e terminou o campo, fica aparecendo somente WWW.nel o son que digitei não mostra. se eu teclar END, ahi sim, aparece .nelson O que preciso é que enquanto eu estiver digitando o email continue mostrando conforme vou digitando; Grato a todos Nelson Nunes de Araujo Santo André - SP MSN : nelson.n.araujo@hotmail.com EMAIL: nelson.n.araujo@gmail.com nelson.n.araujo@terra.com.br Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 14, 2012 Report Share Posted June 14, 2012 Veja: ID 23 OF oDlgEnv MEMO <---- João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
senun Posted June 15, 2012 Author Report Share Posted June 15, 2012 citação:Veja: ID 23 OF oDlgEnv MEMO <---- João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Olá, Kapiaba, obrigado pela dica.... deu o seguinte erro: PRGS\MAN_CED.PRG(466) Error E0030 Syntax error: "parse error at 'GET'" 1 error No code generated substitui apos VAR oDbf:Email por oVar:cEmail iniciando com space(65) e está dando o mesmo problema. Mais alguma dica ? Obrigado, Abraços Nelson Nunes de Araujo Santo André - SP MSN : nelson.n.araujo@hotmail.com EMAIL: nelson.n.araujo@gmail.com nelson.n.araujo@terra.com.br Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 15, 2012 Report Share Posted June 15, 2012 JESUS!! LOCAL aGet := ARRAY(10) // Por exemplo REDeFINE GET aGet[1] VAR cEmail ID 24 OF oDlg MEMO <---- AQUI João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 15/06/2012 09:23:40 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 15, 2012 Report Share Posted June 15, 2012 Ou REDEFINE GET oVar VAR cEmail OF oDlg MEMO... João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 15, 2012 Report Share Posted June 15, 2012 Aprenda a consultar o \samples Veja: \SAMPLES\TESTMEMO.PRG Você vai entender. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
senun Posted June 15, 2012 Author Report Share Posted June 15, 2012 citação:Ou REDEFINE GET oVar VAR cEmail OF oDlg MEMO... João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Olá, Kapiaba, obrigado pelas dicas.. resolvi da seguinte forma: retirei a clausula PICTURE e funcionou. REDEFINE GET oVar:email VAR oDbf:email MEMO ID 240 OF oDlg // PICTURE "@XS65" Obrigado a todos pela atenção, Abraços Nelson Nunes de Araujo Santo André - SP MSN : nelson.n.araujo@hotmail.com EMAIL: nelson.n.araujo@gmail.com nelson.n.araujo@terra.com.br Clipper 5.3E, Blinker 7.0, FW 2.4, Workshop Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 15, 2012 Report Share Posted June 15, 2012 PARABÉNS!!!id=size5> abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.