Posição tGet x Cursor

[ICO]

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..

[Francis]

Hola a Todos

Yo lo hago asi...

Code: Select all

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

[ICO]

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..