canvas.rahmen.aufziehen.laufzeit = wie.aufziehen.entwicklung

[Stanlay Hanks]

Hi. Hab meinen Ursprüunglichen Source mit dem OnMouseMove noch etwas erweitert. Du müsstest ihn halt für dich anpassen. (unter Anderem können die Panels nicht gezeichnet werden, wenn der ausgangspunkt größer ist als der Endpunkt) Aber du sagtest ja, dass ist nicht das Problem.

Ich hätte das folgendermaßen gelöst:

Delphi-Quellcode:

var xm,ym : Integer;
begin
  IF IsMouseDown = true THEN
   begin
    With Form1.Canvas do
    begin
    Pen.Color := clbtnface;
    Pen.Style := pssolid;
    Rectangle(xk,yk,xm,ym);
    Brush.Color := clbtnface;
    Rectangle(0,0,Width,Height);
    Pen.Color := clblack;
    Pen.Style := psDot;
    Rectangle(xk,yk,x,y);
    end;
   end;
 xm := x;
 ym := y;
end;

Im Endeffekt mach ich nix anderes, als jedes mal einen gestrichelten Rahmen (psdot) gezeichnet und das Canvas wieder neu zu übermalen, so dass die alten Rahmen nicht mehr da sind. Funzt natürlich nur mit einfarbigem Hintergrund

Man liest sich, Stanlay