paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:36:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix form's scrollbars that disappeared after resize. Issue #19677, patch from August Klein

Browse Source 
git-svn-id: trunk@33073 -
This commit is contained in:
juha 2011-10-24 19:33:14 +00:00
parent b8cb50f5ce
commit 1c66c1c865
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customform.inc
View File

@ -1393,7 +1393,7 @@ end;
procedure TCustomForm.GetPreferredSize(var PreferredWidth,
PreferredHeight: integer; Raw: boolean; WithThemeSpace: boolean);
begin
if fsDisableAutoSize in FFormState then begin
if (fsDisableAutoSize in FFormState) and not Raw then begin
PreferredWidth:=Width;
PreferredHeight:=Height;
end else begin