Steema Central

Code: Select all

uses TeCanvas;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PolygonShape1.ImageAlignment := iaCenter;
  PolygonShape1.Image.LoadFromFile('C:\tmp\yourPicture.bmp');
end;

procedure TForm1.Tree1AfterDraw(Sender: TObject);
begin
  Tree1.Canvas.UnClipRectangle;
end;

procedure TForm1.Tree1BeforeDraw(Sender: TObject);
var i: Integer;
    c: Integer;
    p: array of TPoint;
begin
  c:=PolygonShape1.Points.Count;
  SetLength(p, c);

  for i:=0 To c-1 do
    p[i] := TeePoint(PolygonShape1.Points.Point[i].X,
            PolygonShape1.Points.Point[i].Y);

  Tree1.Canvas.ClipPolygon(p, c);
end;