Form S_174FRB: Display Various Document Types
* ===================================================================
*
* Component : S_174FBR
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Display various document types
*
* 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 CAPTION('S_174FBR') FORMPOSITION(ScreenCenter) HEIGHT(488) LAYOUTMANAGER(#SPLM_1) LEFT(444) TOP(147) WIDTH(604)
DEFINE_COM CLASS(#PRIM_SPLM) NAME(#SPLM_1)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_1) DISPLAYPOSITION(1) HEIGHT(129) LAYOUTMANAGER(#SPLM_2) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(596)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_2) DISPLAYPOSITION(2) HEIGHT(306) LAYOUTMANAGER(#ATLM_3) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(133) WIDTH(596)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_1) MANAGE(#PANL_1) PARENT(#SPLM_1) WEIGHT(1)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_2) MANAGE(#PANL_2) PARENT(#SPLM_1)
DEFINE_COM CLASS(#PRIM_SPLM) NAME(#SPLM_2) ORIENTATION(Vertical)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_3) DISPLAYPOSITION(1) HEIGHT(129) LAYOUTMANAGER(#ATLM_1) LEFT(0) PARENT(#PANL_1) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(176)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_4) DISPLAYPOSITION(2) HEIGHT(129) LAYOUTMANAGER(#ATLM_2) LEFT(180) PARENT(#PANL_1) TABPOSITION(2) TABSTOP(False) TOP(0) WIDTH(416)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_3) MANAGE(#PANL_3) PARENT(#SPLM_2)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_4) MANAGE(#PANL_4) PARENT(#SPLM_2) WEIGHT(1)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_2)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_3)
DEFINE_COM CLASS(#PRIM_DCBX) NAME(#DCBX_1) DISPLAYPOSITION(1) FILEINCLUDEMASK('"*.*"') HEIGHT(129) LEFT(0) NOTIFYCOMPONENT(#DCBX_2) PARENT(#PANL_3) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(176)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Center) MANAGE(#DCBX_1) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_DCBX) NAME(#DCBX_2) DISPLAYPOSITION(1) DISPLAYSTYLE(FileListBox) FILEINCLUDEMASK('"*.*"') HEIGHT(129) LEFT(0) PARENT(#PANL_4) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(416)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_2) ATTACHMENT(Center) MANAGE(#DCBX_2) PARENT(#ATLM_2)
DEFINE_COM CLASS(#S_174RWB) NAME(#BROWSER) HEIGHT(306) PARENT(#PANL_2) TABSTOP(False) WIDTH(596)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_3) ATTACHMENT(Center) MANAGE(#BROWSER) PARENT(#ATLM_3)
DEFINE_COM CLASS(#STD_TEXTL.Visual) NAME(#STD_TEXTL) DISPLAYPOSITION(3) HEIGHT(18) MARGINLEFT(0) PARENT(#COM_OWNER) READONLY(True) TABPOSITION(3) TOP(443) VISUALSTYLE(#VS_NOREAD) WIDTH(596)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_5) MANAGE(#STD_TEXTL) PARENT(#SPLM_1)
Define #Busy RefFld(#Std_Bool) Default(False)
EVTROUTINE handling(#com_owner.Initialize)
SET #com_owner caption(*component_desc)
Set #DcbX_2 FileIncludeMask('"*.htm;*.html;*.gif;*.doc;*.ppt;*.xls"')
ENDROUTINE
EVTROUTINE HANDLING(#DCBX_2.ItemGotFocus) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
If '(#DCBX_2.PathType = FILE) *and (#Busy = False)'
Use TConcat (#DCBX_2.Path #DCBX_2.FileName) (#SysVar$av)
Invoke #Browser.uShow URL(#SysVar$av)
Endif
ENDROUTINE
EVTROUTINE HANDLING(#BROWSER.uLoadStarted) ForDocument(#ForDocument)
Change #Busy True
Use BConcat ('Loading' #ForDocument.Value '- please wait') (#Std_TextL)
Invoke #Std_TextL.UpdateDisplay
ENDROUTINE
EVTROUTINE HANDLING(#BROWSER.uLoadEnded) ForDocument(#ForDocument)
Change #Busy False
Change #Std_textL #ForDocument.Value
Invoke #Std_TextL.UpdateDisplay
ENDROUTINE
END_COM
* ===================================================================
*
* Component : S_174FBR
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Display various document types
*
* 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 CAPTION('S_174FBR') FORMPOSITION(ScreenCenter) HEIGHT(488) LAYOUTMANAGER(#SPLM_1) LEFT(444) TOP(147) WIDTH(604)
DEFINE_COM CLASS(#PRIM_SPLM) NAME(#SPLM_1)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_1) DISPLAYPOSITION(1) HEIGHT(129) LAYOUTMANAGER(#SPLM_2) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(596)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_2) DISPLAYPOSITION(2) HEIGHT(306) LAYOUTMANAGER(#ATLM_3) LEFT(0) PARENT(#COM_OWNER) TABPOSITION(2) TABSTOP(False) TOP(133) WIDTH(596)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_1) MANAGE(#PANL_1) PARENT(#SPLM_1) WEIGHT(1)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_2) MANAGE(#PANL_2) PARENT(#SPLM_1)
DEFINE_COM CLASS(#PRIM_SPLM) NAME(#SPLM_2) ORIENTATION(Vertical)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_3) DISPLAYPOSITION(1) HEIGHT(129) LAYOUTMANAGER(#ATLM_1) LEFT(0) PARENT(#PANL_1) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(176)
DEFINE_COM CLASS(#PRIM_PANL) NAME(#PANL_4) DISPLAYPOSITION(2) HEIGHT(129) LAYOUTMANAGER(#ATLM_2) LEFT(180) PARENT(#PANL_1) TABPOSITION(2) TABSTOP(False) TOP(0) WIDTH(416)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_3) MANAGE(#PANL_3) PARENT(#SPLM_2)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_4) MANAGE(#PANL_4) PARENT(#SPLM_2) WEIGHT(1)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_1)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_2)
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATLM_3)
DEFINE_COM CLASS(#PRIM_DCBX) NAME(#DCBX_1) DISPLAYPOSITION(1) FILEINCLUDEMASK('"*.*"') HEIGHT(129) LEFT(0) NOTIFYCOMPONENT(#DCBX_2) PARENT(#PANL_3) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(176)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_1) ATTACHMENT(Center) MANAGE(#DCBX_1) PARENT(#ATLM_1)
DEFINE_COM CLASS(#PRIM_DCBX) NAME(#DCBX_2) DISPLAYPOSITION(1) DISPLAYSTYLE(FileListBox) FILEINCLUDEMASK('"*.*"') HEIGHT(129) LEFT(0) PARENT(#PANL_4) TABPOSITION(1) TABSTOP(False) TOP(0) WIDTH(416)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_2) ATTACHMENT(Center) MANAGE(#DCBX_2) PARENT(#ATLM_2)
DEFINE_COM CLASS(#S_174RWB) NAME(#BROWSER) HEIGHT(306) PARENT(#PANL_2) TABSTOP(False) WIDTH(596)
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#ATLI_3) ATTACHMENT(Center) MANAGE(#BROWSER) PARENT(#ATLM_3)
DEFINE_COM CLASS(#STD_TEXTL.Visual) NAME(#STD_TEXTL) DISPLAYPOSITION(3) HEIGHT(18) MARGINLEFT(0) PARENT(#COM_OWNER) READONLY(True) TABPOSITION(3) TOP(443) VISUALSTYLE(#VS_NOREAD) WIDTH(596)
DEFINE_COM CLASS(#PRIM_SPLI) NAME(#SPLI_5) MANAGE(#STD_TEXTL) PARENT(#SPLM_1)
Define #Busy RefFld(#Std_Bool) Default(False)
EVTROUTINE handling(#com_owner.Initialize)
SET #com_owner caption(*component_desc)
Set #DcbX_2 FileIncludeMask('"*.htm;*.html;*.gif;*.doc;*.ppt;*.xls"')
ENDROUTINE
EVTROUTINE HANDLING(#DCBX_2.ItemGotFocus) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
If '(#DCBX_2.PathType = FILE) *and (#Busy = False)'
Use TConcat (#DCBX_2.Path #DCBX_2.FileName) (#SysVar$av)
Invoke #Browser.uShow URL(#SysVar$av)
Endif
ENDROUTINE
EVTROUTINE HANDLING(#BROWSER.uLoadStarted) ForDocument(#ForDocument)
Change #Busy True
Use BConcat ('Loading' #ForDocument.Value '- please wait') (#Std_TextL)
Invoke #Std_TextL.UpdateDisplay
ENDROUTINE
EVTROUTINE HANDLING(#BROWSER.uLoadEnded) ForDocument(#ForDocument)
Change #Busy False
Change #Std_textL #ForDocument.Value
Invoke #Std_TextL.UpdateDisplay
ENDROUTINE
END_COM