Form VL_SAM086: Web Browser Page Display
* ===================================================================
*
* Component : VL_SAM086
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Web Browser Page Display Example
* The following RDMLX form is used to demonstrate how a web page can be displayed
* in a Web browser.
*
* 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 Role(*EXTENDS #PRIM_FORM) Height(171) Left(21) Top(14) Width(112)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_1) Caption('LANSA') Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_2) Caption('Yahoo') Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(40)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_3) Caption('IBM') Displayposition(3) Left(8) Parent(#COM_OWNER) Tabposition(3) Top(72)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_4) Caption('Microsoft') Displayposition(4) Left(8) Parent(#COM_OWNER) Tabposition(4) Top(104)
EVTROUTINE HANDLING(#COM_OWNER.Initialize) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
SET #com_owner caption(*component_desc)
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_1.Click)
Execute GoURL ('www.lansa.com')
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_2.Click)
Execute GoURL ('www.yahoo.com')
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_3.Click)
Execute GoURL ('www.ibm.com')
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_4.Click)
Execute GoURL ('www.microsoft.com')
ENDROUTINE
Subroutine GoURL ((#URL *Received))
Define #URL RefFld(#SysVar$Av)
Define #RC RefFld(#Std_Num)
Use System_Command (H #Url) (#rc)
EndRoutine
END_COM
* ===================================================================
*
* Component : VL_SAM086
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Web Browser Page Display Example
* The following RDMLX form is used to demonstrate how a web page can be displayed
* in a Web browser.
*
* 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 Role(*EXTENDS #PRIM_FORM) Height(171) Left(21) Top(14) Width(112)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_1) Caption('LANSA') Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_2) Caption('Yahoo') Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(40)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_3) Caption('IBM') Displayposition(3) Left(8) Parent(#COM_OWNER) Tabposition(3) Top(72)
Define_Com Class(#PRIM_PHBN) Name(#PHBN_4) Caption('Microsoft') Displayposition(4) Left(8) Parent(#COM_OWNER) Tabposition(4) Top(104)
EVTROUTINE HANDLING(#COM_OWNER.Initialize) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
SET #com_owner caption(*component_desc)
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_1.Click)
Execute GoURL ('www.lansa.com')
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_2.Click)
Execute GoURL ('www.yahoo.com')
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_3.Click)
Execute GoURL ('www.ibm.com')
ENDROUTINE
EVTROUTINE HANDLING(#PHBN_4.Click)
Execute GoURL ('www.microsoft.com')
ENDROUTINE
Subroutine GoURL ((#URL *Received))
Define #URL RefFld(#SysVar$Av)
Define #RC RefFld(#Std_Num)
Use System_Command (H #Url) (#rc)
EndRoutine
END_COM