HA$PBExportHeader$pfc_u_st_hsplitbar.sru $PBExportComments$The UserObject that is used as the Horizontal Split Bar. forward global type pfc_u_st_hsplitbar from statictext end type end forward global type pfc_u_st_hsplitbar from statictext int Width=23 int Height=957 boolean FocusRectangle=false long BackColor=12632256 string Pointer="Split.cur" int TextSize=-10 int Weight=400 string FaceName="Arial" FontFamily FontFamily=Swiss! FontPitch FontPitch=Variable! event lbuttonup pbm_lbuttonup event lbuttondown pbm_lbuttondown event mousemove pbm_mousemove end type global pfc_u_st_hsplitbar pfc_u_st_hsplitbar type variables Private: boolean ib_dragable dragobject idrg_leftpane dragobject idrg_rightpane end variables event lbuttonup;ib_dragable = FALSE parent.TriggerEvent (resize!) end event event lbuttondown;ib_dragable = TRUE this.SetPosition (ToTop!) end event event mousemove;IF ib_dragable THEN integer li_pointerx integer li_workspacewidth WINDOW lw_parent lw_parent = PARENT li_pointerx = lw_parent.PointerX ( ) li_workspacewidth = lw_parent.WorkSpaceWidth ( ) CHOOSE CASE li_pointerx CASE IS < 150 this.X = 150 CASE IS > (li_workspacewidth - 150) this.X = li_workspacewidth - 150 CASE ELSE this.X = li_pointerx END CHOOSE END IF end event event constructor;this.y = 1 this.width = 23 end event
File: pfc_u_st_hsplitbar.sru
Size: 1424
Date: Sat, 23 Mar 2013 16:23:01 +0100
Size: 1424
Date: Sat, 23 Mar 2013 16:23:01 +0100
- statictext pfc_u_st_hsplitbar(sru)