Changeset 431 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

Apr 28, 2022, 10:40:37 PM (3 years ago)

Author:

chronos

Message:

• Modified: Changed WindowMode numerical constants to enumeration.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (8 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -8 +8 @@
 
 type
-  TShowNewContent = procedure (NewMode: Integer; HelpContext: string) of object;
+  TWindowMode = (wmNone, wmModal, wmPersistent, wmSubmodal);
+  TShowNewContent = procedure (NewMode: TWindowMode; HelpContext: string) of object;
 
   { TBufferedDrawDlg }
@@ -25 +26 @@
     procedure StayOnTop_Workaround;
   protected
-    FWindowMode: Integer;
+    FWindowMode: TWindowMode;
     ModalFrameIndent: Integer;
     HelpContext: string;
-    procedure ShowNewContent(NewMode: Integer; ForceClose: Boolean = False);
+    procedure ShowNewContent(NewMode: TWindowMode; ForceClose: Boolean = False);
     procedure MarkUsedOffscreen(xMax, yMax: Integer);
     procedure OffscreenPaint; virtual;
@@ -37 +38 @@
     Offscreen: TBitmap;
     OffscreenUser: TForm;
-    property WindowMode: integer read FWindowMode;
+    property WindowMode: TWindowMode read FWindowMode;
   end;
 
@@ -64 +65 @@
 
 const
-  // window modes
-  wmNone = 0;
-  wmModal = $1;
-  wmPersistent = $2;
-  wmSubmodal = $3;
-
   yUnused = 161;
   NarrowFrame = 11;
@@ -76 +71 @@
 
 procedure CreateOffscreen(var Offscreen: TBitmap);
+function WindowModePersistent(Mode: TWindowMode): TWindowMode;
 procedure Register;
 
@@ -83 +79 @@
 uses
   ButtonBase, Area;
+
+function WindowModeMakePersistent(Mode: TWindowMode): TWindowMode;
+begin
+  if Mode = wmModal then Result := wmSubmodal
+    else Result := wmPersistent;
+end;
 
 procedure Register;
@@ -142 +144 @@
   if Key = VK_F1 then begin
     if Assigned(ShowNewContentProc) then
-      ShowNewContentProc(FWindowMode or wmPersistent, HelpContext);
+      ShowNewContentProc(WindowModePersistent(FWindowMode), HelpContext);
   end else
   if FWindowMode = wmPersistent then begin
@@ -168 +170 @@
 end;
 
-procedure TBufferedDrawDlg.ShowNewContent(NewMode: Integer;
+procedure TBufferedDrawDlg.ShowNewContent(NewMode: TWindowMode;
   ForceClose: Boolean);
 begin