$PBExportHeader$u_layout_dock1.sru forward global type u_layout_dock1 from u_explorer end type type st_2 from u_st within u_layout_dock1 end type type rb_fill from u_rb within u_layout_dock1 end type type rb_bottom from u_rb within u_layout_dock1 end type type rb_right from u_rb within u_layout_dock1 end type type rb_left from u_rb within u_layout_dock1 end type type rb_top from u_rb within u_layout_dock1 end type type gb_1 from u_gb within u_layout_dock1 end type type st_1 from u_st within u_layout_dock1 end type end forward global type u_layout_dock1 from u_explorer st_2 st_2 rb_fill rb_fill rb_bottom rb_bottom rb_right rb_right rb_left rb_left rb_top rb_top gb_1 gb_1 st_1 st_1 end type global u_layout_dock1 u_layout_dock1 forward prototypes public subroutine of_dock (readonly integer ai_docktype) end prototypes public subroutine of_dock (readonly integer ai_docktype);//for demo purposes, reset size this.SetRedraw(FALSE) st_1.Resize(329, 64) st_1.#Dock = TRUE st_1.#DockType = ai_docktype //re-apply sizing of_ResizeObjects(TRUE) this.SetRedraw(TRUE) end subroutine on u_layout_dock1.create int iCurrent call super::create this.st_2=create st_2 this.rb_fill=create rb_fill this.rb_bottom=create rb_bottom this.rb_right=create rb_right this.rb_left=create rb_left this.rb_top=create rb_top this.gb_1=create gb_1 this.st_1=create st_1 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.st_2 this.Control[iCurrent+2]=this.rb_fill this.Control[iCurrent+3]=this.rb_bottom this.Control[iCurrent+4]=this.rb_right this.Control[iCurrent+5]=this.rb_left this.Control[iCurrent+6]=this.rb_top this.Control[iCurrent+7]=this.gb_1 this.Control[iCurrent+8]=this.st_1 end on on u_layout_dock1.destroy call super::destroy destroy(this.st_2) destroy(this.rb_fill) destroy(this.rb_bottom) destroy(this.rb_right) destroy(this.rb_left) destroy(this.rb_top) destroy(this.gb_1) destroy(this.st_1) end on type st_2 from u_st within u_layout_dock1 integer x = 347 integer y = 816 integer width = 1083 string text = "Docking a Control overrides its Anchor properties" end type type rb_fill from u_rb within u_layout_dock1 integer x = 567 integer y = 672 string text = "Fill" end type event clicked;call super::clicked;of_Dock(CDock.FILL) end event type rb_bottom from u_rb within u_layout_dock1 integer x = 567 integer y = 584 string text = "Bottom" end type event clicked;call super::clicked;of_Dock(CDock.BOTTOM) end event type rb_right from u_rb within u_layout_dock1 integer x = 567 integer y = 496 string text = "Right" end type event clicked;call super::clicked;of_Dock(CDock.RIGHT) end event type rb_left from u_rb within u_layout_dock1 integer x = 567 integer y = 408 string text = "Left" end type event clicked;call super::clicked;of_Dock(CDock.LEFT) end event type rb_top from u_rb within u_layout_dock1 integer x = 567 integer y = 320 string text = "Top" end type event clicked;call super::clicked;of_Dock(CDock.TOP) end event type gb_1 from u_gb within u_layout_dock1 integer x = 475 integer y = 224 integer width = 759 integer height = 564 integer taborder = 10 string text = "Dock (Try resizing the window!)" borderstyle borderstyle = stylebox! end type type st_1 from u_st within u_layout_dock1 integer x = 1262 integer y = 272 integer width = 329 integer height = 64 string text = "Dock Me!" alignment alignment = center! boolean border = true long bordercolor = 134217857 end type
- Sources
- Kodigo
- OpenExplorer
- u_layout_dock1.sru
File: u_layout_dock1.sru
Size: 3578
Date: Mon, 07 Apr 2008 21:33:12 +0200
Size: 3578
Date: Mon, 07 Apr 2008 21:33:12 +0200
- u_explorer u_layout_dock1(sru)
- u_st st_2
- u_rb rb_fill
- u_rb rb_bottom
- u_rb rb_right
- u_rb rb_left
- u_rb rb_top
- u_gb gb_1
- u_st st_1