Changeset 361 for branches/highdpi/Messg.pas

Timestamp:

Apr 9, 2021, 5:56:50 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r360 into highdpi branch.

File:

• branches/highdpi/Messg.pas (modified) (2 diffs)

branches/highdpi/Messg.pas

@@ -12 +12 @@
 
 type
+  TMessageKind = (mkOK, mkOKCancel, mkYesNo, mkYesNoCancel, mkOkCancelRemove,
+    mkOkHelp, mkModel);
+
   TMessgDlg = class(TBaseMessgDlg)
     Button1: TButtonA;
@@ -22 +25 @@
     procedure FormKeyPress(Sender: TObject; var Key: char);
   public
-    Kind: integer;
+    Kind: TMessageKind;
     OpenSound: string;
   private
     procedure OnPlaySound(var Msg: TMessage); message WM_PLAYSOUND;
   end;
-
-const
-  // message kinds
-  mkOK = 1;
-  mkOKCancel = 2;
-  mkYesNo = 3;
 
 var