Göße eines camvas.rectangle während der Laufzeit verändern

[brandtson]

Moin allerseits,

wieder mal ein kleines Problem. Will mein gezeichnetes Rechteck währen der Laufzeit verändern, also an die linke obere oder rechte untere Ecke gehen und vergrößern bzw. verkleinern. Eigentlich müsste der von mir geschrieben Source auch hinhauen, hat er auch schon mal , aber seit dem ich die Routine zum Rechteck verschieben eingebaut habe funzts nicht mehr so richtig. Er führt zwar noch das gewünschte aus, doch malt er unentwegt auf die Form.

Die Routine zum Größe verändern:

Delphi-Quellcode:

 if n = 3 then                                  //größe verändern
   begin
     if shift = [ssright] then
       begin
         if x2 > x then
           begin
             canvas.Rectangle(x1,y1,x2,y2);
             x1:=x;
             y1:=y;
             canvas.rectangle(x1,y1,x2,y2);
           end;
         if x2 < x then
           begin
             canvas.rectangle(x1,y1,x2,x2);
             x2:=x;
             y2:=y;
             canvas.rectangle(x1,y1,x2,y2);
           end;
       end;
     end;

Ich habe auch noch mal die Source Angehängt, falls das obere nicht reicht!
Schon mal Danke im voraus fürs drüberschauen, wie ich mich kenne, habe ich wieder mal irgendwo die Zeilen vertauscht!

[Gandalfus]

Ich mach das immer so:
Canvas.rectangle(left,top,width+left,height+top); jetzt muss man zum verschieben nur left und top verändern. uNd für die grösse halt width und height.

mfg

[brandtson]

Danke Gandalfus,

werds gleich mal ausprobieren!

gruß