FiveTech Software tech support forums

... oemtoansi( "Descripci¢n" ) ; // ON dblCLICK (editrubro(olbx,.F.), olbx:Refresh());
ID 181 OF oDlg ;
font ofont1


oLbx:nClrBackHead:=nRgb(0,130,250)
oLbx:nClrForeHead:=nRgb(0,0,0)
oLbx:nClrBackFocus:=nRgb(0,100,255)
oLbx:nClrForeFocus:=nRgb(255,255,255)

porque no me cambia el color de los títulos

... Quite esta parte
olbm:bSeek := {|lRet| olbm:DbfSeek(.T.) }
oLbm:bkeydown := {|nkey,nflags| iif(nKey = VK_RETURN, nBut:setfocus(),.f.)}
olbm:nClrBackFocus := CLR_CYAN
olbm:nClrForeFocus := CLR_WHITE
REDEFINE BUTTON NBUT ID 102 ACTION (lacepto := .t.,odlg:end())


REDEFINE BUTTON ID 103 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)
oBrw:Refresh ...

Thanks For Your Help

::nClrBackHead := GetSysColor( COLOR_BTNFACE )
::nClrForeHead := GetSysColor( COLOR_BTNTEXT )
::nClrBackFocus := GetSysColor( COLOR_HIGHLIGHT )
::nClrForeFocus := GetSysColor( COLOR_HIGHLIGHTTEXT) // CeSoTech CLR_WHITE


::nClrFBack := ::nClrBackHead // by CeSoTech ...

... n , n += nwant ,;
n := MAX ( 1, MIN ( n, EVAL ( oBrw:bLogicLen ) ) ), n - nOld }
oBrw:bLogicLen := { | | LEN ( oDlg:aControls ) }
oBrw:nClrBackFocus := nRGB ( 250, 250, 016 ) && Color del Fondo Amarillo
oBrw:nClrForeFocus := nRGB ( 016, 032, 250 ) && Color del Texto Azul
oBrw:nLineStyle ...

... is not focused?

oLbx1:nClrText = { || IIF( invdet->posted, CLR_WHITE, CLR_BLACK ) }
oLbx1:nClrPane = { || IIF( invdet->posted, CLR_GREEN, CLR_WHITE ) }

oLbx1:nClrForeFocus = { || IIF( invdet->posted, CLR_WHITE, CLR_WHITE ) }
oLbx1:nClrBackFocus = { || IIF( invdet->posted, CLR_GREEN, CLR_BLUE ) }

... 60,210,190,190,190,160,90,100,180,60}
oLbx:bSkip = { | nRecs | oMae:Skipper( nRecs ) }
oLbx:nLineStyle := 3
oLbx:lAdjlastcol:= .F.
oLbx:nClrBackFocus := CLR_CYAN
oLbx:nClrForeFocus := CLR_WHITE


REDEFINE RADIO oRad VAR nOrden ID 108, 107, 112 OF oDlg;
ON CHANGE Orden(nOrden,oLbx,oMae ...

... 2),65 + nLen ;
of oDlg ;
ON DBLCLICK (xRetVal := eval( bReturnExp ),lExit := TRUE, oDlg:End())


oLbx:nClrForeFocus := CLR_WHITE
oLbx:nClrBackFocus := CLR_BLUE
oLbx:nClrBackHead := CHEADBACK
oLbx:nClrForehead := CHEADFRONT

oLbx:bKeyChar := {|nKey| iif(nKey == VK_RETURN,(xRetVal := eval ...

... Cliente al Que pertenece ","Plan Mts", "Real Mts" ;
FIELDSIZES 80,250,100,100 ;
ID 102 OF oDlg

oBrw:nClrForeFocus:= {|| CLR_YELLOW }
oBrw:nClrBackFocus:= {|| CLR_GREEN }


oBrw:bRClicked = { || oLbx:ShowSizes() }
oBrw:aJustify := {.F.,.F.,.F.,.F.}
oBrw:NCLRPANE:={||IIF((ORDKEYNO())%2==0,RGB ...

... Cliente al Que pertenece ","Plan Mts", "Real Mts" ;
FIELDSIZES 80,250,100,100 ;
ID 102 OF oDlg

oBrw:nClrForeFocus:= {|| CLR_YELLOW }
oBrw:nClrBackFocus:= {|| CLR_GREEN }


oBrw:bRClicked = { || oLbx:ShowSizes() }
oBrw:aJustify := {.F.,.F.,.F.,.F.}
oBrw:NCLRPANE:={||IIF((ORDKEYNO())%2==0,RGB ...

... eval(bData)},;
oDlg,aHead,aSizes,,,,,{||eval(bClick)},,,,,CBRWPOCOLOR)

oPoitms:SetBrowse(oLbx)
oLbx:nClrForeFocus := CBRWFORE
oLbx:nClrBackFocus := CBRWBACK
oLbx:nClrBackHead := CHEADBACK
oLbx:nClrForehead := CHEADFRONT
oLbx:aJustify := eval(bAdjust)
oLbx:nLineStyle := 1
oLbx ...

... HEADERS "BANCO", "CBU" ID 102 of oFold:adialogs[3] UPDATE

oBrw:bSkip = { | nRecs | obanpro:Skipper( nRecs ) }
oBrw:nLineStyle := 3
oBrw:nClrBackFocus := CLR_CYAN
oBrw:nClrForeFocus := CLR_WHITE
////////////////////////////////////////////////////////////////////
En cambio así sí funciona ...

Hola Mario. Mira si te funciona esto:

oLbx:nClrText := RGB(0,0,0) // text
oLbx:nClrPane := RGB(235,225,45) // background

//Apuntador
oLbx:nClrBackFocus := {|| GetSysColor( COLOR_ACTIVECAPTION ) } //fondo
oLbx:nClrForeFocus := {|| CLR_WHITE } //texto

o asi:
/*
Cabeceras:
oBjeto:nClrBackHead ...

... SIZE 342,176;
FONT oFont OF oDlg;
ON CHANGE E_Loca(oDlg);
PIXEL


oLbx:nClrBackHead:=nRgb(0,130,250)
oLbx:nClrForeHead:=nRgb(0,0,0)
oLbx:nClrBackFocus:=nRgb(0,100,255)
oLbx:nClrForeFocus:=nRgb(255,255,255)

oLbx:nClrText= { || iif( deleted(), CLR_GRAY, CLR_BLUE ) }

oLbx:nClrPane := {|| iif ...

... del API de Windows.

* Corrección: En la clase TCBrowse, uso adecuado de bloques de código para los colores en las DATAs nClrForeFocus y nClrBackFocus.

* Mejoras y correcciones en la clase TXBrowse:

a) Soporte para las clases heredadas en los comandos. Los comandos XBROWSE estaban ...