$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
- Sources
- Kodigo
- OpenExplorer
- u_sizegrip.sru
File: u_sizegrip.sru
Size: 860
Date: Mon, 07 Apr 2008 21:31:01 +0200
Size: 860
Date: Mon, 07 Apr 2008 21:31:01 +0200
- u_vsb u_sizegrip(sru)