From ef80f677c923dd79fb78d6c79a38e507d7eaba1c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 9 Apr 2020 09:10:42 +0200
Subject: [PATCH] fix #3 - options, floating widget on top does not work

---
 src/u_main.pas | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/src/u_main.pas b/src/u_main.pas
index 0bfefdd4..2fe67f70 100644
--- a/src/u_main.pas
+++ b/src/u_main.pas
@@ -3706,13 +3706,7 @@ const
 begin
   for widg in fWidgList do if widg.Parent.isNotNil and
     widg.Parent.Parent.isNil and widg.isDockable then
-  begin
-    TForm(widg.Parent).FormStyle := fstyle[onTop];
-    //TODO-cbugfix: floating widg on top from true to false, widg remains on top
-    // OK on linux (LCL 1.6.0), initially observed on win & LCL 1.4.2
-    if TForm(widg.Parent).Visible and not onTop then
-      TForm(widg.Parent).SendToBack;
-  end;
+      TForm(widg.Parent).FormStyle := fstyle[onTop];
 end;
 
 procedure TMainForm.snapTopSplitterToMenu;