PBMiner

$PBExportHeader$u_tab_main.sru
forward
global type u_tab_main from u_base_tab
end type
type tabpage_browser from u_tabpg_browse within u_tab_main
end type
type tabpage_browser from u_tabpg_browse within u_tab_main
end type
type tabpage_design from u_tabpg_design within u_tab_main
end type
type tabpage_design from u_tabpg_design within u_tab_main
end type
type tabpage_view from u_tabpg_view within u_tab_main
end type
type tabpage_view from u_tabpg_view within u_tab_main
end type
type tabpage_source from u_tabpg_source within u_tab_main
end type
type tabpage_source from u_tabpg_source within u_tab_main
end type
end forward

global type u_tab_main from u_base_tab
tabpage_browser tabpage_browser
tabpage_design tabpage_design
tabpage_view tabpage_view
tabpage_source tabpage_source
event m_internetproperties ( )
end type
global u_tab_main u_tab_main

type prototypes
Function long ShellExecute ( &
   long hwnd, &
   string lpVerb, &
   string lpFile, &
   string lpParameters, &
   string lpDirectory, &
   long nShowCmd &
   ) Library "shell32.dll" Alias For "ShellExecuteW"

end prototypes
forward prototypes
public function u_tabpg_design of_getdesign ()
public function u_tabpg_view of_getview ()
public function u_tabpg_source of_getsource ()
end prototypes

event m_internetproperties;Long ll_hwnd, ll_size
String ls_code, ls_verb, ls_parms
String ls_dirname, ls_system

ll_hwnd = Handle(this)

ls_code = "inetcpl.cpl"

ShellExecute(ll_hwnd, ls_verb, &
         "rundll32.exe", &
         "shell32.dll,Control_RunDLL " + &
         ls_code + ",", ls_dirname, 1)

end event

public function u_tabpg_design of_getdesign ();// return tabpage ref
Return tabpage_design

end function

public function u_tabpg_view of_getview ();// return tabpage ref
Return tabpage_view

end function

public function u_tabpg_source of_getsource ();// return tabpage ref
Return tabpage_source

end function

on u_tab_main.create
this.tabpage_browser=create tabpage_browser
this.tabpage_design=create tabpage_design
this.tabpage_view=create tabpage_view
this.tabpage_source=create tabpage_source
int iCurrent
call super::create
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.tabpage_browser
this.Control[iCurrent+2]=this.tabpage_design
this.Control[iCurrent+3]=this.tabpage_view
this.Control[iCurrent+4]=this.tabpage_source
end on

on u_tab_main.destroy
call super::destroy
destroy(this.tabpage_browser)
destroy(this.tabpage_design)
destroy(this.tabpage_view)
destroy(this.tabpage_source)
end on

type tabpage_browser from u_tabpg_browse within u_tab_main
integer x = 18
integer y = 100
integer height = 1648
end type

type tabpage_design from u_tabpg_design within u_tab_main
integer x = 18
integer y = 100
integer height = 1648
end type

type tabpage_view from u_tabpg_view within u_tab_main
integer x = 18
integer y = 100
integer height = 1648
end type

type tabpage_source from u_tabpg_source within u_tab_main
integer x = 18
integer y = 100
integer height = 1648
end type