Form S_197FA

LANSA

previous page next page
Form S_197FA
*===================================================================;
*;
* Component : S_197FA;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : Demonstrate all 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(194) LEFT(305) TOP(188) VISUALSTYLE(#VS_NORM) WIDTH(659);
DEFINE_COM CLASS(#PRIM_LTVW) NAME(#LTVW_1) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(150) LEFT(8) PARENT(#COM_OWNER) POPUPMENU(#PMNU_1) SELECTIONSTYLE(Single) TABPOSITION(1) TOP(8) WIDTH(633);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_1) CAPTION('Description') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) PARENT(#LTVW_1) SOURCE(#STD_TEXTL) WIDTH(40);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_3) PARENT(#LTVW_1) SOURCE(#STD_ALPHA) VISIBLE(False) WIDTH(20);
DEFINE_COM CLASS(#PRIM_LVCL) NAME(#LVCL_2) DISPLAYPOSITION(2) PARENT(#LTVW_1) SOURCE(#STD_DESCL) WIDTH(50) WIDTHTYPE(Remainder);
DEFINE_COM CLASS(#S_197FB) NAME(#S_197FB);
DEFINE_COM CLASS(#S_197FC) NAME(#S_197FC);
DEFINE_COM CLASS(#S_197FD) NAME(#S_197FD);
DEFINE_COM CLASS(#S_197FE) NAME(#S_197FE);
DEFINE_COM CLASS(#S_197FF) NAME(#S_197FF);
DEFINE_COM CLASS(#PRIM_PMNU) NAME(#PMNU_1);
DEFINE_COM CLASS(#PRIM_MITM) NAME(#MITM_SHOW) CAPTION('Show styles') DISPLAYPOSITION(1) PARENT(#PMNU_1);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
;
execute ADDENTRY with_parms('B' '''#S_197VW1 #S_197VW2 #S_197VL1 #S_197VL2''' '''List styles and warning styles''');
execute ADDENTRY with_parms('C' '''#S_197VFV #VS_FIXED''' '''Non-proportional font styles''');
execute ADDENTRY with_parms('D' '''#S_197VFP #S_197VU1 #S_197VU2 #S_197VDM''' '''Fine print, URL, and digital clock styles''');
execute ADDENTRY with_parms('E' '''*NULL, #VS_NORM, #VS_PANEL''' '''Styles for graphs''');
execute ADDENTRY with_parms('F' '''#VS_NOREAD #S_197VNC''' '''Styles for read-only fields''');
;
ENDROUTINE;
;
subroutine ADDENTRY parms(#STD_ALPHA #STD_DESCL #STD_TEXTL);
ADD_ENTRY #LTVW_1;
endroutine;
EVTROUTINE HANDLING(#LTVW_1.DoubleClick #MITM_SHOW.Click) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS);
CASE #STD_ALPHA;
WHEN '= B';
Invoke #S_197FB.ShowForm;
WHEN '= C';
Invoke #S_197FC.ShowForm;
WHEN '= D';
Invoke #S_197FD.ShowForm;
WHEN '= E';
Invoke #S_197FE.ShowForm;
WHEN '= F';
Invoke #S_197FF.ShowForm;
OTHERWISE;
;
ENDCASE;
ENDROUTINE;
END_COM;
previous page start next page