Changeset 358 for trunk/Messg.pas

Timestamp:

Apr 9, 2021, 9:51:17 AM (4 years ago)

Author:

chronos

Message:

• Modified: Message kinds and message icons kinds changed to enumeration type.
• Modified: Code cleanup.

File:

• trunk/Messg.pas (modified) (2 diffs)

trunk/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