Soweit schonmal geil... Jetzt müsste man nur noch einbauen, dass der auch mal vertikal anfängt...
Delphi-Quellcode:
procedure TForm1.Paint(x1, y1, x2, y2: integer; col: TColor; img: TImage);
var
xm, ym: integer;
begin
with img.Canvas do
begin
Pen.Color:=col;
moveto(x1,y1); // Mitte des images
if abs(x1-x2)>abs(y1-y2) then
begin
xm:=(x1-x2) div 2 ;
lineto(x1-xm,y1); // Waagrecht
lineto(x1-xm,y2); // Senkrecht
lineto(x2,y2); // nochmal waagrecht
end
else
begin
ym:=(y1-y2) div 2 ;
lineto(x1,y1-ym); // Senkrecht
lineto(x2,y1-ym); // Waagerecht
lineto(x2,y2); // nochmal Senkrecht
end;
end;
end; // of paint
Kommt das hin? Ich konnte es leider nicht testen...
EDIT: getestet, verändert, läuft super
Nebenbei, wie hast du die Koordinaten beim Klick ausgelsen? (EDIT: hat sich erledigt)