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

Reverts define changes in lazcanvas as TFPCustomRegion is not in fpc 2.6.1

Browse Source 
git-svn-id: trunk@36555 -
This commit is contained in:
sekelsenmat 2012-04-04 06:59:05 +00:00
parent d645281057
commit 24ea04d036
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/lazcanvas.pas
View File

@ -79,7 +79,7 @@ type
FAssignedFont: TFPCustomFont;
FAssignedPen: TFPCustomPen;
FBaseWindowOrg: TPoint;
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6_0)}
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6)}
FLazClipRegion: TFPCustomRegion;
{$endif}
FWindowOrg: TPoint; // already in absolute coords with BaseWindowOrg summed up
@ -143,7 +143,7 @@ type
// because operations of SetWindowOrg inside a non-native wincontrol will be
// based upon the BaseWindowOrg which is set relative to the Form canvas
property BaseWindowOrg: TPoint read FBaseWindowOrg write FBaseWindowOrg;
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6_0)}
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6)}
property ClipRegion: TFPCustomRegion read FLazClipRegion write FLazClipRegion;
{$endif}
property WindowOrg: TPoint read GetWindowOrg write SetWindowOrg;
@ -206,7 +206,7 @@ var
begin
lx := x + FWindowOrg.X;
ly := y + FWindowOrg.Y;
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6_0)}
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6)}
if Clipping and (not FLazClipRegion.IsPointInRegion(lx, ly)) then
Exit;
if (lx >= 0) and (lx < width) and (ly >= 0) and (ly < height) then
@ -417,7 +417,7 @@ end;
procedure TLazCanvas.SetLazClipRegion(ARegion: TLazRegion);
begin
Clipping := True;
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6_0)}
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6)}
ClipRect := TLazRegionRect(ARegion.Parts.Items[0]).Rect;
FLazClipRegion := ARegion;
{$else}

2
lcl/lazregions.pas
View File

@ -41,7 +41,7 @@ type
function IsPointInPart(AX, AY: Integer): Boolean; override;
end;
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6_0)}
{$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6)}
TFPCustomRegion = class
function GetBoundingRect: TRect; virtual; abstract;
function IsPointInRegion(AX, AY: Integer): Boolean; virtual; abstract;