Changeset 447 for trunk/Packages/Common/UMetaCanvas.pas

Timestamp:

May 19, 2022, 10:39:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

File:

• trunk/Packages/Common/UMetaCanvas.pas (modified) (3 diffs)

trunk/Packages/Common/UMetaCanvas.pas

@@ -124 +124 @@
     procedure SetWidth(AValue: Integer); override;
     function GetWidth: Integer; override;
-    procedure DoLine (x1,y1,x2,y2:integer); override;
+    procedure DoLine (x1,y1,x2,y2:Integer); override;
     procedure DoTextOut(X, Y: Integer; Text: string); override;
     procedure DoRectangle(const Bounds: TRect); override;
@@ -451 +451 @@
 end;
 
-procedure TMetaCanvas.DoLine(x1, y1, x2, y2: integer);
+procedure TMetaCanvas.DoLine(x1, y1, x2, y2: Integer);
 var
   NewObj: TCanvasLine;
@@ -665 +665 @@
 end.
 
+