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!