Backcolor of Radiogroup
Posted: Tue Jan 02, 2018 9:34 am
Hello,
I noticed some strange behaviour when changing backcolor of a radiogroup.
Depending on the changed value of a radiogroup I change the backcolor of my radiogroup.
I attache a little demo, compile this and run and then open some of your own HMG compiled programs and see what occurs when changing radio value.
A good example is running the multi-instance demo + my demo.
Sometimes nothing happens, sometimes a form in the back is repainted.
Strange isn't it?
Serge
I noticed some strange behaviour when changing backcolor of a radiogroup.
Depending on the changed value of a radiogroup I change the backcolor of my radiogroup.
I attache a little demo, compile this and run and then open some of your own HMG compiled programs and see what occurs when changing radio value.
A good example is running the multi-instance demo + my demo.
Sometimes nothing happens, sometimes a form in the back is repainted.
Code: Select all
#include "hmg.ch"
function main()
/***************/
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 1100 ;
HEIGHT 600 ;
TITLE 'demo ' ;
MAIN
ON KEY ESCAPE ACTION Form_1.Release
@ 10,10 LABEL Label_NM ;
VALUE "VNaam-Fnaam" ;
WIDTH 175;
HEIGHT 35 ;
FONT 'Arial' SIZE 09
@ 10,200 TEXTBOX TWKL_VNM ;
TOOLTIP 'VoorNaam' ;
WIDTH 90 ;
MAXLENGTH 10 ;
VALUE '' ;
BACKCOLOR SILVER ;
FONTCOLOR BLUE BOLD
@ 40,10 RADIOGROUP RG_GENDER ;
OPTIONS {'All', 'Male' , 'Female', 'Child', 'Unknown' } ;
BACKCOLOR SILVER ;
VALUE 1 ;
TOOLTIP 'Gender' ;
WIDTH 95;
FONT 'Arial' SIZE 8 ;
ON CHANGE Change_RADIO()
@ 10,310 BUTTON Btn_Nieuw Of Form_1 ;
CAPTION 'GO!' ;
ACTION SHOW_F2() ;
WIDTH 120 ;
HEIGHT 27 ;
FONT "Arial" SIZE 09 ;
TOOLTIP "Go" ;
FLAT
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
RETURN
FUNCTION SHOW_F2()
/*****************/
DEFINE WINDOW Form_2 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 800 ;
TITLE 'demo '
@ 10,10 RADIOGROUP RG_x ;
OPTIONS {'All', 'Male' , 'Female', 'Child', 'Unknown' } ;
BACKCOLOR SILVER ;
VALUE 1 ;
TOOLTIP 'Gender' ;
WIDTH 95;
HORIZONTAL ;
FONT 'Arial' SIZE 8
@ 40,10 CHECKBOX CB_CONTR_AD CAPTION '' ;
BACKCOLOR {127,255,212};
VALUE .F. ;
WIDTH 30 ;
FONT 'Arial' SIZE 09 ;
FONTCOLOR BLUE ;
NOTABSTOP
END WINDOW
ACTIVATE WINDOW Form_2
RETURN
FUNCTION Change_RADIO()
/**********************/
DO CASE
CASE Form_1.RG_GENDER.Value == 1
Form_1.RG_GENDER.BACKCOLOR := {192,192,192 }
CASE Form_1.RG_GENDER.Value == 2
Form_1.RG_GENDER.BACKCOLOR := {127,255,212}
CASE Form_1.RG_GENDER.Value == 3
Form_1.RG_GENDER.BACKCOLOR := PINK
CASE Form_1.RG_GENDER.Value == 4
Form_1.RG_GENDER.BACKCOLOR := {230,230,250}
OTHERWISE
Form_1.RG_GENDER.BACKCOLOR := {175,175,175 }
ENDCASE
RETURN
Serge