paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed compilation of TCanvas.GetClipping with fpc < 2.3.1

Browse Source 
git-svn-id: trunk@19690 -
This commit is contained in:
vincents 2009-04-29 11:32:11 +00:00
parent 84e400ca0c
commit b38eb5e49d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphics.pp
View File

@ -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;

2
lcl/include/canvas.inc
View File

@ -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