PBMiner

$PBExportHeader$u_sizegrip.sru
forward
global type u_sizegrip from u_vsb
end type
end forward

global type u_sizegrip from u_vsb
event ke_constructor ( )
end type
global u_sizegrip u_sizegrip

event ke_constructor();n_svc_mgr lnv_svcman
n_svc_win32 lnv_win32
ulong ll_style

lnv_svcman.of_loadsvc(lnv_win32, CSvc.WIN32) 

ll_style = lnv_win32.GetWindowLong(handle(this), CWin32.GWL_STYLE)
IF ll_style <> 0 THEN
   IF lnv_win32.SetWindowLong(handle(this), CWin32.GWL_STYLE, ll_style +  CWin32.SBS_SIZEGRIP) <> 0 THEN
      width = (PixelsToUnits(lnv_win32.GetSystemMetrics(CWin32.SM_CXHSCROLL) , XPixelsToUnits!))
      height = (PixelsToUnits( lnv_win32.GetSystemMetrics(CWin32.SM_CYHSCROLL), YPixelsToUnits!))
   END IF   
END IF
end event

on u_sizegrip.create
call super::create
end on

on u_sizegrip.destroy
call super::destroy
end on