paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +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 LCLControlSizeNeedsUpdate(Sender: TWinControl;
SendSizeMsgOnDiff: boolean): boolean;
function GetLCLClientBoundsOffset(Sender: TObject; var ORect: TRect): boolean;
function GetLCLClientBoundsOffset(Handle: HWnd; var Rect: TRect): boolean;
function GetLCLClientBoundsOffset(Sender: TObject; out ORect: TRect): boolean;
function GetLCLClientBoundsOffset(Handle: HWnd; out Rect: TRect): boolean;
procedure LCLBoundsToWin32Bounds(Sender: TObject;
var Left, Top, Width, Height: Integer);
procedure Win32PosToLCLPos(Sender: TObject; var Left, Top: SmallInt);
@ -782,7 +782,7 @@ end;
height.
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
TM: TextMetricA;
DC: HDC;
@ -846,7 +846,7 @@ begin
Result := True;
end;
function GetLCLClientBoundsOffset(Handle: HWnd; var Rect: TRect): boolean;
function GetLCLClientBoundsOffset(Handle: HWnd; out Rect: TRect): boolean;
var
OwnerObject: TObject;
begin

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

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

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

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