Form S_197FC

LANSA

Form S_197FC
*===================================================================;
*;
* Component : S_197FC;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Non-proportional font 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(305) LEFT(298) TOP(153) VISUALSTYLE(#VS_NORM) WIDTH(704);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) DISPLAYPOSITION(1) HEIGHT(189) LAYOUTMANAGER(#FWLM_1) LEFT(472) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(16) WIDTH(211);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) DISPLAYPOSITION(2) HEIGHT(259) LEFT(24) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(14) WIDTH(441);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(129) LEFT(24) PARENT(#GPBX_2) TABPOSITION(1) TOP(120) WIDTH(409);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) CAPTION('Employee Name') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#STD_TEXTL) WIDTH(100);
DEFINE_COM CLASS(#EMPNO.Visual) NAME(#EMPNO) DISPLAYPOSITION(2) HEIGHT(19) LEFT(24) PARENT(#GPBX_2) TABPOSITION(2) TOP(21) WIDTH(209);
DEFINE_COM CLASS(#SURNAME.Visual) NAME(#SURNAME) DISPLAYPOSITION(3) HEIGHT(19) LEFT(24) PARENT(#GPBX_2) TABPOSITION(3) TOP(52) WIDTH(324);
DEFINE_COM CLASS(#GIVENAME.Visual) NAME(#GIVENAME) DISPLAYPOSITION(4) HEIGHT(19) LEFT(24) PARENT(#GPBX_2) TABPOSITION(4) TOP(85) WIDTH(324);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_NORM) CAPTION('Use style #VS_NORM') DISPLAYPOSITION(1) LEFT(14) PARENT(#GPBX_1) TABPOSITION(1) TOP(31) WIDTH(183);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_FIXED) CAPTION('Use Style #VS_FIXED') DISPLAYPOSITION(2) LEFT(14) PARENT(#GPBX_1) TABPOSITION(2) TOP(85) WIDTH(183);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_VFV) CAPTION('Use style #S_197VFV') DISPLAYPOSITION(3) LEFT(14) PARENT(#GPBX_1) TABPOSITION(3) TOP(139) WIDTH(183);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_1) MANAGE(#RDBN_NORM) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_2) MANAGE(#RDBN_FIXED) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#RDBN_VFV) PARENT(#FWLM_1);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
;
set #RDBN_NORM ButtonChecked(TRUE);
;
SELECT *ALL PSLMST;
Use concat (#GIVENAME #SURNAME) #STD_TEXTL;
ADD_ENTRY #LTVW_1;
ENDSELECT;
;
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_NORM.Click);
set #GPBX_2 VisualStyle(#VS_NORM);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_FIXED.Click);
set #GPBX_2 VisualStyle(#VS_FIXED);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_VFV.Click);
set #GPBX_2 VisualStyle(#S_197VFV);
ENDROUTINE;
END_COM;