Changeset 495 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (1 diff)

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;