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

AnchorDocking: Fixed third bug with option FloatingWindowsOnTop - loading layout in OnCreate doesn't permute this option. Issue #19272

Browse Source 
git-svn-id: trunk@65051 -
This commit is contained in:
michl 2021-04-22 18:47:05 +00:00
parent 6c6ce16b28
commit 6f18e2cc44
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/anchordocking/anchordocking.pas
View File

@ -2785,19 +2785,25 @@ end;
procedure TAnchorDockMaster.SetFloatingWindowsOnTop(AValue: boolean);
var
i, AIndex: Integer;
AForm, ParentForm: TCustomForm;
AMainForm, AForm, ParentForm: TCustomForm;
IsMainForm: Boolean;
AFormStyle: TFormStyle;
begin
if FFloatingWindowsOnTop = AValue then Exit;
FFloatingWindowsOnTop := AValue;
AMainForm := nil;
for i:=0 to Screen.FormCount-1 do
begin
AForm := Screen.Forms[i];
ParentForm := GetParentForm(AForm);
IsMainForm := (AForm = Application.MainForm)
or (AForm.IsParentOf(Application.MainForm))
or (ParentForm = Application.MainForm);
// Workaround: if FloatingWindowsOnTop is loaded on MainForm.Create
// Application.MainForm is not set now, but already in Screen.Forms
// see https://bugs.freepascal.org/view.php?id=19272
if not Assigned(AMainForm) then AMainForm := Application.MainForm;
if not Assigned(AMainForm) then AMainForm := Screen.Forms[0];
IsMainForm := (AForm = AMainForm)
or (AForm.IsParentOf(AMainForm))
or (ParentForm = AMainForm);
if IsMainForm then Continue;
if AValue then
AFormStyle := fsStayOnTop