Kreis/Linie zwischen 2 TButtons

[stahli]

Es gibt verschiedene Ansatzmöglichkeiten.

Was zu empfehlen ist hängt davon ab, wie erfahren Du in den einzelnen Themenbereichen bist.

Man könnte mit VCL-Controls arbeiten, diese anordnen und nur auf deren Canvas zeichnen.
Man könnte die Objekte als VCL-Controls aufbauen und die Verbindungen auf das Formular malen.
Oder man könnte alles auf einen Canvas malen und die Positionen virtuell merken und sozusagen bei einem Klick auf das Formular ermitteln, welches "virtuelle Control" wohl gemeint war.

Ich habe alles schon gemacht.

Wenn Du willst, schau mal meine Turniersoftware und dort das KO-System an. Da sind die Verbindungen mit Teil der Spiele.
Die Raster der Designer sind dagegen in den Hintergrund gemalt.

Den dritten Ansatz habe ich hier angewendet:
https://www.delphipraxis.net/175033-...chlecht-2.html (#59 und #60)
und hier: https://www.delphipraxis.net/185623-...-controls.html


Vielleicht hilft Dir das bei grundsätzlichen Überlegungen.
Im Detail bleibt da natürlich noch vieles zu überlegen...

[mkinzler]

Oder man verwendetet Komponenten für Diagramme.

[Schwedenbitter]

Danke erstmal für die zahlreichen Tipps!

Zitat von stahli:

...
Man könnte mit VCL-Controls arbeiten, diese anordnen und nur auf deren Canvas zeichnen.

Wenn ich das richtig verstehe also zwischen meine Buttons z.B. ein TImage packen, was sich mit bewegt und dann die Linien darin zieht?

Zitat von stahli:

Man könnte die Objekte als VCL-Controls aufbauen und die Verbindungen auf das Formular malen.

Das war meine ursprüngliche(r) Idee/Plan. Aber da habe ich das Problem der Reaktion auf ein Verschieben des Buttons. Wenn ein Button die Position ändert, muss ja die alte Linie weg und eine neue Linie gezeichnet werden

Zitat von stahli:

Oder man könnte alles auf einen Canvas malen und die Positionen virtuell merken und sozusagen bei einem Klick auf das Formular ermitteln, welches "virtuelle Control" wohl gemeint war.

Das übersteigt mit Sicherheit meine Fähigkeiten. Außerdem müsste ich dann komplett neu anfangen, weil ich die frei verschiebbaren Buttons ja schon habe.
Für mich ist mein Programm an sich perfekt - nur die Linien fehlen.

Zitat von stahli:

Wenn Du willst, schau mal meine Turniersoftware und dort das KO-System an...
Die Raster der Designer sind dagegen in den Hintergrund gemalt.

Dieser Designer sieht ziemlich genau nach dem aus, was mir so vorschwebt.

Ich habe mir auch ein paar der verlinkten youtube-Videos angeschaut. Gibt es da irgendwo Code-Beispiele?
Das entspricht so ziemlich genau dem, was ich mir vorstelle. Die CPU-Last ist mir dabei nahezu egal. Selbst bei umfangreichen Bäumen komme ich so auf ca. 40 "Mitspieler". Und häufig wird das Bild nur einmal gebastelt und danach immer nur zum Anschauen/Drucken geladen.

[stahli]

Deine erste Frage zu den Images zwischen den Buttons: Ja.

Es ist halt die Frage, was Du anklicken, verschieben und in den Größen ändern willst.
Danach musst Du entscheiden, ob Du Controls brauchst, die auf Mausereignisse reagieren können oder nicht.

Dann ist auch die Frage, wie komplex die Linien, Kreise und andere Figuren so werden können.
Wenn Du z.B. einen Kreis hast und der sich neu zeichnet, wenn Du die Größe des Images änderst, ist das komfortabel.
In anderen Fällen, wenn Du z.B. eine längere Verbindungslinie über verschiedene Verwinkelungen zeichnen willst, ist ein Image vielleicht schlecht geeignet.

Wenn Du nur Deine Buttons anklicken und schieben willst, dann würde ich die Figuren drum herum auf den Hintergrund malen. Dann kannst Du den Canvas auch gleich nutzen, um ein Bitmap für die Wiederverwendung zu speichern.

Meinen Code könnte ich Dir geben aber das würde Dir wohl nicht viel helfen, fürchte ich. War ein ziemlich komplexes Projekt mit eigenem Framework usw.

[Schwedenbitter]

Die Idee mit dem Code ist total nett, würde mich aber wohl wirklich überfordern.

Ich habe mal quick & dirty etwas zusammengebastelt. Daran kann man sehen, wo ich gern hin käme. Bevor ich mich z.B. um das weitere Problem Button2 vor/über Button1 kümmere, hätte ich dazu mal 2 Fragen:

1. Wie bekomme ich das Bild - abgesehen von der Linie - transparent?
2. Gibt es eine Möglichkeit, die Linie schon während des Verschiebens nachzeichnen zu lassen?

Für "Downloadmuffel" hier mal der Code:

Delphi-Quellcode:

Procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
Const
   SC_DRAGMOVE      = $F012;
Begin
   If (ssLeft in Shift) Then                        // nur bei linker Maustaste
   Begin
      ReleaseCapture;                              // Freigeben der Maus
      Button2.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);   // Ziehen = Bewegen

      Image1.Picture.Assign(nil);                  // Bild löschen
      Image1.Transparent:= True;                  // ==> Funktioniert schon einmal NICHT!
      Image1.Left:=   Button1.Left + (Button1.Width  div 2);
      Image1.Top:=    Button1.Top  + (Button1.Height div 2);
      Image1.Width:=  Button2.Left -  Button1.Left;
      Image1.Height:= Button2.Top  -  Button1.Top;

      Image1.Canvas.Pen.Style:= psSolid;
      Image1.Canvas.Pen.Color:= clBlue;
      Image1.Canvas.Pen.Width:= 5;
      Image1.Canvas.MoveTo(0, 0);                     // wohin auch sonst
      Image1.Canvas.LineTo(Image1.Width, Image1.Height);
   End;
End;

[TurboMagic]

Probier mal das:

Image1.Picture.Bitmap.TransparentColor := clWhite;

[stahli]

Willst Du die Linien irgendwie mit der Maus beeinflussen können?

Wie viele Möglichkeiten der Verbindungen gibt es?
- LinieLinksUntenNachRechtsOben
- LinieRechtsUntenNachLinksOben
- Vollkreis
- LeererKreis

Wenn Du eine begrenzte Anzahl hast, könnte man mit einer Image überlegen.
Dann kannst Du den Status (Linienart) zuweisen, die Größe festlegen und die Linien werden passend gezeichnet.

Wenn die Anzahl der Linien oder Figuren sehr groß werden kann oder die Linien nicht auf die Maus reagieren müssen, dann würde ich eher die Buttons anordnen, die Linien in ein Bitmap zeichnen und dieses auf den Canvas des Formulars kopieren.

[v2afrank]

Auch wenn es wahrscheinlich nicht hilft möchte ich die Jedis mit Ihren Diagramshapes nicht unerwähnt lassen. Schau Dir mal die Demos an.
Damit habe ich das folgende Bild realisiert

[Schwedenbitter]

Zitat von stahli:

Willst Du die Linien irgendwie mit der Maus beeinflussen können?

Nein - wird vermutlich auch nie nötig werden.

Zitat von stahli:

Wie viele Möglichkeiten der Verbindungen gibt es?
- LinieLinksUntenNachRechtsOben
- LinieRechtsUntenNachLinksOben

Ich habe mal weiter probiert. Vom Grundsatz her scheine ich mit den Linien klarzukommen (Screenshot). Da ein Kind i.d.R. nicht von mehr als 2 Eltern abstammt, sind es maximal 2 Verbindungen; eher nur eine.

DENN:

Zitat von stahli:

- Vollkreis
- LeererKreis

Der Kreis steht als Symbol für eine Ehe/Beziehung etc. Daher eben nur eine Verbindung des Kindes zu diesem Kreis (Screenshot - wo ich gern hin will). Beim Kreis komme ich wohl an einem anderen TObject nicht vorbei. Sonst wird wohl die Rechnerei zwischen Kreis und Linien zu umfangreich.

Zitat von stahli:

...
Dann kannst Du den Status (Linienart) zuweisen, die Größe festlegen und die Linien werden passend gezeichnet.

Verstehe ich das richtig, dass die Linien dann "automatisch" angepasst/gezeichnet werden
Falls ja, gibt es da irgendwo Beispiele zu finden?

Zitat von stahli:

Wenn die Anzahl der Linien oder Figuren sehr groß werden kann oder die Linien nicht auf die Maus reagieren müssen, dann würde ich eher die Buttons anordnen, die Linien in ein Bitmap zeichnen und dieses auf den Canvas des Formulars kopieren.

Was spricht dagegen, wenn man die Linien gleich auf das Canvas malt, außer vielleicht, dass sie dann beim Verschieben mal kurz verschwinden?

P.S. Zu meinem 2. Screenshot mal die (Zusatz)Frage:
Wieso erscheinen die Linien nicht beim Programmstart? Meine Malroutine lasse ich jetzt sowohl bei FormCreate (da gibt es vermutlich die Buttons noch nicht) als auch bei FormShow aufrufen. Die Linien sehe ich aber immer erst, wenn ich einen Button bewege.