$PBExportHeader$u_hpb.sru $PBExportComments$Base HorizontalProgressBar Object forward global type u_hpb from hprogressbar end type end forward global type u_hpb from hprogressbar integer width = 622 integer height = 68 unsignedinteger maxposition = 100 unsignedinteger position = 50 integer setstep = 10 end type global u_hpb u_hpb type variables Public: //Size Order Long #SizeOrder //Anchoring Boolean #AnchorTop Boolean #AnchorLeft Boolean #AnchorRight Boolean #AnchorBottom //Docking Boolean #Dock //Dock Padding Long #DockType, #DockPadTop, #DockPadLeft, #DockPadRight, #DockPadBottom //Dock control reference String #Dock_Control_Top, #Dock_Control_Left, #Dock_Control_Right, #Dock_Control_Bottom Private: str_resize istr_resize CONSTANT long PBS_SMOOTH = 1 CONSTANT long PBS_MARQUEE = 8 CONSTANT long PBM_SETBARCOLOR = 1024 + 9 CONSTANT long PBM_SETBACKCOLOR = 8192 + 1 CONSTANT long PBM_SETMARQUEE = 1024 + 10 end variables forward prototypes public function str_resize of_getresizeattrib () public subroutine of_setmarquee (readonly boolean ab_set) public subroutine of_setbarcolor (readonly long al_color) public subroutine of_setbackcolor (readonly long al_color) end prototypes public function str_resize of_getresizeattrib ();istr_resize.Control = this istr_resize.ControlName = ClassName(this) istr_resize.SizeOrder = #SizeOrder istr_resize.SizeOrder = #SizeOrder istr_resize.Dock = #Dock istr_resize.DockType = #DockType istr_resize.DockPadTop = #DockPadTop istr_resize.DockPadLeft = #DockPadLeft istr_resize.DockPadRight = #DockPadRight istr_resize.DockPadBottom = #DockPadBottom istr_resize.AnchorTop = #AnchorTop istr_resize.AnchorLeft = #AnchorLeft istr_resize.AnchorRight = #Anchorright istr_resize.AnchorBottom = #Anchorbottom istr_resize.reftop = #Dock_Control_top istr_resize.refleft = #Dock_Control_left istr_resize.refright = #Dock_Control_right istr_resize.refbottom = #Dock_Control_bottom istr_resize.bounds.left = X istr_resize.bounds.top = Y istr_resize.bounds.right = width istr_resize.bounds.bottom = height RETURN istr_resize end function public subroutine of_setmarquee (readonly boolean ab_set);n_svc_mgr lnv_svc n_svc_system lnv_sys n_svc_win32 lnv_w n_svc_bit lnv_b ulong ll lnv_svc.of_LoadSvc(lnv_sys, CSvc.SYS) IF NOT lnv_sys.of_IsXP() THEN RETURN lnv_svc.of_LoadSvc(lnv_w, CSvc.WIN32) lnv_svc.of_LoadSvc(lnv_b, CSvc.BIT) ll = lnv_w.GetWindowlong(Handle(this), CWin32.GWL_STYLE) IF ab_set THEN ll = lnv_b.of_BitWiseOR({ll, PBS_MARQUEE}) lnv_w.SetWindowLong(Handle(this), CWin32.GWL_STYLE, ll) Send(Handle(this), PBM_SETMARQUEE, 1, 0) ELSE IF SmoothScroll THEN ll = lnv_b.of_BitWiseOR({ll, PBS_SMOOTH}) END IF lnv_w.SetWindowLong(Handle(this), CWin32.GWL_STYLE, ll) Send(Handle(this), PBM_SETMARQUEE, 0, 0) END IF end subroutine public subroutine of_setbarcolor (readonly long al_color);Send(Handle(this), PBM_SETBARCOLOR, 0, al_color) end subroutine public subroutine of_setbackcolor (readonly long al_color);Send(Handle(this), PBM_SETBACKCOLOR, 0, al_color) end subroutine on u_hpb.create end on on u_hpb.destroy end on
- Sources
- Kodigo
- OpenExplorer
- u_hpb.sru
File: u_hpb.sru
Size: 3197
Date: Mon, 07 Apr 2008 21:30:47 +0200
Size: 3197
Date: Mon, 07 Apr 2008 21:30:47 +0200