Einzelnen Beitrag anzeigen

Cyf

Registriert seit: 30. Mai 2008
407 Beiträge
 
Lazarus
 
#1

Problem beim Zeichnen eines neuen Bitmap

  Alt 20. Nov 2008, 19:01
Entschuldigt den Titel, ist vermutlich wenig aufschlussreich, aber einen passenderen finde ich nicht.
Folgender Code verhält sich nicht wie ich es erwarten würde:

Delphi-Quellcode:
procedure TMainForm.PaintCoords;
var
  Bitmap: TBitmap;
begin
  Image.Picture.Bitmap.Free;
  Bitmap:= TBitmap.Create;
  Bitmap.SetSize(MaxX+1, MaxY+1); //beide global

  //eigentlich bischen was komplexeres, aber hiermit ist es bei mir reproduzierbar
  Bitmap.Canvas.LineTo(100,100);

  Image.Picture.Bitmap:= Bitmap;
end;
Beim ersten Aufruf erscheint kein Bild, erst wenn der Code mindestens ein weiteres Mal aufgerufen wird, verhält er sich wie erwartet.
Mache ich grobe Fehler bei der Objekt-Erstellung, oder wo liegt der Haken? Habe schon ein wenig rumprobiert und komme tatsächlich nicht darauf.
  Mit Zitat antworten Zitat