Form S_160FRO: Read Only, Disabled and Input Fields

LANSA

previous page next page
Form S_160FRO: Read Only, Disabled and Input Fields
Name: S_160FRO

Description: The following RDMLX form demonstrates fields in read only, disabled and input modes.
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM BORDERICONS(Maximize+Minimize+SystemMenu) FORMPOSITION(ScreenCenter);
DEFINE_COM CLASS(#EMPNO.Visual) NAME(#EMPNO) DISPLAYPOSITION(1) HEIGHT(19) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(209);
DEFINE_COM CLASS(#DEPTMENT.Visual) NAME(#DEPTMENT) DISPLAYPOSITION(2) HEIGHT(19) PARENT(#COM_OWNER) TABPOSITION(2) TOP(36) WIDTH(201);
DEFINE_COM CLASS(#SECTION.Visual) NAME(#SECTION) DISPLAYPOSITION(3) HEIGHT(19) PARENT(#COM_OWNER) TABPOSITION(3) TOP(64) WIDTH(185);
DEFINE_COM CLASS(#ADDRESS1.Visual) NAME(#ADDRESS1) DISPLAYPOSITION(4) HEIGHT(19) PARENT(#COM_OWNER) TABPOSITION(4) TOP(92) WIDTH(363);
DEFINE_COM CLASS(#ADDRESS2.Visual) NAME(#ADDRESS2) DISPLAYPOSITION(5) HEIGHT(19) PARENT(#COM_OWNER) TABPOSITION(5) TOP(120) WIDTH(363);
DEFINE_COM CLASS(#ADDRESS3.Visual) NAME(#ADDRESS3) DISPLAYPOSITION(6) HEIGHT(19) PARENT(#COM_OWNER) TABPOSITION(6) TOP(151) WIDTH(363);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#READ) CAPTION('Read Only') DISPLAYPOSITION(7) LEFT(392) PARENT(#COM_OWNER) TABPOSITION(7) TOP(16);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#DISABLE) CAPTION(Disabled) DISPLAYPOSITION(8) LEFT(392) PARENT(#COM_OWNER) TABPOSITION(8) TOP(48);
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#INPUT) CAPTION(Input) DISPLAYPOSITION(9) LEFT(392) PARENT(#COM_OWNER) TABPOSITION(9) TOP(80);
EVTROUTINE handling(#com_owner.Initialize);
change #empno A1234;
change #deptment ADM;
change #section '''01''';
change #address1 'LINE 1';
change #address2 'LINE 2';
change #address3 'LINE 3';
ENDROUTINE ;
EVTROUTINE HANDLING(#read.Click);
set (#empno #deptment #section) readonly(True) enabled(True) VisualStyle(#vs_noread) tabstop(false);
invoke #address1.SetFocus;
ENDROUTINE ;
EVTROUTINE HANDLING(#disable.Click);
set (#empno #deptment #section) readonly(True) enabled(False) VisualStyle(#vs_noread) tabstop(false);
invoke #address1.SetFocus;
ENDROUTINE ;
EVTROUTINE HANDLING(#input.Click);
set (#empno #deptment #section) readonly(False) enabled(True) VisualStyle() tabstop(true);
invoke #empno.SetFocus;
ENDROUTINE ;
END_COM ;

previous page start next page