Changeset 189 for trunk/Messg.pas

Timestamp:

May 7, 2020, 12:46:55 AM (4 years ago)

Author:

chronos

Message:

• Added: New Global unit with global constants.
• Modified: Multiple occurence of string constants used for subdirectories replaced by functions.

File:

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

trunk/Messg.pas

@@ -82 +82 @@
   if OpenSound <> '' then
     PostMessage(Handle, WM_PLAYSOUND, 0, 0);
-end; { FormPaint }
+end;
 
 procedure TMessgDlg.Button1Click(Sender: TObject);
@@ -97 +97 @@
 begin
   if Key = #13 then
-    ModalResult := mrOK
+    ModalResult := mrOK;
     // else if (Key=#27) and (Button2.Visible) then ModalResult:=mrCancel
 end;
@@ -108 +108 @@
     Kind := mkOK;
     ShowModal;
-  end
+  end;
 end;
 
@@ -119 +119 @@
     Kind := mkOK;
     ShowModal;
-  end
+  end;
 end;