topic-17356

Board index FiveWin para Harbour/xHarbour Posição tGet x Cursor

Posts: 82

Joined: Fri Mar 13, 2009 06:51 PM

Posição tGet x Cursor
Posted: Fri Nov 13, 2009 04:59 PM

Ola.
tenho um problema de posicionamento na tGet

cVar:="Teste"

Redefine Get oGet[1] Var cVar ID <ID> of odlg

Após dar um loop nos controles o cursor do Get fica posicionado após a ultima letra do get, eu gostaria que caisse antes da primeira letra

Teste| o cursor cai aqui
|Teste quero ele aqui

Ja passei oGet[2]:SetPos(0) mas não surte efeito nem um..

Obrigado..

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

Francis

Posts: 112

Joined: Thu Aug 17, 2006 04:13 PM

Re: Posição tGet x Cursor
Posted: Fri Nov 13, 2009 09:59 PM

Hola a Todos

Yo lo hago asi...

Code (fw): Select all Collapse

REDEFINE GET oaGet[ 2 ] VAR ocGet[ 2 ]; // oDbf:CODDOC
           VALID Eval( {|| IF( !( cAliDoc )->( DBSEEK( "2"+ocGet[ 2 ] ) ), ( __StopMsg( "C¢digo de Documento no existe ... Verificar por favor" ), .F. ),( lBloq := ( cAliDoc )->M5OPC, ocGet[ 2 ] := ( cAliDoc )->M5CODES, oaGet[ 2 ]:Refresh(), .T. ) ) } ) .AND.;
                 Eval( {|| IF( !( cAliDoc )->( DBSEEK( "2"+ocGet[ 2 ] ) ), ( __StopMsg( "C¢digo de Documento no existe ... Verificar por favor" ), .F. ),( lBloq := ( cAliDoc )->M5OPC, cDoc := ( cAliDoc )->M5DESC, oaSay[ 1 ]:Refresh(), .T. ) ) } );
           ID 102;
           OF oDlg;
           PICTURE "@K XX";
           ACTION( ( cAliDoc )->( BuscDoc( "Cat logo de Documento",;      //Titulo
                   { || { ( cAliDoc )->M5CODES, ( cAliDoc )->M5DESC } },; //Campos
                   { "Codigo"       ," Nombre" },;                        //Cabeceras
           { {" Codigo Docum."," Nombre Docum."},;                //Array Indice
           { "Codigo"        ,"Nombre"} }, ocGet, cAliDoc ) ),;   //Titulos
             ocGet[ 2 ] := ( cAliDoc )->M5CODES, oaGet[ 2 ]:SetFocus(), oDlg:Update() ); 
           BITMAP "buscar.bmp";         
           UPDATE

           oaGet[ 2 ]:bGotFocus =  { || oaGet[ 2 ]:SetPos( 1 ), NIL }  // aqui esta el codigo

Espero te sirva ...

Salu2

Francis

CiberSoft - Sistemas de Gestion

ICO

Posts: 82

Joined: Fri Mar 13, 2009 06:51 PM

Re: Posição tGet x Cursor
Posted: Sat Nov 14, 2009 07:20 PM

Ola Francis.. obrigado por responder

Eu queria evitar fazer isso, dessa forma ai por exemplo se eu tiver uma dialog com folder onte terei 50 gets teria que fazer isso para cada get

oaGet[ 1 ]:bGotFocus = { || oaGet[ 1 ]:SetPos( 1 ), NIL }
oaGet[ 2 ]:bGotFocus = { || oaGet[ 2 ]:SetPos( 1 ), NIL }
oaGet[ 3 ]:bGotFocus = { || oaGet[ 3 ]:SetPos( 1 ), NIL }
etc..
etc..
oaGet[ 50 ]:bGotFocus = { || oaGet[ 50 ]:SetPos( 1 ), NIL }

e é isso que quero evitar..

Isso deveria ser automatico no FWH.

Abraços..

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

FiveTech Support Forums

Continue the discussion