Changeset 465 for branches/highdpi/Inp.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (2 years 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/Inp.pas (modified) (2 diffs)

branches/highdpi/Inp.pas

@@ -21 +21 @@
     procedure CenterToRect(Rect: TRect);
   private
-    Center: boolean;
+    Center: Boolean;
   end;
 
 var
   InputDlg: TInputDlg;
+
 
 implementation
@@ -53 +54 @@
     9, Caption);
   { Corner(canvas,1,1,0,MainTexture);
-    Corner(canvas,ClientWidth-9,1,1,MainTexture);
-    Corner(canvas,1,ClientHeight-9,2,MainTexture);
-    Corner(canvas,ClientWidth-9,ClientHeight-9,3,MainTexture); }
+    Corner(Canvas,ClientWidth-9,1,1,MainTexture);
+    Corner(Canvas,1,ClientHeight-9,2,MainTexture);
+    Corner(Canvas,ClientWidth-9,ClientHeight-9,3,MainTexture); }
 end;