Komponente für "Brainstorm"-Diagramme gesucht

[Rackergen2]

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)