diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index e54481e5d5..5210a00524 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -1019,8 +1019,8 @@ type
   protected
     function GetClipRect: TRect; override;
     procedure SetClipRect(const ARect: TRect); override;
-    function GetClipping: Boolean; {$ifdef OverrideClipping}override; {$else} reintroduce;{$endif}
-    procedure SetClipping(const AValue: boolean); {$ifdef OverrideClipping}override; {$else} reintroduce;{$endif}
+    function GetClipping: Boolean; {$ifdef OverrideClipping}override;{$endif}
+    procedure SetClipping(const AValue: boolean); {$ifdef OverrideClipping}override;{$endif}
     function GetPixel(X,Y: Integer): TColor; virtual;
     procedure CreateBrush; virtual;
     procedure CreateFont; virtual;
diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc
index 53bfc1611b..d734225cc0 100644
--- a/lcl/include/canvas.inc
+++ b/lcl/include/canvas.inc
@@ -85,7 +85,7 @@ end;
 
 procedure TCanvas.SetClipping(const AValue: boolean);
 begin
-  inherited SetClipping(AValue);
+  inherited Clipping := AValue;
   if AValue then
     SetClipRect(inherited GetClipRect)
   else