paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 14:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win: Fix client rect position of group box on Windows. Issue #25203, patch from Yury Sidorov

Browse Source 
git-svn-id: trunk@46245 -
This commit is contained in:
juha 2014-09-16 18:16:46 +00:00
parent 9a2d8a270b
commit 4ddd6b9e3d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -710,8 +710,9 @@ begin
// -> Adjust the position
// add the upper frame with the caption
DC := Windows.GetDC(Handle);
SelectObject(DC, TheWinControl.Font.Handle);
Windows.GetTextMetrics(DC, TM);
ORect.Top := TM.TMHeight;
ORect.Top := TM.TMHeight + 3;
Windows.ReleaseDC(Handle, DC);
// add the left, right and bottom frame borders
ORect.Left := 2;