Form S_197FB
*===================================================================;
*;
* Component : S_197FB;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Warning and list styles;
*;
* Disclaimer : The following material is supplied as sample material;
* only. No warranty concerning this material or its use;
* in any way whatsoever is expressed or implied.;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(602) LEFT(296) TOP(119) VISUALSTYLE(#VS_NORM) WIDTH(721);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('How to display the employee fields') DISPLAYPOSITION(2) HEIGHT(265) LAYOUTMANAGER(#FWLM_1) LEFT(448) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(8) WIDTH(257);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(183) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(2) TOP(288) WIDTH(417);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTIONTYPE(Label) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(20);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#GIVENAME) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_5) DISPLAYPOSITION(4) PARENT(#LTVW_1) SOURCE(#POSTCODE) WIDTH(20);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) CAPTION('Visual Style for List View') DISPLAYPOSITION(3) HEIGHT(201) LAYOUTMANAGER(#FWLM_2) LEFT(448) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(288) WIDTH(257);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_NULL) CAPTION('Use no visual style') DISPLAYPOSITION(1) LEFT(23) PARENT(#GPBX_2) TABPOSITION(1) TOP(25) WIDTH(210);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_NORM) CAPTION('Use the default style #VS_NORM') DISPLAYPOSITION(2) LEFT(23) PARENT(#GPBX_2) TABPOSITION(2) TOP(70) WIDTH(210);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_VL1) CAPTION('Use dark background style #S_197VL1') DISPLAYPOSITION(3) LEFT(23) PARENT(#GPBX_2) TABPOSITION(3) TOP(115) WIDTH(210);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_VL2) CAPTION('Use dark background style #S_197VL2') DISPLAYPOSITION(4) LEFT(23) PARENT(#GPBX_2) TABPOSITION(4) TOP(160) WIDTH(210);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_2) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#RDBN_NULL) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_4) MANAGE(#RDBN_NORM) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_5) MANAGE(#RDBN_VL1) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_6) MANAGE(#RDBN_VL2) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_ENULL) CAPTION('Use no visual style') DISPLAYPOSITION(1) LEFT(18) PARENT(#GPBX_1) TABPOSITION(1) TOP(22) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_7) MANAGE(#RDBN_ENULL) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_ENORM) CAPTION('Use the default style #VS_NORM') DISPLAYPOSITION(2) LEFT(18) PARENT(#GPBX_1) TABPOSITION(2) TOP(63) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_8) MANAGE(#RDBN_ENORM) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EVNM) CAPTION('Style #S_197VNM') DISPLAYPOSITION(3) LEFT(18) PARENT(#GPBX_1) TABPOSITION(3) TOP(104) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_9) MANAGE(#RDBN_EVNM) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EWARN) CAPTION('Warning style #VS_WARN') DISPLAYPOSITION(4) LEFT(18) PARENT(#GPBX_1) TABPOSITION(4) TOP(145) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_10) MANAGE(#RDBN_EWARN) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EW1) CAPTION('Low level warning style #S_197VW1 ') DISPLAYPOSITION(5) LEFT(18) PARENT(#GPBX_1) TABPOSITION(5) TOP(186) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_11) MANAGE(#RDBN_EW1) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) DISPLAYPOSITION(4) HEIGHT(266) LAYOUTMANAGER(#FWLM_3) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(8) WIDTH(417);
DEFINE_COM CLASS(#EMPNO.Visual) NAME(#EMPNO) DISPLAYPOSITION(1) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(1) TOP(24) WIDTH(209);
DEFINE_COM CLASS(#SURNAME.Visual) NAME(#SURNAME) DISPLAYPOSITION(2) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(2) TOP(65) WIDTH(324);
DEFINE_COM CLASS(#GIVENAME.Visual) NAME(#GIVENAME) DISPLAYPOSITION(3) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(3) TOP(106) WIDTH(324);
DEFINE_COM CLASS(#ADDRESS1.Visual) NAME(#ADDRESS1) DISPLAYPOSITION(4) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(4) TOP(147) WIDTH(363);
DEFINE_COM CLASS(#POSTCODE.Visual) NAME(#POSTCODE) DISPLAYPOSITION(5) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(5) TOP(188) WIDTH(216);
DEFINE_COM CLASS(#PHONEHME.Visual) NAME(#PHONEHME) DISPLAYPOSITION(6) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(6) TOP(229) WIDTH(286);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_3) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_12) MANAGE(#EMPNO) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_13) MANAGE(#SURNAME) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_14) MANAGE(#GIVENAME) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_15) MANAGE(#ADDRESS1) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_16) MANAGE(#POSTCODE) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_17) MANAGE(#PHONEHME) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EW2) CAPTION('High level warning style #S_197VW2') DISPLAYPOSITION(6) LEFT(18) PARENT(#GPBX_1) TABPOSITION(6) TOP(227) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_18) MANAGE(#RDBN_EW2) PARENT(#FWLM_1);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
fetch *all from_file(deptab);
;
set (#RDBN_NORM #RDBN_ENORM) ButtonChecked(TRUE);
;
SELECT *ALL PSLMST;
ADD_ENTRY #LTVW_1;
set #LTVW_1.CurrentItem Image(#S_197I1);
;
ENDSELECT;
;
;
ENDROUTINE;
;
;
* List View Styles;
;
EVTROUTINE HANDLING(#RDBN_NULL.Click);
* display list view with no visual style;
set #LTVW_1 VisualStyle(*NULL) VisualStyleOfParent(FALSE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_NORM.Click);
* display list view with #VS_NORM;
set #LTVW_1 VisualStyle(#VS_NORM) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_VL1.Click);
* display list view with #VS_NORM;
set #LTVW_1 VisualStyle(#S_197VL1) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_VL2.Click);
* display list view with #VS_NORM;
set #LTVW_1 VisualStyle(#S_197VL2) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_ENULL.Click);
* display employee fields with no visual style;
set #GPBX_3 VisualStyle(*NULL) VisualStyleOfParent(FALSE);
ENDROUTINE;
;
* Employee fields styles ;
;
EVTROUTINE HANDLING(#RDBN_ENORM.Click);
* display employee fields with #VS_NORM visual style;
set #GPBX_3 VisualStyle(#VS_NORM) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EVNM.Click);
* display employee fields with #S_197VNM visual style;
set #GPBX_3 VisualStyle(#S_197VNM) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EWARN.Click);
* display employee fields with warning #VS_WARN visual style;
set #GPBX_3 VisualStyle(#VS_WARN) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EW1.Click);
* display employee fields with warning #S_197VW1 visual style;
set #GPBX_3 VisualStyle(#S_197VW1) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EW2.Click);
* display employee fields with warning #S_197VW2 visual style;
set #GPBX_3 VisualStyle(#S_197VW2) VisualStyleOfParent(TRUE);
ENDROUTINE;
END_COM;
*===================================================================;
*;
* Component : S_197FB;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Warning and list styles;
*;
* Disclaimer : The following material is supplied as sample material;
* only. No warranty concerning this material or its use;
* in any way whatsoever is expressed or implied.;
*;
* ===================================================================;
;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM HEIGHT(602) LEFT(296) TOP(119) VISUALSTYLE(#VS_NORM) WIDTH(721);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('How to display the employee fields') DISPLAYPOSITION(2) HEIGHT(265) LAYOUTMANAGER(#FWLM_1) LEFT(448) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(8) WIDTH(257);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(183) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(2) TOP(288) WIDTH(417);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) CAPTIONTYPE(Label) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#EMPNO) WIDTH(20);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#SURNAME) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_4) DISPLAYPOSITION(3) PARENT(#LTVW_1) SOURCE(#GIVENAME) WIDTH(30);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_5) DISPLAYPOSITION(4) PARENT(#LTVW_1) SOURCE(#POSTCODE) WIDTH(20);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) CAPTION('Visual Style for List View') DISPLAYPOSITION(3) HEIGHT(201) LAYOUTMANAGER(#FWLM_2) LEFT(448) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(288) WIDTH(257);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_NULL) CAPTION('Use no visual style') DISPLAYPOSITION(1) LEFT(23) PARENT(#GPBX_2) TABPOSITION(1) TOP(25) WIDTH(210);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_NORM) CAPTION('Use the default style #VS_NORM') DISPLAYPOSITION(2) LEFT(23) PARENT(#GPBX_2) TABPOSITION(2) TOP(70) WIDTH(210);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_VL1) CAPTION('Use dark background style #S_197VL1') DISPLAYPOSITION(3) LEFT(23) PARENT(#GPBX_2) TABPOSITION(3) TOP(115) WIDTH(210);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_VL2) CAPTION('Use dark background style #S_197VL2') DISPLAYPOSITION(4) LEFT(23) PARENT(#GPBX_2) TABPOSITION(4) TOP(160) WIDTH(210);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_2) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#RDBN_NULL) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_4) MANAGE(#RDBN_NORM) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_5) MANAGE(#RDBN_VL1) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_6) MANAGE(#RDBN_VL2) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_ENULL) CAPTION('Use no visual style') DISPLAYPOSITION(1) LEFT(18) PARENT(#GPBX_1) TABPOSITION(1) TOP(22) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_7) MANAGE(#RDBN_ENULL) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_ENORM) CAPTION('Use the default style #VS_NORM') DISPLAYPOSITION(2) LEFT(18) PARENT(#GPBX_1) TABPOSITION(2) TOP(63) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_8) MANAGE(#RDBN_ENORM) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EVNM) CAPTION('Style #S_197VNM') DISPLAYPOSITION(3) LEFT(18) PARENT(#GPBX_1) TABPOSITION(3) TOP(104) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_9) MANAGE(#RDBN_EVNM) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EWARN) CAPTION('Warning style #VS_WARN') DISPLAYPOSITION(4) LEFT(18) PARENT(#GPBX_1) TABPOSITION(4) TOP(145) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_10) MANAGE(#RDBN_EWARN) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EW1) CAPTION('Low level warning style #S_197VW1 ') DISPLAYPOSITION(5) LEFT(18) PARENT(#GPBX_1) TABPOSITION(5) TOP(186) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_11) MANAGE(#RDBN_EW1) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) DISPLAYPOSITION(4) HEIGHT(266) LAYOUTMANAGER(#FWLM_3) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(8) WIDTH(417);
DEFINE_COM CLASS(#EMPNO.Visual) NAME(#EMPNO) DISPLAYPOSITION(1) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(1) TOP(24) WIDTH(209);
DEFINE_COM CLASS(#SURNAME.Visual) NAME(#SURNAME) DISPLAYPOSITION(2) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(2) TOP(65) WIDTH(324);
DEFINE_COM CLASS(#GIVENAME.Visual) NAME(#GIVENAME) DISPLAYPOSITION(3) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(3) TOP(106) WIDTH(324);
DEFINE_COM CLASS(#ADDRESS1.Visual) NAME(#ADDRESS1) DISPLAYPOSITION(4) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(4) TOP(147) WIDTH(363);
DEFINE_COM CLASS(#POSTCODE.Visual) NAME(#POSTCODE) DISPLAYPOSITION(5) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(5) TOP(188) WIDTH(216);
DEFINE_COM CLASS(#PHONEHME.Visual) NAME(#PHONEHME) DISPLAYPOSITION(6) HEIGHT(19) LEFT(27) PARENT(#GPBX_3) TABPOSITION(6) TOP(229) WIDTH(286);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_3) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_12) MANAGE(#EMPNO) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_13) MANAGE(#SURNAME) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_14) MANAGE(#GIVENAME) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_15) MANAGE(#ADDRESS1) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_16) MANAGE(#POSTCODE) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_17) MANAGE(#PHONEHME) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_EW2) CAPTION('High level warning style #S_197VW2') DISPLAYPOSITION(6) LEFT(18) PARENT(#GPBX_1) TABPOSITION(6) TOP(227) WIDTH(220);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_18) MANAGE(#RDBN_EW2) PARENT(#FWLM_1);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
fetch *all from_file(deptab);
;
set (#RDBN_NORM #RDBN_ENORM) ButtonChecked(TRUE);
;
SELECT *ALL PSLMST;
ADD_ENTRY #LTVW_1;
set #LTVW_1.CurrentItem Image(#S_197I1);
;
ENDSELECT;
;
;
ENDROUTINE;
;
;
* List View Styles;
;
EVTROUTINE HANDLING(#RDBN_NULL.Click);
* display list view with no visual style;
set #LTVW_1 VisualStyle(*NULL) VisualStyleOfParent(FALSE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_NORM.Click);
* display list view with #VS_NORM;
set #LTVW_1 VisualStyle(#VS_NORM) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_VL1.Click);
* display list view with #VS_NORM;
set #LTVW_1 VisualStyle(#S_197VL1) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_VL2.Click);
* display list view with #VS_NORM;
set #LTVW_1 VisualStyle(#S_197VL2) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_ENULL.Click);
* display employee fields with no visual style;
set #GPBX_3 VisualStyle(*NULL) VisualStyleOfParent(FALSE);
ENDROUTINE;
;
* Employee fields styles ;
;
EVTROUTINE HANDLING(#RDBN_ENORM.Click);
* display employee fields with #VS_NORM visual style;
set #GPBX_3 VisualStyle(#VS_NORM) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EVNM.Click);
* display employee fields with #S_197VNM visual style;
set #GPBX_3 VisualStyle(#S_197VNM) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EWARN.Click);
* display employee fields with warning #VS_WARN visual style;
set #GPBX_3 VisualStyle(#VS_WARN) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EW1.Click);
* display employee fields with warning #S_197VW1 visual style;
set #GPBX_3 VisualStyle(#S_197VW1) VisualStyleOfParent(TRUE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_EW2.Click);
* display employee fields with warning #S_197VW2 visual style;
set #GPBX_3 VisualStyle(#S_197VW2) VisualStyleOfParent(TRUE);
ENDROUTINE;
END_COM;