VFW112 Appendix

VLF Windows Application Development

VFW112 – Appendix

To define the user interface, use the following code to replace the code for iiiVFW38. This code is supplied to save time:

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #VF_AC010) Height(270) Layoutmanager(#SPLM_1) Width(500)
Define_Com Class(#PRIM_SPLM) Name(#SPLM_1) Dividerstyle(Raised) Orientation(Vertical)
Define_Com Class(#PRIM_PANL) Name(#LEFT) Displayposition(1) Height(270) Layoutmanager(#ATLM_1) Left(0) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(0) Width(230)
Define_Com Class(#PRIM_PANL) Name(#RIGHT) Displayposition(2) Height(270) Layoutmanager(#ATLM_1) Left(238) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(0) Width(262)
Define_Com Class(#PRIM_SPLI) Name(#SPLI_1) Manage(#LEFT) Parent(#SPLM_1) Weight(1)
Define_Com Class(#PRIM_SPLI) Name(#SPLI_2) Manage(#RIGHT) Parent(#SPLM_1)
Define_Com Class(#PRIM_ATLM) Name(#ATLM_1)
Define_Com Class(#PRIM_PANL) Name(#LEFT_TOP) Displayposition(1) Height(33) Left(0) Parent(#LEFT) Tabposition(1) Tabstop(False) Top(0) Width(230)
Define_Com Class(#PRIM_ATLI) Name(#ATLI_1) Attachment(Top) Manage(#LEFT_TOP) Parent(#ATLM_1)
Define_Com Class(#PRIM_PANL) Name(#LEFT_BOTTOM) Displayposition(2) Height(40) Left(0) Parent(#LEFT) Tabposition(2) Tabstop(False) Top(230) Width(230)
Define_Com Class(#PRIM_ATLI) Name(#ATLI_2) Attachment(Bottom) Manage(#LEFT_BOTTOM) Parent(#ATLM_1)
Define_Com Class(#PRIM_LTVW) Name(#DRAG_FROM) Componentversion(2) Displayposition(3) Dragstyle(Automatic) Fullrowselect(True) Height(197) Keyboardpositioning(SortColumn) Left(0) Parent(#LEFT) Showsortarrow(True) Tabposition(3) Top(33) Width(230)
Define_Com Class(#PRIM_ATLI) Name(#ATLI_3) Attachment(Center) Manage(#DRAG_FROM) Parent(#ATLM_1)
Define_Com Class(#PRIM_PANL) Name(#RIGHT_TOP) Displayposition(2) Height(33) Left(0) Parent(#RIGHT) Tabposition(2) Tabstop(False) Top(0) Width(262)
Define_Com Class(#PRIM_ATLI) Name(#ATLI_4) Attachment(Top) Manage(#RIGHT_TOP) Parent(#ATLM_1)
Define_Com Class(#PRIM_PANL) Name(#RIGHT_BOTTOM) Displayposition(3) Height(40) Left(0) Parent(#RIGHT) Tabposition(3) Tabstop(False) Top(230) Width(262)
Define_Com Class(#PRIM_ATLI) Name(#ATLI_5) Attachment(Bottom) Manage(#RIGHT_BOTTOM) Parent(#ATLM_1)
Define_Com Class(#PRIM_LABL) Name(#LABL_1) Caption('Drag Employees from here') Displayposition(1) Height(30) Left(14) Parent(#LEFT_TOP) Tabposition(1) Tabstop(False) Visualstyle(#VS_LAREM) Width(227)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_REFRESH) Caption('Refresh') Displayposition(1) Left(32) Parent(#LEFT_BOTTOM) Tabposition(1) Top(4) Width(193)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_SAVE) Caption('Save to Employee File') Displayposition(1) Left(40) Parent(#RIGHT_BOTTOM) Tabposition(1) Top(5) Width(185)
Define_Com Class(#PRIM_LABL) Name(#LABL_2) Caption('Section Employees') Displayposition(1) Height(30) Left(30) Parent(#RIGHT_TOP) Tabposition(1) Tabstop(False) Visualstyle(#VS_LAREM) Width(211)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_1) Caption('Dept.') Captiontype(Caption) Displayposition(1) Parent(#DRAG_FROM) Source(#DEPTMENT)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_2) Caption('Sect.') Captiontype(Caption) Displayposition(2) Parent(#DRAG_FROM) Source(#SECTION)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_3) Caption('Number') Captiontype(Caption) Displayposition(3) Parent(#DRAG_FROM) Source(#EMPNO)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_4) Caption('Full Name') Captiontype(Caption) Displayposition(4) Parent(#DRAG_FROM) Source(#FULLNAME) Widthtype(Remainder)
* Change the following line using your initials
Define_Com Class(#IIIVFW38) Name(#DRAG_TO) Height(197) Parent(#RIGHT) Top(33) Width(262)
Define_Com Class(#PRIM_ATLI) Name(#ATLI_7) Attachment(Center) Parent(#ATLM_1)
Define_Com Class(#PRIM_ATLI) Name(#ATLI_6) Attachment(Center) Manage(#DRAG_TO) Parent(#ATLM_1)
End_Com