Changeset 210 for branches/highdpi/Messg.pas

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

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

branches/highdpi/Messg.pas

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