TLazRegion

type TLazRegion = class(TFPCustomRegion)

public

  Parts: TFPList;

  IsSimpleRectRegion: Boolean;

  Rect: TRect;

  constructor Create; virtual;

  destructor Destroy; override;

  procedure Assign();

  procedure Clear;

  procedure CombineWith();

  function GetRegionKind;

  function IsSimpleRectEmpty;

  procedure AddPart();

  procedure AddRectangle();

  procedure AddPolygon();

  procedure AddEllipse();

  procedure SetAsSimpleRectRegion();

  procedure AddPartsFromRegion();

  procedure DoChangeToComplexRegion;

  function GetBoundingRect; override;

  function IsPointInRegion(); override;

end;

TLazRegion

TObject