Changeset 497 for trunk/Packages/DpiControls

Timestamp:

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

Author:

chronos

Message:

• Fixed: Correction of StayOnTop restore method workaround.

File:

• trunk/Packages/DpiControls/Dpi.Forms.pas (modified) (2 diffs)

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;