$PBExportHeader$u_tabpage.sru forward global type u_tabpage from UserObject end type type cbx_livesizing from checkbox within u_tabpage end type type dw_right from datawindow within u_tabpage end type type dw_left from datawindow within u_tabpage end type type st_splitbar from u_splitbar_vertical within u_tabpage end type end forward global type u_tabpage from UserObject int Width=2135 int Height=588 boolean Border=true long BackColor=79416533 long PictureMaskColor=553648127 long TabTextColor=33554432 long TabBackColor=79416533 string Text="Tabpage" event ue_postopen ( ) cbx_livesizing cbx_livesizing dw_right dw_right dw_left dw_left st_splitbar st_splitbar end type global u_tabpage u_tabpage event ue_postopen;// set main drag objects st_splitbar.of_set_leftobject(dw_left) st_splitbar.of_set_rightobject(dw_right) end event on u_tabpage.create this.cbx_livesizing=create cbx_livesizing this.dw_right=create dw_right this.dw_left=create dw_left this.st_splitbar=create st_splitbar this.Control[]={this.cbx_livesizing,& this.dw_right,& this.dw_left,& this.st_splitbar} end on on u_tabpage.destroy destroy(this.cbx_livesizing) destroy(this.dw_right) destroy(this.dw_left) destroy(this.st_splitbar) end on type cbx_livesizing from checkbox within u_tabpage int X=1719 int Y=480 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_splitbar.of_set_livesizing(this.Checked) end event type dw_right from datawindow within u_tabpage int X=969 int Y=32 int Width=1083 int Height=420 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_left from datawindow within u_tabpage int X=37 int Y=32 int Width=914 int Height=420 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_splitbar from u_splitbar_vertical within u_tabpage int X=951 int Y=32 int Height=420 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
File: u_tabpage.sru
Size: 2723
Date: Mon, 31 Dec 2018 21:14:39 +0100
Size: 2723
Date: Mon, 31 Dec 2018 21:14:39 +0100
- UserObject u_tabpage(sru)
- checkbox cbx_livesizing
- datawindow dw_right
- datawindow dw_left
- u_splitbar_vertical st_splitbar