$PBExportHeader$w_main.srw forward global type w_main from Window end type type tab_main from u_tab within w_main end type type cbx_livesizing from checkbox within w_main end type type dw_bottom_right from datawindow within w_main end type type dw_bottom_left from datawindow within w_main end type type dw_top_right from datawindow within w_main end type type dw_top_left from datawindow within w_main end type type st_vertical from u_splitbar_vertical within w_main end type type st_horizontal from u_splitbar_horizontal within w_main end type type cb_close from commandbutton within w_main end type type tab_main from u_tab within w_main end type end forward global type w_main from Window int X=521 int Y=48 int Width=2674 int Height=2284 boolean TitleBar=true string Title="Demo of horizontal and vertical splitbars" long BackColor=79416533 boolean ControlMenu=true boolean MinBox=true boolean MaxBox=true boolean Resizable=true tab_main tab_main cbx_livesizing cbx_livesizing dw_bottom_right dw_bottom_right dw_bottom_left dw_bottom_left dw_top_right dw_top_right dw_top_left dw_top_left st_vertical st_vertical st_horizontal st_horizontal cb_close cb_close end type global w_main w_main type prototypes end prototypes type variables Dragobject idrg_Left Dragobject idrg_Right Long il_maxright end variables on w_main.create this.tab_main=create tab_main this.cbx_livesizing=create cbx_livesizing this.dw_bottom_right=create dw_bottom_right this.dw_bottom_left=create dw_bottom_left this.dw_top_right=create dw_top_right this.dw_top_left=create dw_top_left this.st_vertical=create st_vertical this.st_horizontal=create st_horizontal this.cb_close=create cb_close this.Control[]={this.tab_main,& this.cbx_livesizing,& this.dw_bottom_right,& this.dw_bottom_left,& this.dw_top_right,& this.dw_top_left,& this.st_vertical,& this.st_horizontal,& this.cb_close} end on on w_main.destroy destroy(this.tab_main) destroy(this.cbx_livesizing) destroy(this.dw_bottom_right) destroy(this.dw_bottom_left) destroy(this.dw_top_right) destroy(this.dw_top_left) destroy(this.st_vertical) destroy(this.st_horizontal) destroy(this.cb_close) end on event open;// register objects with horizontal splitbar st_horizontal.of_set_topobject(dw_top_left) st_horizontal.of_set_topobject(dw_top_right) st_horizontal.of_set_bottomobject(dw_bottom_left) st_horizontal.of_set_bottomobject(dw_bottom_right) st_horizontal.of_set_minsize(250, 250) // register objects with vertical splitbar st_vertical.of_set_leftobject(dw_top_left) st_vertical.of_set_leftobject(dw_bottom_left) st_vertical.of_set_rightobject(dw_top_right) st_vertical.of_set_rightobject(dw_bottom_right) st_vertical.of_set_minsize(250, 250) // trigger event on tab control tab_main.TriggerEvent("ue_postopen") end event type tab_main from u_tab within w_main int X=37 int Y=1408 int Width=2126 int TabOrder=50 end type type cbx_livesizing from checkbox within w_main int X=2231 int Y=192 int Width=334 int Height=76 string Text="Live Sizing" BorderStyle BorderStyle=StyleLowered! boolean LeftText=true long TextColor=33554432 long BackColor=67108864 int TextSize=-8 int Weight=400 string FaceName="MS Sans Serif" FontCharSet FontCharSet=Ansi! FontFamily FontFamily=Swiss! FontPitch FontPitch=Variable! end type event clicked;st_horizontal.of_set_livesizing(this.Checked) st_vertical.of_set_livesizing(this.Checked) end event type dw_bottom_right from datawindow within w_main int X=1262 int Y=468 int Width=901 int Height=912 int TabOrder=40 BorderStyle BorderStyle=StyleLowered! boolean HScrollBar=true boolean VScrollBar=true boolean LiveScroll=true end type event constructor;this.DataObject = "d_employees.psr" end event type dw_bottom_left from datawindow within w_main int X=37 int Y=468 int Width=1207 int Height=912 int TabOrder=30 BorderStyle BorderStyle=StyleLowered! boolean HScrollBar=true boolean VScrollBar=true boolean LiveScroll=true end type event constructor;this.DataObject = "d_employees.psr" end event type dw_top_right from datawindow within w_main int X=1262 int Y=32 int Width=901 int Height=416 int TabOrder=20 BorderStyle BorderStyle=StyleLowered! boolean HScrollBar=true boolean VScrollBar=true boolean LiveScroll=true end type event constructor;this.DataObject = "d_employees.psr" end event type dw_top_left from datawindow within w_main int X=37 int Y=32 int Width=1207 int Height=416 int TabOrder=10 BorderStyle BorderStyle=StyleLowered! boolean HScrollBar=true boolean VScrollBar=true boolean LiveScroll=true end type event constructor;this.DataObject = "d_employees.psr" end event type st_vertical from u_splitbar_vertical within w_main int X=1243 int Y=32 int Height=1348 end type event constructor;call super::constructor;// restore location from registry this.of_get_location() end event event destructor;call super::destructor;// save location into registry this.of_set_location() end event type st_horizontal from u_splitbar_horizontal within w_main int X=37 int Y=448 int Width=2126 end type event constructor;call super::constructor;// restore location from registry this.of_get_location() end event event destructor;call super::destructor;// save location into registry this.of_set_location() end event type cb_close from commandbutton within w_main int X=2231 int Y=32 int Width=334 int Height=100 int TabOrder=60 string Text="Close" boolean Cancel=true int TextSize=-8 int Weight=400 string FaceName="MS Sans Serif" FontCharSet FontCharSet=Ansi! FontFamily FontFamily=Swiss! FontPitch FontPitch=Variable! end type event clicked;Close(Parent) end event
File: w_main.srw
Size: 5835
Date: Mon, 31 Dec 2018 21:14:39 +0100
Size: 5835
Date: Mon, 31 Dec 2018 21:14:39 +0100
- Window w_main(srw)
- u_tab tab_main
- checkbox cbx_livesizing
- datawindow dw_bottom_right
- datawindow dw_bottom_left
- datawindow dw_top_right
- datawindow dw_top_left
- u_splitbar_vertical st_vertical
- u_splitbar_horizontal st_horizontal
- commandbutton cb_close