paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 23:17:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Small fix for default form size on wince.

Browse Source 
git-svn-id: trunk@14891 -
This commit is contained in:
sekelsenmat 2008-04-19 13:39:38 +00:00
parent 4551450205
commit 99c7c5e885
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -296,13 +296,17 @@ begin
Simply using CM_USEDEFAULT produces a too large Height, which
covers the menus. So the workarea size is detected (which ignores
the Taskbar) and then the menu is subtracted from it }
the Taskbar).
In some devices subtracting the menu size seams to work better, but
others, if no menu is present, it's a big problem.
}
if (BorderStyle <> bsDialog) and (BorderStyle <> bsNone) then
begin
Left := WR.Left;
Top := WR.Top;
Height := WR.Bottom - WR.Top - GetSystemMetrics(SM_CYMENU)
- GetSystemMetrics(SM_CXBORDER) * 2;
Height := WR.Bottom - WR.Top;// - GetSystemMetrics(SM_CYMENU)
//- GetSystemMetrics(SM_CXBORDER) * 2;
Width := WR.Right - WR.Left;
end
else if (BorderStyle = bsDialog) then