Image Problem.

[dazar_t]

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 ?

[DeddyH]

Hallo,

1. Wozu 2 Bitmaps?
2. Du erzeugst die Objekte und gibst sie nicht wieder frei, baust Dir also ein schönes Speicherleck.
3. Versuch es mal mit Image.Picture.Assign(buffer);

[edit] 4. Du gibst den Bitmaps keine Größe [/edit]

[dazar_t]

AHH DANKE es lag daran das ich keine größe zugeordnet habe.
Das buffer BitMap habe ich erstellt da ich jetzt mehrere BitMaps erstelle und Sie dann erstmal alle in den buffer laden wollte.

[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;

[dazar_t]

o.K du hast recht ^^
Habe es nun so umgesetzt.