paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 23:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Prevent flickering at sizing when Resizer has visible scrollbars.

Browse Source 
git-svn-id: trunk@64942 -
This commit is contained in:
michl 2021-04-07 18:58:39 +00:00
parent 1764fd30fb
commit a02fe87685
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/dockedformeditor/source/dockedresizer.pas
View File

@ -248,6 +248,14 @@ var
LScrollPos: Integer;
begin
if not Assigned(FDesignForm) then Exit;
if ResizeControl.Resizing then
begin
DesignForm.BeginUpdate;
DesignForm.EndUpdate;
ResizeControl.AdjustBounds(FScrollPos);
Exit;
end;
LWidth := FDesignForm.Width + 2 * ResizeControl.SizerGripSize;
LHeight := FDesignForm.Height + 2 * ResizeControl.SizerGripSize;
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TResizer.AdjustResizer Resizer Width:', DbgS(LWidth), ' Height:', DbgS(LHeight)); {$ENDIF}