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

Adds the MaximizedWindowHeightCorrection property to correct window height in Windows CE.

Browse Source 
git-svn-id: trunk@17681 -
This commit is contained in:
sekelsenmat 2008-12-04 13:24:18 +00:00
parent fb1ea9e664
commit e42f38b071
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/wince/winceint.pp
View File

@ -215,10 +215,10 @@ type
property OnAsyncSocketMsg: TSocketEvent read FOnAsyncSocketMsg write FOnAsyncSocketMsg;
public
{ Variables to be set by the user }
WinCETitlePolicy: TWinCETitlePolicy;
MaximizedWindowHeightCorrection: Integer;
end;
{$I wincelistslh.inc}

5
lcl/interfaces/wince/wincewsforms.pp
View File

@ -305,8 +305,9 @@ begin
begin
Left := WR.Left;
Top := WR.Top;
Height := WR.Bottom - WR.Top;// - GetSystemMetrics(SM_CYMENU)
//- GetSystemMetrics(SM_CXBORDER) * 2;
Height := WR.Bottom - WR.Top - WinCEWidgetset.MaximizedWindowHeightCorrection;
// - GetSystemMetrics(SM_CYMENU)
//- GetSystemMetrics(SM_CXBORDER) * 2;
Width := WR.Right - WR.Left;
end
else if (BorderStyle = bsDialog) then