Changeset 497 for trunk/Packages

Timestamp:

Dec 18, 2023, 10:47:05 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Correction of StayOnTop restore method workaround.

Location:

trunk/Packages

Files:

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

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -196 +196 @@
   // Fix this to keep them visible.
   if (TFormStateType.fsModal in FormState) and Visible then
-    Application.RemoveStayOnTop(True);
+    Application.RestoreStayOnTop(True);
 
   MoveActive := False;

trunk/Packages/DpiControls/Dpi.Forms.pas

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