Problem beim Zeichnen eines neuen Bitmap

[DeddyH]

Und so?

Delphi-Quellcode:

procedure TMainForm.PaintCoords;
var
  Bitmap: TBitmap;
begin
  //Image.Picture.Bitmap.Free;
  Bitmap:= TBitmap.Create;
  try
    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.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
end;