Changeset 495 for trunk/Packages

Timestamp:

Dec 17, 2023, 11:54:58 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Workaround for LCL bug where ShowModal makes all StayOnTop forms hidden.

Location:

trunk/Packages

Files:

• CevoComponents/DrawDlg.pas (modified) (1 diff)
• DpiControls/Dpi.Forms.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -193 +193 @@
 procedure TDrawDlg.VisibleChangedHandler(Sender: TObject);
 begin
+  // LCL hides all StayOnTop forms during ShowModal.
+  // Fix this to keep them visible.
+  if (TFormStateType.fsModal in FormState) and Visible then
+    Application.RemoveStayOnTop(True);
+
   MoveActive := False;
 

trunk/Packages/DpiControls/Dpi.Forms.pas

@@ -191 +191 @@
     procedure UpdateMainForm(AForm: TForm);
     procedure CreateForm(InstanceClass: TComponentClass; out Reference);
+    procedure RemoveStayOnTop(const ASystemTopAlso: Boolean = False);
     function MessageBox(Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
     property MainForm: TForm read GetMainForm write SetMainForm;
@@ -463 +464 @@
 end;
 
+procedure TApplication.RemoveStayOnTop(const ASystemTopAlso: Boolean);
+begin
+  GetNativeApplication.RemoveStayOnTop(ASystemTopAlso);
+end;
+
 function TApplication.MessageBox(Text, Caption: PChar; Flags: Longint
   ): Integer;