FiveTech Software tech support forums

... IF oDlgBacheca:nresult == IDOK aDim = GetLabelDim( oPanel2:hWnd, cMessage , oFont:hFont ) oPanel:setsize(aDim[ 1 ] + 60, aDim[ 2 ] + 50) oPanel:SetColor( "N/W*" ) oPanel:bPainted = { | hDC | DrawTextTransparent( hDC, cMessage , { 10, 10, aDim[ 1 ] + 100, aDim[ 2 ] + 100 }, 1 ) } ENDIF ...

... los eliminé a todos. Pero el checkres.txt me sigue saliendo esto 31/08/2023 18:01:13: C:\Fuentes\Alfainmo\alfainmo.Exe -- BRUSH,286265516,TDIALOG:SETCOLOR(2900)->TDIALOG:NEW(219)->MSGRUN(38)->MSGWAIT(64)->MAIN(0) 31/08/2023 18:01:13: C:\Fuentes\Alfainmo\alfainmo.Exe -- ==================================================================================================== ...

... := 3 olbx1:lcoldividercomplete:=.f. olbx1:acols[1]:lAllowsizing:=.f. olbx1:nRowDividerStyle := LINESTYLE_BLACK olbx1:lallowrowsizing :=.f. olbx1:setcolor(rgb(0,0,0),rgb(255,255,206)) olbx1:nRowHeight := 27 oLbx1:acols[1]:lMergevert:=.t. Imagen https://drive.google.com/file/d/1BZfNI0KHL-ax-1n5aYod_eDHdac1lvnR/view?usp=drive_link ...

... oBar,; ,; ,; {aAcciones[i][6],aAcciones[i][2]},; ,; ,; (aacciones[i][4]),; ,; (aacciones[i][3]),; ,; ,; ,; .F. ) next AEVAL(oBar:aControls,{|o,n|o:SetColor(CLR_BLACK,CLR_BLUE)}) oBar:bPainted := {|| oBar:SayText( "Prueba", nil, "R" ) } //* los 2 primeros array marcan los colores ...

carlos vargas wrote:Siempre y cuando no uses themes, todos los controles de fw tienen un metodo para eso.
Setcolor

Lo intente con SetColor y ON CHANGE ON CLICK pero no me funciona

Siempre y cuando no uses themes, todos los controles de fw tienen un metodo para eso.
Setcolor

Hi,

If the TSAY control is on the Dialog window, then I can change its background

Code: Select all  Expand view

oSay:SetColor(CLR_BLACK, CLR_RED)
 oSay:Refresh()

If the control TSAY is on TFolderEx:aDialogs[1], then oSay:SetColor() does not change the background color. Why?t

hi Antonio, Have you tried oCheckBox:SetColor( nClrForeground, nClrBackground ) ? No, i have used COLOR BFcolor, BGcolor but Result is same https://i.postimg.cc/gjwLD7g1/Set-Color-Checkbox.png the Caption is always BLACK so ...

Dear Jimmy,

Have you tried oCheckBox:SetColor( nClrForeground, nClrBackground ) ?

... ".\bitmaps\plus.bmp" OF ::oBar ; TOOLTIP "plus numbers" ; ACTION (oSelf:oPlus:lPressed:=!oSelf:oPlus:lPressed,; oSelf:oPlus:setcolor( CLR_BLUE, If( oSelf:oPlus:lPressed == .t., CLR_RED, CLR_BLUE )) ,; oSelf:oPlus:refresh() but not run ok

Ok, never mind, it was my fault, sorry. I can change the GETs color (normal, readonly or disabled) with the usual SetColor() function. I forgot to have some code that changed the color back.

EMG

In this case :setColor is not suitable - they can only change the background. I need to change the color of the element itself

... ,oRad[6]:Enable(),oRad[6]:Disable()),; if( !empty(oDbf:Acctacte) ,oRad[7]:Enable(),oRad[7]:Disable()),; if( !empty(oDbf:efectivo),oSay[1]:SetColor(CLR_HRED,CLR_WHITE),oSay[1]:SetColor(CLR_BLACK,CLR_YELLOW)) ,; if( !empty(oDbf:Acdebito),oSay[2]:SetColor(CLR_HRED,CLR_WHITE),oSay[2]:SetColor(CLR_WHITE,METRO_OLIVE)) ...

... = 0            // Disponible               oBtn[nVez]:SetColor( CLR_BLACK, CLR_WHITE)            CASE oRsHab:Fields("HAB_STS"):Value = 1     ...

...        DO CASE            CASE oRsHab:Fields("HAB_STS"):Value = 0            // Disponible               oBtn[nVez]:SetColor( CLR_BLACK, CLR_WHITE)            CASE oRsHab:Fields("HAB_STS"):Value = 1            // Ocupada               oBtn[nVez]:SetColor( ...