Default Appearance
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(119) Clientwidth(336) Componentversion(1) Height(157) Left(175) Top(215) Width(352)
Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Componentversion(1) Displayposition(1) Left(8) Marginleft(130) Parent(#COM_OWNER) Tabposition(1) Top(8)
Define_Com Class(#SURNAME.Visual) Name(#SURNAME) Componentversion(1) Displayposition(2) Left(8) Marginleft(130) Parent(#COM_OWNER) Tabposition(2) Top(32)
Define_Com Class(#GIVENAME.Visual) Name(#GIVENAME) Componentversion(1) Displayposition(3) Left(8) Marginleft(130) Parent(#COM_OWNER) Tabposition(3) Top(56)
Define_Com Class(#PRIM_PHBN) Name(#OK) Buttondefault(True) Caption('&OK') Displayposition(4) Left(164) Parent(#COM_OWNER) Tabposition(4) Top(88)
Define_Com Class(#PRIM_PHBN) Name(#Cancel) Buttoncancel(True) Caption('&Cancel') Displayposition(5) Left(252) Parent(#COM_OWNER) Tabposition(5) Top(88)
Evtroutine Handling(#Com_owner.CreateInstance)
Case (#sys_appln.RenderStyle)
When (= DirectX)
#Com_owner.Caption := "DirectX"
When (= Win32)
#Com_owner.Caption := "Win32"
Endcase
Endroutine
End_Com