paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:17:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Further adjusts lazregions to the new TFPCustomRegion

Browse Source 
git-svn-id: trunk@34025 -
This commit is contained in:
sekelsenmat 2011-12-07 13:59:28 +00:00
parent 2e54189582
commit c70c69b953
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/lazregions.pas
View File

@ -10,7 +10,7 @@ unit lazregions;
interface
uses
Classes, SysUtils;
Classes, SysUtils, fpcanvas;
type
@ -29,7 +29,7 @@ type
function IsPointInPart(AX, AY: Integer): Boolean; override;
end;
TLazRegion = class
TLazRegion = class{$if defined(ver2_7) or defined(ver2_8) or defined(ver2_9)}(TFPCustomRegion){$endif}
public
// The parts of a region should all be inside valid areas of the region
// so if a combination operation removes some areas of the region, then
@ -42,7 +42,8 @@ type
destructor Destroy; override;
procedure AddRectangle(ARect: TRect);
procedure SetAsSimpleRectRegion(ARect: TRect);
function IsPointInRegion(AX, AY: Integer): Boolean; virtual;
function GetBoundingRect: TRect; {$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6)}virtual;{$else}override;{$endif}
function IsPointInRegion(AX, AY: Integer): Boolean; {$if defined(ver2_4) or defined(ver2_5) or defined(ver2_6)}virtual;{$else}override;{$endif}
end;
{ This is a region which can hold other region holders inside it }
@ -161,6 +162,11 @@ begin
Rect := ARect;
end;
function TLazRegion.GetBoundingRect: TRect;
begin
Result := Rect;
end;
{
Checks if a point is inside this region
}