paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:29:36 +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; property OnAsyncSocketMsg: TSocketEvent read FOnAsyncSocketMsg write FOnAsyncSocketMsg;
public public
{ Variables to be set by the user } { Variables to be set by the user }
WinCETitlePolicy: TWinCETitlePolicy; WinCETitlePolicy: TWinCETitlePolicy;
MaximizedWindowHeightCorrection: Integer;
end; end;
{$I wincelistslh.inc} {$I wincelistslh.inc}

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

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