DisabledBackColor and DisabledFontColor

[serge_girard]

Hello,

I want to change backcolor (or fontcolor) in RED when some value is wrong in a READONLY field and I use this code:

Code: Select all

@ 10,10 TEXTBOX T_1	Of Form_1		;
	WIDTH  50		;
	VALUE 'something'    ;
	MAXLENGTH 40	;
	TOOLTIP 'something' ;
	FONT 'Arial' SIZE 10	;	
	BACKCOLOR WHITE	;
	FONTCOLOR BLUE BOLD ;
   READONLY

Form_1.T_1.DisabledBackColor :=  RED
Form_1.T_1.DisabledFontColor :=  RED
SetProperty ( 'Form_1' , 'T_1', 'DisabledBackColor',  RED)
SetProperty ( 'Form_1' , 'T_1', 'DisabledFontColor',  RED)

But both methods seem to do nothing. Anybody knows why this isn't working?

Serge

[andyglezl]

Hola Serge

Creo que eso me paso a mi y lo solucione de esta forma.
*---------------------------------------------------------------------
Hi Serge

I think that happened to me and I solved it this way.

Code: Select all

	@ 035,220 EDITBOX EB_1 WIDTH 790 HEIGHT 630 VALUE "" FONT "Arial" SIZE 10 FONTCOLOR BLACK BACKCOLOR { 227, 239, 255 }  ;
			NOHSCROLL   MAXLENGTH 60000 DISABLEDFONTCOLOR BLACK DISABLEDBACKCOLOR { 227, 239, 255 } 
	w_test.EB_1.ReadOnly := .F.

.............

IF something
	w_test.EB_1.ReadOnly := .F.
ELSE
	w_test.EB_1.ReadOnly := .T.
ENDIF

[serge_girard]

Thanks Andres, I will try!

Serge

[jozef]

Hello,

I want to change backcolor (or fontcolor) in RED when some value is wrong in a READONLY field and I use this code:

Code: Select all

@ 10,10 TEXTBOX T_1	Of Form_1		;
	WIDTH  50		;
	VALUE 'something'    ;
	MAXLENGTH 40	;
	TOOLTIP 'something' ;
	FONT 'Arial' SIZE 10	;	
	BACKCOLOR WHITE	;
	FONTCOLOR BLUE BOLD ;
   READONLY

Form_1.T_1.DisabledBackColor :=  RED
Form_1.T_1.DisabledFontColor :=  RED
SetProperty ( 'Form_1' , 'T_1', 'DisabledBackColor',  RED)
SetProperty ( 'Form_1' , 'T_1', 'DisabledFontColor',  RED)

But both methods seem to do nothing. Anybody knows why this isn't working?

Serge

Hi Serge,

I have the same problem. And I found this http://www.hmgforum.com/viewtopic.php?f ... ive#p49712

Jozef

[serge_girard]

Thanks Jozef, I change my TEXTBOX to ENABLED!

Serge

[franco]

Hi Serge, I do this a different way.
If you enable the textbox the data can be changed.
What I do is change the fontcolor of the label of the textbox if something .

Code: Select all

Win.Label.FontColor := BLACK
If win.textbox.value = "No"
   win.Label.fontcolor := RED
endif

Do not know if this is similar.
Franco

[mol]

Textbox can be enabled, but readonly. Then it should work.
When you don't need interaction with user, you can use label with clientedge. Such a label looks like textbox

[jorge_riv]

Prueba esto:

@ 10,10 TEXTBOX T_1 Of Form_1 ;
WIDTH 50 ;
VALUE 'something' ;
MAXLENGTH 40 ;
TOOLTIP 'something' ;
FONT 'Arial' SIZE 10 ;
BACKCOLOR WHITE ;
FONTCOLOR BLUE BOLD ;
READONLY
...
...
Form_1.T_1.FontColor := IF( lROnly, BLACK , RED } )
Form_1.T_1.BackColor := IF( lROnly, YELLOW, BLUE )

[serge_girard]

Thanks all for helping!

Serge