paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 06:09:14 +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;
WinCETitlePolicy: TWinCETitlePolicy;
MaximizedWindowHeightCorrection: Integer;
end;
{$I wincelistslh.inc}

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

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