Virtualizes more TFPCustomCanvas drawing methods so that descendents can properly override them instead of hiding them, thus improving the hability to draw to a generic TFPCustomCanvas and get the same output in a TCanvas

git-svn-id: trunk@19852 -

packages/fcl-image/src/fpcanvas.pp

@@ -302,24 +302,24 @@ type
     // using pen and brush
     procedure Arc(ALeft, ATop, ARight, ABottom, Angle16Deg, Angle16DegLength: Integer); virtual;
     procedure Arc(ALeft, ATop, ARight, ABottom, SX, SY, EX, EY: Integer); virtual;
-    procedure Ellipse (Const Bounds:TRect);
-    procedure Ellipse (left,top,right,bottom:integer);
+    procedure Ellipse (Const Bounds:TRect); virtual;
+    procedure Ellipse (left,top,right,bottom:integer); virtual;
     procedure EllipseC (x,y:integer; rx,ry:longword);
-    procedure Polygon (Const points:array of TPoint);
-    procedure Polyline (Const points:array of TPoint);
-    procedure RadialPie(x1, y1, x2, y2, StartAngle16Deg, Angle16DegLength: Integer);
+    procedure Polygon (Const points:array of TPoint); virtual;
+    procedure Polyline (Const points:array of TPoint); virtual;
+    procedure RadialPie(x1, y1, x2, y2, StartAngle16Deg, Angle16DegLength: Integer); virtual;
     procedure PolyBezier(Points: PPoint; NumPts: Integer;
                          Filled: boolean = False;
-                         Continuous: boolean = False); 
+                         Continuous: boolean = False);  virtual;
     procedure PolyBezier(const Points: array of TPoint;  
                          Filled: boolean = False;
-                         Continuous: boolean = False);
-    procedure Rectangle (Const Bounds : TRect);
-    procedure Rectangle (left,top,right,bottom:integer);
-    procedure FillRect(const ARect: TRect); 
-    procedure FillRect(X1,Y1,X2,Y2: Integer);
+                         Continuous: boolean = False); virtual;
+    procedure Rectangle (Const Bounds : TRect); virtual;
+    procedure Rectangle (left,top,right,bottom:integer); virtual;
+    procedure FillRect(const ARect: TRect);  virtual;
+    procedure FillRect(X1,Y1,X2,Y2: Integer); virtual;
     // using brush
-    procedure FloodFill (x,y:integer);
+    procedure FloodFill (x,y:integer); virtual;
     procedure Clear;
     // using pen
     procedure MoveTo (x,y:integer);