Changeset 201 for trunk/Packages/Common/MetaCanvas.pas

Timestamp:

Jan 28, 2026, 9:57:27 PM (4 hours ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Packages/Common/MetaCanvas.pas (modified) (2 diffs)

trunk/Packages/Common/MetaCanvas.pas

@@ -150 +150 @@
     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;
@@ -563 +563 @@
 end;
 
-procedure TMetaCanvas.DoLine(x1, y1, x2, y2: integer);
+procedure TMetaCanvas.DoLine(X1, Y1, X2, Y2: integer);
 var
   NewObj: TCanvasLine;