Changeset 465 for branches/highdpi/Messg.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (5 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

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

branches/highdpi/Messg.pas

@@ -53 +53 @@
 procedure TMessgDlg.FormShow(Sender: TObject);
 begin
-  Button1.Visible := true;
+  Button1.Visible := True;
   Button2.Visible := not(Kind in [mkOK]);
   if Button2.Visible then
@@ -70 +70 @@
   end;
 
-  SplitText(true);
+  SplitText(True);
   CorrectHeight;
 end;