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.