Image Problem.

[DeddyH]

Denk trotzdem an Punkt 2

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  bild: TBitMap;
  punkte: Array[0..5] of TPoint;
begin
  bild:=TBitMap.Create;
  try
    bild.Width := 200;
    bild.Height := 200;
    bild.Canvas.Brush.Color:=RGB(255,0,0);
    bild.Canvas.Pen.Color:=RGB(255,0,0);
    punkte[1]:=Point(50,50);
    punkte[2]:=Point(50,100);
    punkte[3]:=Point(100,150);
    punkte[4]:=Point(150,100);
    punkte[5]:=Point(150,50);
    bild.Canvas.Polygon(punkte);
    img1.Picture.Assign(bild);
  finally
    bild.Free;
  end;
end;