Größenänderung von TImage ändert nicht den Zeichenbereich

[himitsu]

Jupp, hier nochmal der Grund

Delphi-Quellcode:

function TImage.GetCanvas: TCanvas;
var
  Bitmap: TBitmap;
begin
  if Picture.Graphic = nil then
  begin
    Bitmap := TBitmap.Create;
    try
      Bitmap.Width := Width;
      Bitmap.Height := Height;
      Picture.Graphic := Bitmap;

GetCanvas wird aufgerufen, wenn man auf Image.Canvas zugreift und wenn da noch kein Bild existiert, dann wird ein Bitmap erstellt, auf welchem gezeichnet wird.

Delphi-Quellcode:

Image1.Width         := X;
Image1.Height        := Y;
Image1.Bitmap.Width  := X;
Image1.Bitmap.Height := Y;