Page 1 of 1
Posição tGet x Cursor
Posted: Fri Nov 13, 2009 4:59 pm
by 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..
Re: Posição tGet x Cursor
Posted: Fri Nov 13, 2009 9:59 pm
by 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
Re: Posição tGet x Cursor
Posted: Sat Nov 14, 2009 7:20 pm
by 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..