FiveTech Software tech support forums

... "open",, oDlg ) oBmp2 := TBitmap():Define( "close",, oDlg) @ 5, 1 TREEVIEW oTree OF oDlg SIZE 80, 80 COLOR 0, GetSysColor( 15 ) oTree:SetImageList( oImageList ) https://i.postimg.cc/T32NLcbh/tt.png Why I not see the bmps ? on resource open  BITMAP ...

Si no se especifica lDisColors en false ni bColor, el color del panel disable lo genera con nClrP := GetSysColor( COLOR_WINDOW ) Yes, but I was referring to the fact that the background color of the readonly GETs is set inside the paint event, if I read the TGet source code ...

... can be change only using paint event? EMG Si no se especifica lDisColors en false ni bColor, el color del panel disable lo genera con nClrP := GetSysColor( COLOR_WINDOW )

... function ChangeColor( oBrw, n ) return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) If num= 0 nColor := CLR_HGREEN elseif num >0 .and. num < 8 nColor := CLR_WHITE elseif num >9 nColor := CLR_HRED endif return ...

... function ChangeColor( oBrw, n ) return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) If num= 0 nColor := CLR_HGREEN elseif num >0 .and. num < 8 nColor := CLR_WHITE elseif num >9 nColor := CLR_HRED endif return ...

... function ChangeColor( oBrw, n ) return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) //for demo local nColor1 := CLR_HGREEN local nColor2 := CLR_HRED local ncolor3 := GetSysColor( 15 ) /* IF num<3 nColor :=nColor1 ...

... Es recomendable leer la documentación de Windows sobre las funciones GetSysColor(n) y SetSysColors(). https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getsyscolor https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setsyscolors ...

... http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37922&sid=54ad898a54718ceb4499289b28c0db17 Also read Windows documentation on GetSysColor(n) and SetSysColors() https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getsyscolor https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setsyscolors ...

... & Frame" in Registry you will find it under Computer\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\DWMAccentColor --- you can GetSysColor() and save Value before use SetSysColor() i do load Information like Color from DBF or INI File at Start

... ACTION (color2:=ChooseColor(),restorestate2(self,color1,color2)) MENUITEM "恢复默认颜色" ACTION (restorestate2(self,CLR_BLACK,GetSysColor( 5 ))) end if ::cid<>nil MENUITEM "保存显示格式" ACTION savestate(self) end separator MENUITEM "说明帮助" ACTION help(::ownd:ccaption) ...

now I resolved set color of say with CLR_BLUE, GetSysColor( 15 ) But I think is wrong

Not wrong. This is also one way. Better is COLOR CLR_BLUE, oDlg:nClrPane.
But this works only when the dialog has a plain background color.

Say ..with lTransparent := .t. should work.

... if I insert a say then make not trasparency https://i.postimg.cc/DfNFML6T/h.png now I resolved set color of say with CLR_BLUE, GetSysColor( 15 ) But I think is wrong

... was assigned to the controls say I made REDEFINE SAY oSaySearch[1] Prompt "Cognome" ID 4001 OF oItem:oDlgChild COLOR CLR_BLUE, GetSysColor( 15 ) REDEFINE SAY oSaySearch[1] Prompt "Nome" ID 4002 OF oItem:oDlgChild COLOR CLR_BLUE, GetSysColor( 15 ) oSaySearch[1]:lTransparent:=.t. ...

... of Apps depend on OS Theme which can be found in Registry under HKEY_CURRENT_USER\Control Panel\Colors there are COLOR_ Constant to use it with GetSysColor() / SetSysColors() API https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-getsyscolor https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-setsyscolors ...

... {},NewSelected( oTree:aItems ), XBrowse( aSelected ) ) SIZE 80, 32 LEFT @ 0.5, 20 TREEVIEW oTree OF oDlg SIZE 170, 300 COLOR Rgb( 128, 128, 128 ), GetSysColor( 5 ) CHECK oTree:nStyle += WS_BORDER oTree:bLClicked := { | nRow, nCol, nKeyFlags | NewClick( nRow, nCol ) } ACTIVATE DIALOG oDlg CENTERED ...