Form S_197FD
*===================================================================;
*;
* Component : S_197FD;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : URL, digital and fine print 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(537) LEFT(317) TOP(112) WIDTH(687);
DEFINE_COM CLASS(#PRIM_MEMO) NAME(#MEMO_1) ADDENTRYMODE(MultiplePerLine) CURRENTLINE(1) DISPLAYPOSITION(1) HEIGHT(78) LEFT(8) MAXIMUMLINELENGTH(10000) PARENT(#COM_OWNER) TABPOSITION(1) TOP(408) WIDTH(449) WORDWRAP(True);
DEFINE_COM CLASS(#PRIM_MECL) NAME(#MECL_1) COLUMNROLE(Data) DISPLAYPOSITION(1) PARENT(#MEMO_1) SOURCE(#STD_TEXTL) WIDTH(20);
DEFINE_COM CLASS(#PRIM_MECL) NAME(#MECL_2) COLUMNROLE(LineNumber) DISPLAYPOSITION(2) PARENT(#MEMO_1) SOURCE(#S_LINENO) WIDTH(20);
DEFINE_COM CLASS(#PRIM_MECL) NAME(#MECL_3) COLUMNROLE(LineContinuation) DISPLAYPOSITION(3) PARENT(#MEMO_1) SOURCE(#S_LINECTN) WIDTH(20);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Use Visual Style') DISPLAYPOSITION(2) HEIGHT(81) LAYOUTMANAGER(#FWLM_1) LEFT(480) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(400) WIDTH(193);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_1) CAPTION('default style VS_NORM') DISPLAYPOSITION(1) LEFT(18) PARENT(#GPBX_1) TABPOSITION(1) TOP(14) WIDTH(145);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_2) CAPTION('Fine print style S_197VFP') DISPLAYPOSITION(2) LEFT(18) PARENT(#GPBX_1) TABPOSITION(2) TOP(50) WIDTH(157);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_1) MANAGE(#RDBN_1) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_2) MANAGE(#RDBN_2) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) CAPTION('Use Visual Style') DISPLAYPOSITION(3) HEIGHT(113) LAYOUTMANAGER(#FWLM_2) LEFT(480) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(32) WIDTH(193);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_3) CAPTION('default style VS_NORM') DISPLAYPOSITION(1) LEFT(22) PARENT(#GPBX_2) TABPOSITION(1) TOP(13) WIDTH(143);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_4) CAPTION('URL') DISPLAYPOSITION(2) LEFT(22) PARENT(#GPBX_2) TABPOSITION(2) TOP(48) WIDTH(146);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_5) CAPTION('Selected URL') DISPLAYPOSITION(3) LEFT(22) PARENT(#GPBX_2) TABPOSITION(3) TOP(83) WIDTH(148);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_2) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#RDBN_3) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_4) MANAGE(#RDBN_4) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_5) MANAGE(#RDBN_5) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) DISPLAYPOSITION(4) HEIGHT(66) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(32) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('www.lansa.com') DISPLAYPOSITION(1) HEIGHT(17) LEFT(24) PARENT(#GPBX_3) TABPOSITION(1) TABSTOP(False) TOP(24) WIDTH(236);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_4) DISPLAYPOSITION(5) HEIGHT(89) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(5) TABSTOP(False) TOP(216) WIDTH(439);
DEFINE_COM CLASS(#TIME.Visual) NAME(#TIME) DISPLAYPOSITION(1) HEIGHT(33) LEFT(24) MARGINLEFT(0) PARENT(#GPBX_4) READONLY(True) TABPOSITION(1) TOP(32) WIDTH(123);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_5) CAPTION('Use Visual Style') DISPLAYPOSITION(6) HEIGHT(122) LAYOUTMANAGER(#FWLM_3) LEFT(480) PARENT(#COM_OWNER) TABPOSITION(6) TABSTOP(False) TOP(216) WIDTH(193);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_6) CAPTION('none') DISPLAYPOSITION(1) LEFT(14) PARENT(#GPBX_5) TABPOSITION(1) TOP(16) WIDTH(164);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_7) CAPTION('Small Digital S_197VDM') DISPLAYPOSITION(2) LEFT(14) PARENT(#GPBX_5) TABPOSITION(2) TOP(53) WIDTH(164);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_8) CAPTION('Large Digital S_197VDG') DISPLAYPOSITION(3) LEFT(14) PARENT(#GPBX_5) TABPOSITION(3) TOP(90) WIDTH(164);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_3) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_6) MANAGE(#RDBN_6) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_7) MANAGE(#RDBN_7) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_8) MANAGE(#RDBN_8) PARENT(#FWLM_3);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
;
* set URL box visual style to URL style;
set #GPBX_3 VisualStyle(#S_197VU1);
set #RDBN_4 ButtonChecked(true);
;
* set TIME box to small digital style;
set #TIME VisualStyle(#S_197VDM);
set #RDBN_7 ButtonChecked(true);
;
* set memo box visual style to default style;
set #MEMO_1 VisualStyle(#VS_NORM);
set #RDBN_1 buttonChecked(true);
;
;
* Load memo box text;
* Note #STD_TEXTL is 75 characters, and each value except the last one should be exactly 75 characters;
* Note that to make the memo box work correctly, every trailing space must be transferred to the beginning of the next line;
CHANGE #S_LINENO 1;
;
;
CHANGE #S_LINECTN 1;
* note trailing space;
CHANGE #STD_TEXTL '''The value for a data field for an item is held in one of two fields on the ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 2;
* note trailing space;
CHANGE #STD_TEXTL ''' item data field record, according to whether the data field is defined as''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 3;
CHANGE #STD_TEXTL ''' alpha or numeric. This presents various problems if the IRD administrator ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 4;
CHANGE #STD_TEXTL ''' changes the definition of the data field from alpha to numeric: The action''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 5;
CHANGE #STD_TEXTL ''' initiated from the front end needs to be capable of being performed in two''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 6;
CHANGE #STD_TEXTL ''' parts, firstly a validation pass that makes sure that all of the existing ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 7;
CHANGE #STD_TEXTL ''' values conform to the new definition, and then secondly, if valid, a pass ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 8;
CHANGE #STD_TEXTL ''' through the data that actually performs the move of the values, from one f''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 9;
* note leading space;
CHANGE #STD_TEXTL '''ield to the other.''';
ADD_ENTRY #MEMO_1;
;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_1.Click);
* set memo box to default visual style;
set #MEMO_1 VisualStyle(#VS_NORM);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_2.Click);
* set memo box to fine print style;
set #MEMO_1 VisualStyle(#S_197VFP) ;
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_3.Click);
* set field #STD_TEXT to default visual style;
set #GPBX_3 VisualStyle(#VS_NORM);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_4.Click);
* set field #STD_TEXT to URL style;
set #GPBX_3 VisualStyle(#S_197VU1);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_5.Click);
* set field #STD_TEXT to Selected URL style;
set #GPBX_3 VisualStyle(#S_197VU2);
ENDROUTINE;
EVTROUTINE HANDLING(#LABL_1.Click);
* User has clicked on a URL label;
set #GPBX_3 VisualStyle(#S_197VU2);
set #RDBN_5 ButtonChecked(true);
;
CHANGE #STD_TEXT #LABL_1.caption;
USE TCONCAT ('''http://''' #STD_TEXT) #STD_TEXT ;
;
USE BUILTIN(SYSTEM_COMMAND) WITH_ARGS(H #STD_TEXT) TO_GET(#STD_IDNO);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_6.Click);
* set field #TIME to no visual style;
set #TIME VisualStyle(*NULL) VisualStyleOfParent(FALSE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_7.Click);
* set field #TIME to small digital;
set #TIME VisualStyle(#S_197VDM) ;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_8.Click);
* set field #TIME to large digital;
set #TIME VisualStyle(#S_197VDG);
ENDROUTINE;
END_COM;
*===================================================================;
*;
* Component : S_197FD;
* Type : Form;
* Ancestor : PRIM_FORM (Primitive Form);
*;
* Description : URL, digital and fine print 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(537) LEFT(317) TOP(112) WIDTH(687);
DEFINE_COM CLASS(#PRIM_MEMO) NAME(#MEMO_1) ADDENTRYMODE(MultiplePerLine) CURRENTLINE(1) DISPLAYPOSITION(1) HEIGHT(78) LEFT(8) MAXIMUMLINELENGTH(10000) PARENT(#COM_OWNER) TABPOSITION(1) TOP(408) WIDTH(449) WORDWRAP(True);
DEFINE_COM CLASS(#PRIM_MECL) NAME(#MECL_1) COLUMNROLE(Data) DISPLAYPOSITION(1) PARENT(#MEMO_1) SOURCE(#STD_TEXTL) WIDTH(20);
DEFINE_COM CLASS(#PRIM_MECL) NAME(#MECL_2) COLUMNROLE(LineNumber) DISPLAYPOSITION(2) PARENT(#MEMO_1) SOURCE(#S_LINENO) WIDTH(20);
DEFINE_COM CLASS(#PRIM_MECL) NAME(#MECL_3) COLUMNROLE(LineContinuation) DISPLAYPOSITION(3) PARENT(#MEMO_1) SOURCE(#S_LINECTN) WIDTH(20);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_1) CAPTION('Use Visual Style') DISPLAYPOSITION(2) HEIGHT(81) LAYOUTMANAGER(#FWLM_1) LEFT(480) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(400) WIDTH(193);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_1) CAPTION('default style VS_NORM') DISPLAYPOSITION(1) LEFT(18) PARENT(#GPBX_1) TABPOSITION(1) TOP(14) WIDTH(145);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_2) CAPTION('Fine print style S_197VFP') DISPLAYPOSITION(2) LEFT(18) PARENT(#GPBX_1) TABPOSITION(2) TOP(50) WIDTH(157);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_1) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_1) MANAGE(#RDBN_1) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_2) MANAGE(#RDBN_2) PARENT(#FWLM_1);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_2) CAPTION('Use Visual Style') DISPLAYPOSITION(3) HEIGHT(113) LAYOUTMANAGER(#FWLM_2) LEFT(480) PARENT(#COM_OWNER) TABPOSITION(3) TABSTOP(False) TOP(32) WIDTH(193);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_3) CAPTION('default style VS_NORM') DISPLAYPOSITION(1) LEFT(22) PARENT(#GPBX_2) TABPOSITION(1) TOP(13) WIDTH(143);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_4) CAPTION('URL') DISPLAYPOSITION(2) LEFT(22) PARENT(#GPBX_2) TABPOSITION(2) TOP(48) WIDTH(146);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_5) CAPTION('Selected URL') DISPLAYPOSITION(3) LEFT(22) PARENT(#GPBX_2) TABPOSITION(3) TOP(83) WIDTH(148);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_2) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_3) MANAGE(#RDBN_3) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_4) MANAGE(#RDBN_4) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_5) MANAGE(#RDBN_5) PARENT(#FWLM_2);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_3) DISPLAYPOSITION(4) HEIGHT(66) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(4) TABSTOP(False) TOP(32) WIDTH(449);
DEFINE_COM CLASS(#PRIM_LABL) NAME(#LABL_1) CAPTION('www.lansa.com') DISPLAYPOSITION(1) HEIGHT(17) LEFT(24) PARENT(#GPBX_3) TABPOSITION(1) TABSTOP(False) TOP(24) WIDTH(236);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_4) DISPLAYPOSITION(5) HEIGHT(89) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(5) TABSTOP(False) TOP(216) WIDTH(439);
DEFINE_COM CLASS(#TIME.Visual) NAME(#TIME) DISPLAYPOSITION(1) HEIGHT(33) LEFT(24) MARGINLEFT(0) PARENT(#GPBX_4) READONLY(True) TABPOSITION(1) TOP(32) WIDTH(123);
DEFINE_COM CLASS(#PRIM_GPBX) NAME(#GPBX_5) CAPTION('Use Visual Style') DISPLAYPOSITION(6) HEIGHT(122) LAYOUTMANAGER(#FWLM_3) LEFT(480) PARENT(#COM_OWNER) TABPOSITION(6) TABSTOP(False) TOP(216) WIDTH(193);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_6) CAPTION('none') DISPLAYPOSITION(1) LEFT(14) PARENT(#GPBX_5) TABPOSITION(1) TOP(16) WIDTH(164);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_7) CAPTION('Small Digital S_197VDM') DISPLAYPOSITION(2) LEFT(14) PARENT(#GPBX_5) TABPOSITION(2) TOP(53) WIDTH(164);
DEFINE_COM CLASS(#PRIM_RDBN) NAME(#RDBN_8) CAPTION('Large Digital S_197VDG') DISPLAYPOSITION(3) LEFT(14) PARENT(#GPBX_5) TABPOSITION(3) TOP(90) WIDTH(164);
DEFINE_COM CLASS(#PRIM_FWLM) NAME(#FWLM_3) DIRECTION(TopToBottom) FLOWOPERATION(Center) FLOWOPERATIONVER(Spread);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_6) MANAGE(#RDBN_6) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_7) MANAGE(#RDBN_7) PARENT(#FWLM_3);
DEFINE_COM CLASS(#PRIM_FWLI) NAME(#FWLI_8) MANAGE(#RDBN_8) PARENT(#FWLM_3);
;
EVTROUTINE handling(#com_owner.Initialize);
SET #com_owner caption(*component_desc);
;
* set URL box visual style to URL style;
set #GPBX_3 VisualStyle(#S_197VU1);
set #RDBN_4 ButtonChecked(true);
;
* set TIME box to small digital style;
set #TIME VisualStyle(#S_197VDM);
set #RDBN_7 ButtonChecked(true);
;
* set memo box visual style to default style;
set #MEMO_1 VisualStyle(#VS_NORM);
set #RDBN_1 buttonChecked(true);
;
;
* Load memo box text;
* Note #STD_TEXTL is 75 characters, and each value except the last one should be exactly 75 characters;
* Note that to make the memo box work correctly, every trailing space must be transferred to the beginning of the next line;
CHANGE #S_LINENO 1;
;
;
CHANGE #S_LINECTN 1;
* note trailing space;
CHANGE #STD_TEXTL '''The value for a data field for an item is held in one of two fields on the ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 2;
* note trailing space;
CHANGE #STD_TEXTL ''' item data field record, according to whether the data field is defined as''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 3;
CHANGE #STD_TEXTL ''' alpha or numeric. This presents various problems if the IRD administrator ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 4;
CHANGE #STD_TEXTL ''' changes the definition of the data field from alpha to numeric: The action''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 5;
CHANGE #STD_TEXTL ''' initiated from the front end needs to be capable of being performed in two''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 6;
CHANGE #STD_TEXTL ''' parts, firstly a validation pass that makes sure that all of the existing ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 7;
CHANGE #STD_TEXTL ''' values conform to the new definition, and then secondly, if valid, a pass ''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 8;
CHANGE #STD_TEXTL ''' through the data that actually performs the move of the values, from one f''';
ADD_ENTRY #MEMO_1;
;
CHANGE #S_LINECTN 9;
* note leading space;
CHANGE #STD_TEXTL '''ield to the other.''';
ADD_ENTRY #MEMO_1;
;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_1.Click);
* set memo box to default visual style;
set #MEMO_1 VisualStyle(#VS_NORM);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_2.Click);
* set memo box to fine print style;
set #MEMO_1 VisualStyle(#S_197VFP) ;
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_3.Click);
* set field #STD_TEXT to default visual style;
set #GPBX_3 VisualStyle(#VS_NORM);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_4.Click);
* set field #STD_TEXT to URL style;
set #GPBX_3 VisualStyle(#S_197VU1);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_5.Click);
* set field #STD_TEXT to Selected URL style;
set #GPBX_3 VisualStyle(#S_197VU2);
ENDROUTINE;
EVTROUTINE HANDLING(#LABL_1.Click);
* User has clicked on a URL label;
set #GPBX_3 VisualStyle(#S_197VU2);
set #RDBN_5 ButtonChecked(true);
;
CHANGE #STD_TEXT #LABL_1.caption;
USE TCONCAT ('''http://''' #STD_TEXT) #STD_TEXT ;
;
USE BUILTIN(SYSTEM_COMMAND) WITH_ARGS(H #STD_TEXT) TO_GET(#STD_IDNO);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_6.Click);
* set field #TIME to no visual style;
set #TIME VisualStyle(*NULL) VisualStyleOfParent(FALSE);
ENDROUTINE;
EVTROUTINE HANDLING(#RDBN_7.Click);
* set field #TIME to small digital;
set #TIME VisualStyle(#S_197VDM) ;
ENDROUTINE;
;
EVTROUTINE HANDLING(#RDBN_8.Click);
* set field #TIME to large digital;
set #TIME VisualStyle(#S_197VDG);
ENDROUTINE;
END_COM;