paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 09:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: reduce warnings and hints

Browse Source 
git-svn-id: trunk@30015 -
This commit is contained in:
paul 2011-03-25 09:04:25 +00:00
parent f5f836b7d6
commit 1106bb17a4
3 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -96,7 +96,6 @@ procedure GetWin32ControlPos(Window, Parent: HWND; var Left, Top: integer);
procedure UpdateWindowStyle(Handle: HWnd; Style: integer; StyleMask: integer); procedure UpdateWindowStyle(Handle: HWnd; Style: integer; StyleMask: integer);
function BorderStyleToWin32Flags(Style: TFormBorderStyle): DWORD; function BorderStyleToWin32Flags(Style: TFormBorderStyle): DWORD;
function BorderStyleToWin32FlagsEx(Style: TFormBorderStyle): DWORD; function BorderStyleToWin32FlagsEx(Style: TFormBorderStyle): DWORD;
function GetDesigningBorderStyle(const AForm: TCustomForm): TFormBorderStyle;
function AllocWindowInfo(Window: HWND): PWin32WindowInfo; function AllocWindowInfo(Window: HWND): PWin32WindowInfo;
function DisposeWindowInfo(Window: HWND): boolean; function DisposeWindowInfo(Window: HWND): boolean;
@ -916,15 +915,6 @@ begin
end; end;
end; end;
function GetDesigningBorderStyle(const AForm: TCustomForm): TFormBorderStyle;
{$NOTE Belongs in Win32WSForms, but is needed in windowproc}
begin
if csDesigning in AForm.ComponentState then
Result := bsSizeable
else
Result := AForm.BorderStyle;
end;
function AllocWindowInfo(Window: HWND): PWin32WindowInfo; function AllocWindowInfo(Window: HWND): PWin32WindowInfo;
var var
WindowInfo: PWin32WindowInfo; WindowInfo: PWin32WindowInfo;

4
lcl/interfaces/win32/win32winapi.inc
View File

@ -2234,8 +2234,8 @@ begin
Width := Right - Left; Width := Right - Left;
Height := Bottom - Top; Height := Bottom - Top;
end; end;
Width := Width - 2 * Info.cxWindowBorders; Width := Width - 2 * Integer(Info.cxWindowBorders);
Height := Height - 2 * Info.cyWindowBorders; Height := Height - 2 * Integer(Info.cyWindowBorders);
ExcludeCaption; ExcludeCaption;
//WriteLn('W = ', Width, ' H = ', Height); //WriteLn('W = ', Width, ' H = ', Height);
Exit; Exit;

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

@ -231,6 +231,14 @@ end;
{ TWin32WSCustomForm } { TWin32WSCustomForm }
function GetDesigningBorderStyle(const AForm: TCustomForm): TFormBorderStyle;
begin
if csDesigning in AForm.ComponentState then
Result := bsSizeable
else
Result := AForm.BorderStyle;
end;
function CalcBorderIconsFlags(const AForm: TCustomForm): DWORD; function CalcBorderIconsFlags(const AForm: TCustomForm): DWORD;
var var
BorderIcons: TBorderIcons; BorderIcons: TBorderIcons;