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

comment

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-11-16 00:50:18 +01:00
parent 123f615a6d
commit c82b6089b1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32wsforms.pp
View File

@ -653,8 +653,11 @@ begin
// Problem: // Problem:
// When setting the ClientRect, the main menu may change height (the menu lines may change). // When setting the ClientRect, the main menu may change height (the menu lines may change).
// After the first attempt to set bounds, they can be wrong because the number of the lines changed and // After the first attempt to set bounds, they can be wrong because the number of the lines changed and
// it is not possible to determine the menu line count for the target rectangle/ // it is not possible to determine the menu line count for the target rectangle.
// Therefore a second attempt is needed to get the correct height. // Also, when handling the WM_DPICHANGED message, Windows don't update the menu bar height, therefore
// wrong menu bar height is used for the calculation. The menu bar height gets updated during the first
// TWin32WSWinControl.SetBounds() call.
// -> Therefore a second attempt is needed to get the correct height.
for Attempt := Low(Attempt) to High(Attempt) do for Attempt := Low(Attempt) to High(Attempt) do
begin begin
// the LCL defines the size of a form without border, win32 with. // the LCL defines the size of a form without border, win32 with.