Form S_197FF
*===================================================================;
*;
* Component : S_197FF;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Read-only visual 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(160) LEFT(296) TOP(119) VISUALSTYLE(#VS_NORM) WIDTH(677);
DEFINE_COM CLASS(#DEPTMENT.Visual) NAME(#DEPTMENT) DISPLAYPOSITION(1) HEIGHT(19) LEFT(7) MARGINLEFT(100) PARENT(#COM_OWNER) TABPOSITION(1) TOP(16) WIDTH(146);
DEFINE_COM CLASS(#DEPTDESC.Visual) NAME(#DEPTDESC) DISPLAYPOSITION(2) HEIGHT(19) LEFT(160) MARGINLEFT(0) PARENT(#COM_OWNER) READONLY(True) TABPOSITION(2) TABSTOP(False) TOP(16) VISUALSTYLE(#S_197VNC) WIDTH(153);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('How to display the department description') DISPLAYPOSITION(3) HEIGHT(115) LAYOUTMANAGER(#FWLM_1) LEFT(328) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(14) WIDTH(337);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_DFT) CAPTION('Use the default style (#VS_NORM)') DISPLAYPOSITION(1) LEFT(27) PARENT(#GPBX_1) TABPOSITION(1) TOP(13) WIDTH(282);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_VNC) CAPTION('Use field-as-label style #S_197VNC') DISPLAYPOSITION(2) LEFT(27) PARENT(#GPBX_1) TABPOSITION(2) TOP(48) WIDTH(282);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_1) MANAGE(#RDBN_DFT) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_2) MANAGE(#RDBN_VNC) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_1) CAPTION('Use currently-not-editable style #VS_NOREAD') DISPLAYPOSITION(3) LEFT(27) PARENT(#GPBX_1) TABPOSITION(3) TOP(83) WIDTH(282);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#RDBN_1) PARENT(#FWLM_1);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
fetch *all from_file(deptab);
set #RDBN_VNC ButtonChecked(TRUE);
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_DFT.Click);
* display #DEPTDESC using the default style for the form;
set #DEPTDESC VisualStyle(*NULL);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_VNC.Click);
* display #DEPTDESC using label style #S_197VNC;
set #DEPTDESC VisualStyle(#S_197VNC);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_1.Click);
* display #DEPTDESC using currently-not-editable style #VS_NOREAD;
set #DEPTDESC VisualStyle(#VS_NOREAD);
ENDROUTINE;
END_COM;
*===================================================================;
*;
* Component : S_197FF;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Read-only visual 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(160) LEFT(296) TOP(119) VISUALSTYLE(#VS_NORM) WIDTH(677);
DEFINE_COM CLASS(#DEPTMENT.Visual) NAME(#DEPTMENT) DISPLAYPOSITION(1) HEIGHT(19) LEFT(7) MARGINLEFT(100) PARENT(#COM_OWNER) TABPOSITION(1) TOP(16) WIDTH(146);
DEFINE_COM CLASS(#DEPTDESC.Visual) NAME(#DEPTDESC) DISPLAYPOSITION(2) HEIGHT(19) LEFT(160) MARGINLEFT(0) PARENT(#COM_OWNER) READONLY(True) TABPOSITION(2) TABSTOP(False) TOP(16) VISUALSTYLE(#S_197VNC) WIDTH(153);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('How to display the department description') DISPLAYPOSITION(3) HEIGHT(115) LAYOUTMANAGER(#FWLM_1) LEFT(328) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(14) WIDTH(337);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_DFT) CAPTION('Use the default style (#VS_NORM)') DISPLAYPOSITION(1) LEFT(27) PARENT(#GPBX_1) TABPOSITION(1) TOP(13) WIDTH(282);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_VNC) CAPTION('Use field-as-label style #S_197VNC') DISPLAYPOSITION(2) LEFT(27) PARENT(#GPBX_1) TABPOSITION(2) TOP(48) WIDTH(282);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_1) MANAGE(#RDBN_DFT) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_2) MANAGE(#RDBN_VNC) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_1) CAPTION('Use currently-not-editable style #VS_NOREAD') DISPLAYPOSITION(3) LEFT(27) PARENT(#GPBX_1) TABPOSITION(3) TOP(83) WIDTH(282);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#RDBN_1) PARENT(#FWLM_1);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
fetch *all from_file(deptab);
set #RDBN_VNC ButtonChecked(TRUE);
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_DFT.Click);
* display #DEPTDESC using the default style for the form;
set #DEPTDESC VisualStyle(*NULL);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_VNC.Click);
* display #DEPTDESC using label style #S_197VNC;
set #DEPTDESC VisualStyle(#S_197VNC);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_1.Click);
* display #DEPTDESC using currently-not-editable style #VS_NOREAD;
set #DEPTDESC VisualStyle(#VS_NOREAD);
ENDROUTINE;
END_COM;