paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 06:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: cleanup

Browse Source 
git-svn-id: trunk@29279 -
This commit is contained in:
paul 2011-02-01 05:41:35 +00:00
parent c2aca4cd85
commit bc0c4be8ea
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32proc.pp
View File

@ -87,8 +87,8 @@ procedure CallEvent(const Target: TObject; Event: TNotifyEvent;
function ObjectToHWND(const AObject: TObject): HWND; function ObjectToHWND(const AObject: TObject): HWND;
function LCLControlSizeNeedsUpdate(Sender: TWinControl; function LCLControlSizeNeedsUpdate(Sender: TWinControl;
SendSizeMsgOnDiff: boolean): boolean; SendSizeMsgOnDiff: boolean): boolean;
function GetLCLClientBoundsOffset(Sender: TObject; var ORect: TRect): boolean; function GetLCLClientBoundsOffset(Sender: TObject; out ORect: TRect): boolean;
function GetLCLClientBoundsOffset(Handle: HWnd; var Rect: TRect): boolean; function GetLCLClientBoundsOffset(Handle: HWnd; out Rect: TRect): boolean;
procedure LCLBoundsToWin32Bounds(Sender: TObject; procedure LCLBoundsToWin32Bounds(Sender: TObject;
var Left, Top, Width, Height: Integer); var Left, Top, Width, Height: Integer);
procedure Win32PosToLCLPos(Sender: TObject; var Left, Top: SmallInt); procedure Win32PosToLCLPos(Sender: TObject; var Left, Top: SmallInt);
@ -782,7 +782,7 @@ end;
height. height.
It is used in GetClientBounds to define LCL bounds from win32 bounds. It is used in GetClientBounds to define LCL bounds from win32 bounds.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
function GetLCLClientBoundsOffset(Sender: TObject; var ORect: TRect): boolean; function GetLCLClientBoundsOffset(Sender: TObject; out ORect: TRect): boolean;
var var
TM: TextMetricA; TM: TextMetricA;
DC: HDC; DC: HDC;
@ -846,7 +846,7 @@ begin
Result := True; Result := True;
end; end;
function GetLCLClientBoundsOffset(Handle: HWnd; var Rect: TRect): boolean; function GetLCLClientBoundsOffset(Handle: HWnd; out Rect: TRect): boolean;
var var
OwnerObject: TObject; OwnerObject: TObject;
begin begin

2
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -143,7 +143,7 @@ procedure SetStdBiDiModeParams(const AWinControl: TWinControl; var Params:TCreat
implementation implementation
uses uses
Win32Int, Win32WSButtons; Win32Int;
{ Global helper routines } { Global helper routines }

2
lcl/interfaces/win32/win32wsforms.pp
View File

@ -283,7 +283,7 @@ begin
FlagsEx := FlagsEx or CalcBorderIconsFlagsEx(AForm); FlagsEx := FlagsEx or CalcBorderIconsFlagsEx(AForm);
end; end;
procedure AdjustFormBounds(const AForm: TCustomForm; var SizeRect: TRect); procedure AdjustFormBounds(const AForm: TCustomForm; out SizeRect: TRect);
var var
BorderStyle: TFormBorderStyle; BorderStyle: TFormBorderStyle;
begin begin