FiveTech Software tech support forums

Change data nClrTextDis, nClrPaneDis and lDisColors #include "fivewin.ch"FUNCTION Main()local oForm, oSay, oGet, oGet2, nValue := 0, nValue2 := 0, oBot2DEFINE DIALOG oForm TITLE "Background Disable gets" ...

... this can have a conflict when a Dialog is reused? FW_SetUnicode( .T. ) WndCenter( oWnd:hWnd ) tGet():lDisColors := .F. // WHEN( .F. ) COR. tGet():nClrTextDis := CLR_HBLUE tGet():nClrPaneDis := CLR_SOFTYELLOW IF Set( _SET_INSERT, ! Set( _SET_INSERT ) ) Set( _SET_INSERT, ! Set( _SET_INSERT ) ) ENDIF ...

desde la version 8.12 ahora permite usar colores distintos cuando un get esta DISABLE con las datas nClrTextDis, nClrPaneDis para poder darle los colores que tu quieras a un get deshabilitado, para usar esas 2 datas necesitas tener lDisColors := .F. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14666#p75858

... get al tener el focus SetCbxColorFocus(CLR_LGREEN) SkinButtons() // permite los botones nativos con otros colores TGet():lDisColors := .F. TGet():nClrTextDis := CLR_BLUE TGet():nClrPaneDis := CLR_YELLOW2 Algo de esto hace obligatorio el uso de COMBASE.DLL o me puede indicar que puede cambiar para ...

... Build 9200 Time from start: 0 hours 0 mins 5 secs Error occurred at: 06/03/2017, 18:22:01 Error description: Error BASE/1005 No exported variable: NCLRTEXTDIS Args: [ 1] = U [ 2] = N 13551615 Stack Calls ===========

These are the DATAs in TGet program

DATA nClrTextDis, nClrPaneDis

Please ensure oG2 is already defined as GET

May I know your FWH version?

Hi,

TGet():lDisColors := .F. works nice but oG2:nClrTextDis := RGB( 255, 199, 206 ) dont work .

Error description: Error BASE/1005 No exported variable: NCLRTEXTDIS

Thanks

First globally set
TGet():lDisColors := .F. // Disables default disabled colors

Then
oGet:nClrTextDis := <nTextColorWhenDisabled>
oGet:nClrPaneDis := <nBackColorWhenDisabled>

Antonio, updating to 15.2 this solution doesn't work anymore. In 15.1 it was OK. I changed to nClrTextDis ; NO error but with NO result. Maybe another solution, changing the textcolor on mouseover ? OK in FWH 15.1 oBtn:nClrText := { | lMouseOver | If( lMouseOver, CLR_HBLUE, ...

Uwe,

DATA nClrText can be a codeblock so from it we can check if the mouse is over and provide a different color.

The same applies to DATA nClrTextDis

Please try this:

oBtn:nClrText := { | lMouseOver | If( lMouseOver, CLR_HBLUE, CLR_WHITE ) }

... :lDisColor is set to .F., then the user specified :nClrDisText (by default :nClrText) is used. This convention is consistent with :lDisColors and :nClrTextDis used in TGet. We suggest obtn:lDisColor or oget:lDisColors be set to .f. when it is required to paint with programmer specified obtn:nClrDisText ...

... 1367 in METHOD PaintCaption() CLASS TBtnBmp needs to be modified as under. //nClr = If( ::IsEnabled(), ::nClrText, If( ::lDisColor, CLR_HGRAY, ::nClrTextDis ) ) nClr = If( ::IsEnabled(), ::nClrText, If( ::lDisColor, ::nClrTextDis, CLR_HGRAY ) ) Regards, -Ramesh Babu P

... Esto me funciona para cambiar los colores de los gets en general, y esta bien, asi los puedo modificar WITH OBJECT tGet() :lDisColors := .F. :nClrTextDis := COLOR_AZUL :nClrPaneDis := COLOR_SAMARILLO END El detalle aqui, es: Como indicar el color del get en particular, que no todos tengan ...

... el consejo de Horacio Si quieres que no tome el color por defecto debes poner la data lDisColors de la clase get a .f. trata de setear las datas ::nClrTextDis y ::nClrPaneDis tienes un ejemplo de su funcionalidad en testget3.prg

Daniel Garcia-Gil wrote:deactivate lDisColors and use nClrTextDis and nClrPaneDis

Of course. My fault.

EMG