Guten Tag
seit neusten beschäftige ich mich mit TBitMap.
Also wollte ich einfach mal anfangen und ein Polygon auf ein Image zeichen.
Das ist mein CODE :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
bild, buffer: TBitMap;
punkte:
Array[0..5]
of TPoint;
begin
bild:=TBitMap.Create;
buffer:=TBitMap.Create;
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);
buffer.Canvas.Draw(0,0,bild);
Image1.Picture.Bitmap:=buffer;
end;
Mein Problem man sieht nichts ??? Obwohl ich Das BitMap ja bei Image1.Picture.Bitmap:=buffer; auf das Image übergebe oder ?