From 2b674c238dc3e8539cbe8dcb018bdc72eb73bc6e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 17 Sep 2021 19:06:08 +0200
Subject: [PATCH] fix #88 - Content of floating widgets vanish the second time
 they are opened

---
 src/u_widget.lfm | 2 +-
 src/u_widget.pas | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/u_widget.lfm b/src/u_widget.lfm
index ea3600c8..a7c26c98 100644
--- a/src/u_widget.lfm
+++ b/src/u_widget.lfm
@@ -9,7 +9,7 @@ object DexedWidget: TDexedWidget
   ClientWidth = 332
   ShowHint = True
   ShowInTaskBar = stNever
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.2.0.1'
   object Back: TPanel
     Left = 0
     Height = 121
diff --git a/src/u_widget.pas b/src/u_widget.pas
index d28653c6..69487c42 100644
--- a/src/u_widget.pas
+++ b/src/u_widget.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, ExtCtrls, ActnList, Menus,
-  AnchorDocking, u_interfaces, u_dsgncontrols, u_common, u_dialogs;
+  AnchorDocking, LCLVersion, u_interfaces, u_dsgncontrols, u_common, u_dialogs;
 
 type
 
@@ -210,6 +210,9 @@ begin
     win := DockMaster.GetAnchorSite(self);
     if win.isAssigned then
     begin
+      {$if lcl_fullversion >= 2020000}
+      Show;
+      {$endif}
       win.Show;
       win.BringToFront;
     end;