Liste von vielen unterschiedlichen Grafikobjekten mit unterschiedlichen Properties

[Stevie]

Einfachste Möglichkeit wäre, einer der zahllosen ObjektInspector Komponenten, die es so gibt, zu benutzen.
Zum Beispiel TJvInspector aus der JVCL.

[DeddyH]

Und da dürfen dann aber nur die Properties angezeigt werden, die allen aktuell markierten Objekten gemein sind. Es muss also irgendwie eine Schnittmenge gebildet werden.

[Bjoerk]

DeddyH, wir hatten schon mal kurz vor ca. einem Jahr darüber im DT gesprochen. Einen OI der alle möglichen Props meiner Objekte anzeigt gibt es schon. Die Frage ist wie krieg ich die aktuellen Werte meiner Liste in die Edits, Comboxen ect. und wie schreib ich die zurück?

[DeddyH]

Du kannst doch nach meinem Dafürhalten nur die Werte tatsächlich anzeigen, die bei allen Objekten gleich sind. Sind sie das nicht, muss das Feld in Deinem OI eben leer bleiben. Trägt der Benutzer nun einen Wert ein, wirst Du wohl mit einer Schleife über die Objekte gehen und diesen Wert zuweisen müssen.

[Bjoerk]

Das krieg ich nicht hin? Ernsthaft.

[DeddyH]

Aus der Hüfte geschossen: (ich weiß gerade nicht aus dem Kopf, ob es eine solche Struktur oder Klasse schon gibt, notfalls erstellt man sie eben selbst) wir brauchen den Property-Namen, dessen Typ und dessen Wert in einem Record/einer Klasse. Davon erstellen wir eine Liste und gehen nun die markierten Objekte durch. Das erste Objekt befüllt nun diese Liste, bei jedem weiteren wird geprüft:
- Property aus Liste (mit identischem Typ) vorhanden? Nein -> aus Liste löschen
- Wert der Property entspricht dem aus der Liste? Nein -> Wert löschen

Es wird also ggf. lediglich die Liste ausgedünnt, neue Elemente kommen nicht hinzu. Zum Schluss werden im "OI" nur noch die verbliebenen Properties angezeigt und auch nur die Werte, die "überlebt" haben. Nach Änderung durch den Benutzer wird der Wert wieder in einer Schleife der entsprechenden Property der Objekte zugewiesen.

[Bjoerk]

Weiß nicht recht? Wer soll diese Klasse in einem Jahr nochmal verstehen, erweitern, ergänzen, ändern? Kann man vielleicht mit einer IniFile als Schnittstelle was machen? Ich hab echt keine Idee mehr..

Delphi-Quellcode:

[Prop1]
Master = Object1
Slave1 = Object2
Slave2 = Object100
[Prop2]
..

[stahli]

Zitat von Bjoerk:

DeddyH, wir hatten schon mal kurz vor ca. einem Jahr darüber im DT gesprochen. Einen OI der alle möglichen Props meiner Objekte anzeigt gibt es schon. Die Frage ist wie krieg ich die aktuellen Werte meiner Liste in die Edits, Comboxen ect. und wie schreib ich die zurück?

Hallo Bjoerk,

Dein Screenshot hat mich animiert, den Thread nochmal genauer anzuschauen...
Respekt für das erreichte. Sieht richtig cool und aufgeräumt aus.

Wenn ich Dich richtig verstehe suchst Du nach "Databinding" (wobei Dein Screenshot suggeriert, dass das schon gelöst ist).
Oder ist Dein Problem nur, wie Du mit unterschiedlichen Werten mehrerer markierter Objekte umgehen sollst?

[Bjoerk]

Thanx. Das Ganze ist auch (fast) schon fertig, aber m.E. ziemlich unprofessionell gelöst? Es gibt ein zweidimensionales Array[Aufzahlungstyp über alle ShapeTypen, AufzählungsTyp über alle PropertiyTypen] of boolean.

Zum Beispiel hat das Objekt Line die Properties X1, Y1, X2, Y2.Diese Klasse setzt nun im Constructor

Delphi-Quellcode:

  Prop[gtLine, X1Prop] := true;
  Prop[gtLine, X2Prop] := true;
  Prop[gtLine, Y1Prop] := true;
  Prop[gtLine, Y2Prop] := true;

Der OI bekommt eine aktuelle Liste und geht a) die ganze Liste von hinten bis vorne durch b) über alle Typen und c) über alle Props. Wenn ein Object der Liste markiert ist und es ein X1Prop hat dann erzeugt der OI (einmal) ein TEdit, setzt einen TabIndex und gibt dem Edit als Tag TProp(X1Prop) mit. Der Oi setzt auch zweites Edit und schreibt "das ist die X1 Koordinate in Metern".

Und Schließlich speichert den Wert der Property in TEdit.Text.
 if CurrentItem.Prop[X1Prop] then EditX1.Text := FloatToStr(Item.X1); Dann legt der OI eine Kopie aller Edit.Texts and an und überprüft bei jedem TEdit.OnExit ob sich ein Wert geändert hat.
Falls ja speichert den Wert zurück und zeichnet die Grafik neu.

 if CurrentItem[X1Prop] and (Edit.Tag = TProp(X1Prop)) then Item.X1 := StrToFloat(EditX1.Text);

Hinzu kommt daß es nur Object gibt daß Instanzen aller Klassentypen hat. *gmpf*

[stahli]

Wenn Du magst, dann schau mal nach DSharp oder ssFramework. Beide realisieren ein Databinding.
Am ssFramework arbeite ich aber nicht mehr weiter.
(Embarcadero unterstützt ja inzwischen auch LiveBindings, aber da will ich mal nicht weiter drauf eingehen.)

Grundsätzlich kann man die Eigenschaften der Objekte direkt untersuchen und diese nach Namen ermitteln. Vor D2010 gab es dafür IsPublishedProp.
Damit kann man ermitteln, ob ein Objekt die veröffentlichte Eigenschaft XYZ besitzt und dessen Wert verarbeiten.

Ab D2010 gibt es mit der neuen RTTI dafür noch deutlich mehr Möglichkeiten.

Wenn Deine Lösung so funktioniert würde ich es dabei belassen. Ein komplettes Databindingframework aufzubauen wird sich für ein (fast fertiges Projekt) nicht lohnen.
Wenn man aber von vorn herein eine solche Lösung verfügbar hat, dann kann man sich viel Arbeit sparen. Deshalb will ich ohne Databinding auch möglichst nicht mehr arbeiten.

Im Grunde kannst Du dann mit normalen Controls wie mit DBControls arbeiten und die an die Datenschicht binden. Die Datenschicht ist dann nur keine Datenbank sondern ein Manager, der das benötigte Objekt ermittelt und den Wert dessen benötigter Eigenschaft zurück gibt.