Win32 & DirectX (ActiveX and Graphs)
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(574) Clientwidth(965) Componentversion(1) Height(612) Left(112) Top(184) Width(981)
Define_Com Class(#PRIM_PANL) Name(#Panel) Displayposition(1) Height(481) Horizontalscroll(True) Left(80) Parent(#COM_OWNER) Style(#Style_1) Tabposition(1) Tabstop(False) Top(56) Verticalscroll(True) Width(793)
Define_Com Class(#VA_WEBCTL.WebBrowser) Name(#Browser) Displayposition(1) Height(600) Left(0) Parent(#Panel) Tabposition(1) Top(0) Width(775)
Define_Com Class(#PRIM_VS.Style) Name(#Style_1) Backgroundbrush(#RadialBrush_1)
Define_Com Class(#PRIM_VS.BrushColors) Name(#BrushColors_1)
Define_Com Class(#PRIM_VS.BrushColor) Name(#BrushColor_1) At(25) Color(255:255:255) Parent(#BrushColors_1)
Define_Com Class(#PRIM_VS.BrushColor) Name(#BrushColor_2) At(100) Color(32:155:204) Parent(#BrushColors_1)
Define_Com Class(#PRIM_VS.RadialBrush) Name(#RadialBrush_1) Colors(#BrushColors_1) Originleft(100) Origintop(100) Radiusleft(125) Radiustop(125)
Evtroutine Handling(#Com_owner.CreateInstance)
Case (#sys_appln.RenderStyle)
When (= DirectX)
#Com_owner.Caption := "DirectX"
When (= Win32)
#Com_owner.Caption := "Win32"
Endcase
Endroutine
Evtroutine Handling(#Com_owner.initialize)
#Browser.Navigate( www.lansa.com )
Endroutine
End_Com