FiveTech Software tech support forums

... oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER { | o | if( o:lFocused, o:nInClrLineB, nClrBox ) } ; INSEPH 1 INSEPV 1 ; //INWHPEN 2 ; INCLRLINEDIS CLR_BLUE DYNAMIC ; //GROUP INERROR "EMPTY VALUE NOT VALID" ...

... oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER { | o | if( o:lFocused, o:nInClrLineB, nClrBox ) } ; INSEPH 1 INSEPV 1 ; //INWHPEN 2 ; INCLRLINEDIS CLR_BLUE DYNAMIC ; //GROUP INERROR "EMPTY VALUE NOT VALID" ...

... OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER aData[ 1, 1 ] BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT CLR_GRAY ; INCLRBORDER { | o | if( o:lFocused, o:nInClrLineB, nClrBox ) } ; INSEPH 1 INSEPV 1 ; //INWHPEN 2 ; INCLRLINEDIS CLR_BLUE DYNAMIC ; //GROUP INERROR "EMPTY VALUE NOT VALID" ...

//TGet():bColorBlock := { |oGet| IF( oGet:lFocused, { CLR_WHITE, CLR_HBLUE }, IF( .NOT. oGet:lActive, {CLR_BLACK, CLR_HGRAY}, {CLR_BLACK, CLR_WHITE} )) }
//fix for readonly gets
// TGet():lDisColors := .f.
// TGet():nClrGrayText := 25

TGet():bColorBlock := { |oGet| IF( oGet:lFocused, { CLR_WHITE, CLR_HBLUE }, IF( .NOT. oGet:lActive, {CLR_BLACK, CLR_HGRAY}, {CLR_BLACK, CLR_WHITE} )) }

... by moving of the first browse. I needed the same solution for a language-translation browser 1 :lColChangeNotify := .t. :bChange := { || If( oBrw1:lFocused, SyncBrowses( oBrw1, oBrw2 ), nil ) } :bGotFocus := { || SyncBrowses( oBrw1, oBrw2 ) } browser 2 :lColChangeNotify := .t. :bChange := { || ...

... encontre esto: DEFINE TIMER oCLITimer OF oWnd INTERVAL 300 ACTION Blinking( oBrw ) ACTIVATE TIMER oCLITimer Function Blinking( oBrw ) if ! oBrw:lFocused oBrw:nClrNFBack := iif( oBrw:nClrNFBack==oBrw:nClrBackFocus,oBrw:nClrBackFocus,CLR_BLACK) oBrw:nClrNFFore := iif( oBrw:nClrNFFore==oBrw:nClrBackFocus,CLR_BLACK,oBrw:nClrBackFocus) ...

... } :nRecSelWidth := 50 END oBrw1:lColChangeNotify := .t. oBrw1:bGotFocus := { || SyncBrowses( oBrw1, oBrw2 ) } oBrw1:bChange := { || If( oBrw1:lFocused, SyncBrowses( oBrw1, oBrw2 ), nil ) } oBrw2:lColChangeNotify := .t. oBrw2:bGotFocus := { || SyncBrowses( oBrw2, oBrw1 ) } oBrw2:bChange := ...

... color settings. This can also be set by command: @ r,c GET <clauses> COLOR bColor <otherClauses> Example: bColor := { |oGet| If( oGet:lFocused, { CLR_HRED, CLR_YELLOW }, ; If( !oGet:lActive, { CLR_BLACK, CLR_HGRAY }, ; If( Empty( oGet:Value ), { CLR_BLACK, CLR_HGREEN }, ; { CLR_BLACK, ...

Prueba con oGet:lFocused

In fact is better than that. You can control what to disable and what to enable using oBtn:lFocused as flag.

EMG

One issue is you need to use detached local inside your code block.
Right now when the code block gets evaluated it has wrong value for variable v in { || LightBorder( aGet[v], aGet[v]:lFocused , .T. ) }

... I wantes insert on an application with many gets but I have problems sample : for v= 1 to 11 aGet[v]:bPainted = { || LightBorder( aGet[v], aGet[v]:lFocused , .T. ) } next v give me this error too many handles Application===========   Path and name: C:\WORK\Prg\family\Family.Exe (32 ...

Prueba a hacer esto: REDEFINE GET oObra VAR cObra ID 100 OF oDDAbmLin VALID If( oObra:lFocused, Obra(), .T. ) si no lo soluciona, prueba asi: REDEFINE GET oObra VAR cObra ID 100 OF oDDAbmLin VALID If( oDDAbmLin:lFocused, Obra(), .T. ) Esto sucede porque el diálogo ...

Adhemar,

Prueba asi:

oDTPicker:bChange = { || If( oDTPicker:lClosed .and. oDTPicker:lFocused, oDTPicker:PostMsg( WM_KEYDOWN, VK_RIGHT ),) }