paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 06:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

SpartaDockedFormEditor: Fixed showing of scrollbars after revision 63888 #54661a2a36. Issue #38261

Browse Source 
git-svn-id: trunk@64281 -
This commit is contained in:
michl 2020-12-26 15:51:40 +00:00
parent 1156464b04
commit 8a009c1c3a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/sparta/dockedformeditor/source/sparta_mainide.pas
View File

@ -1346,7 +1346,9 @@ begin
Exit;
LForm := TCustomForm(GlobalDesignHook.LookupRoot);
LFormData := FindDesignFormData(LForm);
LFormData.RepaintFormImages;
LSourceWindow := (LFormData as IDesignedFormIDE).LastActiveSourceWindow;
LPageCtrl := FindModulePageControl(LSourceWindow);
LPageCtrl.BoundToDesignTabSheet;
end;
end;