forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #88 - Content of floating widgets vanish the second time they are opened

This commit is contained in:
Basile Burg 2021-09-17 19:06:08 +02:00
parent 31080c18f7
commit 2b674c238d
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/u_widget.lfm
View File

@ -9,7 +9,7 @@ object DexedWidget: TDexedWidget
ClientWidth = 332 ClientWidth = 332
ShowHint = True ShowHint = True
ShowInTaskBar = stNever ShowInTaskBar = stNever
LCLVersion = '2.0.10.0' LCLVersion = '2.2.0.1'
object Back: TPanel object Back: TPanel
Left = 0 Left = 0
Height = 121 Height = 121

5
src/u_widget.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, ExtCtrls, ActnList, Menus, 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 type
@ -210,6 +210,9 @@ begin
win := DockMaster.GetAnchorSite(self); win := DockMaster.GetAnchorSite(self);
if win.isAssigned then if win.isAssigned then
begin begin
{$if lcl_fullversion >= 2020000}
Show;
{$endif}
win.Show; win.Show;
win.BringToFront; win.BringToFront;
end; end;