kein ZEichnen auf vergrößerten Image

[punker-lili]

Also die Idee mit dem TBitmap ist gut... aber so richtig nichts für mich^^
ich hab das mal von extrem ausrobiert und es entstand folgenser Quelltext:

Delphi-Quellcode:

procedure image_groesse(image:bild;hoehe,breite:integer);
var diff_x, diff_y: integer;
begin
//bestimmung_image_groesse(sd_hoehe,hoehe,breite,image);
 if assigned(image.picture.Graphic) then
 begin
 diff_x := breite - image.width;
 diff_y := hoehe - image.Height;

 if diff_x > 0 then begin
  image.width :=image.width + diff_x;
  image.picture.graphic.width:=image.Width;
 end
 else
  diff_x := 0;

 if diff_y > 0 then begin
  image.height := image.Height + diff_y;
  image.picture.graphic.height:=image.Height;
 end
 else
  diff_y := 0;

 image.canvas.Brush.Color := clred;
 image.Canvas.FillRect(rect(image.width - diff_x, image.Height - diff_y,
                            image.Width, image.height));
end;
end;

Leider passiert das, ab dem Punkt, wo das Image vergrößert werden müsste (s. Anhang).. Woran liegt das?