Kreis/Linie zwischen 2 TButtons

[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:

Zitat von stahli (Beitrag 1474980)

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

Nein - wird vermutlich auch nie nötig werden.

Zitat:

Zitat von stahli (Beitrag 1474980)

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:

Zitat von stahli (Beitrag 1474980)

- 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:

Zitat von stahli (Beitrag 1474980)

...
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 :gruebel:
Falls ja, gibt es da irgendwo Beispiele zu finden?

Zitat:

Zitat von stahli (Beitrag 1474980)

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

Delphi-Quellcode:

FormCreate

(da gibt es vermutlich die Buttons noch nicht) als auch bei

Delphi-Quellcode:

FormShow

aufrufen. Die Linien sehe ich aber immer erst, wenn ich einen Button bewege.

[Schwedenbitter]

Zitat:

Zitat von v2afrank (Beitrag 1474985)

... Jedis mit Ihren Diagramshapes ...

Danke für den Hinweis :thumb:

Im Moment will ich da aber aus mind. 2 Gründen nicht ran:

Zum einen habe ich mein Programm im Grunde fertig. Ich nutze es seit gut 3 Jahren. Die Linien male ich von Hand in exportierte png-Dateien hinein. Denn i.d.R. ändern sich die Stammbäume äußerst selten. Mein neuer Ansatz ist also eher akademischer Natur und damit ich das Programmieren nicht verlerne und weil ich wissen will, ob ich es irgendwie hinbekomme :lol:
Zum anderen hatte ich mit den Jedis noch nie wirklich zu tun. Ich kenne sie und ich hatte dort wegen anderer Sachen reingeschaut (IP-Datentransfer etc.). Allerdings vermute ich, dass ich mich ewig einarbeiten muss, um annähernd so ein tolles Schaltdiagramm hinzubekommen. Und ich bin mir noch nicht einmal sicher, ob die Jedis am Ende flexibel genug für meine "Kinderzeichnungen" wären.

[Schwedenbitter]

:oops: ganz so einfach wird es wohl nicht werden.

Ich habe gerade versucht, mein kleines Beispiel rudimentär in mein Programm zu implementieren.
Dummer Weise liegen meine Personen (alias

Delphi-Quellcode:

TBitBtn

) in einer

Delphi-Quellcode:

TScrollBox

. Und wie ich feststellen musste, hat nun ausgerechnet diese kein

Delphi-Quellcode:

TCanvas

, auf das ich einfach mal eben malen könnte.
Meine Suche führte mich unter anderem zu diesem Beitrag. Und aus der fehlenden Antwort schließe ich nun, dass es keine (einfache) Lösung für dieses Problem gibt :wall:

Bevor ich weiter experimentiere:
Lege ich da einfach ein TImage in den Hintergrund und male auf dem?
Da habe ich aber wieder das Problem mit der nicht funktionierenden Transparenz.

[Jumpy]

Kann man nicht einfach ein Panel in die Scrollbox packen und die Buttons auf das Panel?

[stahli]

Zitat:

Zitat von Schwedenbitter (Beitrag 1474989)

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

Ja, wenn Du die Verbindungen in eine grafische Komponente kapselst und die Art der Darstellung als Eigenschaft vorgibst.
Im Grunde genau wie ein TPanel oder TBevel.
Da hast Du z.B. eine Eigenschaft BevelOuter, die vorgibt, wie der Rahmen zu zeichnen ist.
Wenn Du die Komponente in der Größe änderst oder verschiebst, wird diese und das Formular entsprechend neu gezeichnet.

Du könntest also eine Komponente schreiben, die die Linien oder Kreise nach bestimmten Vorgaben immer gemäß der Komponentengröße passen zeichnet.


ABER:

Wenn man Dein Bild ansieht, wird das wohl eher nicht so günstig sein.
Du müsstest dann wohl mehrere Komponenten miteinander überlagern (Kreis, Linie1, Linie2, Linie3). Oder Du musst eine recht komplexe Komponente erstellen, die alle diese Figuren zusammen darstellt.
Dann wird es aber schwierig, wenn die Kinder in unterschiedlicher Höhe oder Winkel zu den Eltern ausgerichtet sind.


ALSO:

Ich würde die Verbindungen in den Hintergrund zeichnen.

Dafür könntest Du eine Panel und Paintbox oder Image nutzen, die Du in die Scrollbox legst. Auf das Panel dann auch Deine Buttons.
Dann brauchst Du Du Dich auch um das Scrollen usw nicht kümmern. Einfach nur die Größe des Panels einstellen und dann passt das.

Mit dem Erstellen der Linien in ein Bitmap und dann kopieren in den Canvas kann man Flackern verhindern, allerdings auch nur wenn man mit Threads arbeitet.
Zusätzlich hast Du die Verbindungen dann aber auch schon als Bild vorliegen, das Du dann ggf. leichter drucken kannst.

[himitsu]

Zitat:

Zitat von Schwedenbitter (Beitrag 1474989)

Wieso erscheinen die Linien nicht beim Programmstart? Meine Malroutine lasse ich jetzt sowohl bei

Delphi-Quellcode:

FormCreate

(da gibt es vermutlich die Buttons noch nicht) als auch bei

Delphi-Quellcode:

FormShow

aufrufen. Die Linien sehe ich aber immer erst, wenn ich einen Button bewege.

Weil das falsch ist?

In OnPaint

und bei Änderungen ein Repaint auslösen. (falls es durchs Verschieben der Buttons nicht schon passiert)