mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 17:18:13 +02:00
LCL: fixed compilation of TCanvas.GetClipping with fpc < 2.3.1
git-svn-id: trunk@19690 -
This commit is contained in:
parent
84e400ca0c
commit
b38eb5e49d
@ -1019,8 +1019,8 @@ type
|
|||||||
protected
|
protected
|
||||||
function GetClipRect: TRect; override;
|
function GetClipRect: TRect; override;
|
||||||
procedure SetClipRect(const ARect: TRect); override;
|
procedure SetClipRect(const ARect: TRect); override;
|
||||||
function GetClipping: Boolean; {$ifdef OverrideClipping}override; {$else} reintroduce;{$endif}
|
function GetClipping: Boolean; {$ifdef OverrideClipping}override;{$endif}
|
||||||
procedure SetClipping(const AValue: boolean); {$ifdef OverrideClipping}override; {$else} reintroduce;{$endif}
|
procedure SetClipping(const AValue: boolean); {$ifdef OverrideClipping}override;{$endif}
|
||||||
function GetPixel(X,Y: Integer): TColor; virtual;
|
function GetPixel(X,Y: Integer): TColor; virtual;
|
||||||
procedure CreateBrush; virtual;
|
procedure CreateBrush; virtual;
|
||||||
procedure CreateFont; virtual;
|
procedure CreateFont; virtual;
|
||||||
|
@ -85,7 +85,7 @@ end;
|
|||||||
|
|
||||||
procedure TCanvas.SetClipping(const AValue: boolean);
|
procedure TCanvas.SetClipping(const AValue: boolean);
|
||||||
begin
|
begin
|
||||||
inherited SetClipping(AValue);
|
inherited Clipping := AValue;
|
||||||
if AValue then
|
if AValue then
|
||||||
SetClipRect(inherited GetClipRect)
|
SetClipRect(inherited GetClipRect)
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user