Erweiterung VirtualStringTree als Grid

[Guentiganz]

Hallo,

Ich habe eine eigene Komponenente abgleitet von einem TVirtualStringTree.
Diese soll als Grid dienen.
Ich habe sie um eine DataSet Property erweitert.
Aktuell werden die Spalten im Treeview automatisch anhand der Dataset.Fields gesetzt und auch der Displayname übernommen.

Habe ich die Möglichkeit, bei den Columns ein Feld zur Zuordnung des Felds zu haben, sprich eine neue Property in den TVirtualTreeColumns ohne, das ich die restliche Logik für die columns neu programmieren muss.

Der Hintergrund ist, dass ich einfach nicht alle Columns anzeigen möchte, momentan definiere ich das über die visible Eigenschaft der Columns im Dataset.

[sh17]

Das Tag der Spalte?

[Guentiganz]

Den Tag kann ich leider nicht nehmen, da ich dieses schon für unsere Rechteverwaltung als Zuordnung nehme, welches Recht für das Objekt benötigt wird

[uligerhardt]

Es gibt in TBaseVirtualTree eine Methode

Delphi-Quellcode:

    function GetColumnClass: TVirtualTreeColumnClass; virtual;

Ich nehme an, die ist für solche Zwecke gedacht - hab's aber nie ausprobiert.

[uligerhardt]

Zitat:

Zitat von Guentiganz (Beitrag 1202556)

Den Tag kann ich leider nicht nehmen, da ich dieses schon für unsere Rechteverwaltung als Zuordnung nehme, welches Recht für das Objekt benötigt wird

Du könntest im Tag einen Zeiger auf ein Record (oder eine Referenz auf eine Klasseinstanz) speichern und im Record alle benötigten Infos halten.

[Guentiganz]

Zitat:

Zitat von uligerhardt (Beitrag 1202558)

Zitat:

Zitat von Guentiganz (Beitrag 1202556)

Den Tag kann ich leider nicht nehmen, da ich dieses schon für unsere Rechteverwaltung als Zuordnung nehme, welches Recht für das Objekt benötigt wird

Du könntest im Tag einen Zeiger auf ein Record (oder eine Referenz auf eine Klasseinstanz) speichern und im Record alle benötigten Infos halten.

Das wollte ich eigentlich vermeiden.
Da ich über den Objektinspector die Rechte definiere :)

ich schau mir mal GetColumnClass an

http://www.delphipraxis.net/87409-pr...einfuegen.html

[Lemmy]

Zitat:

Zitat von uligerhardt (Beitrag 1202558)

Zitat:

Zitat von Guentiganz (Beitrag 1202556)

Den Tag kann ich leider nicht nehmen, da ich dieses schon für unsere Rechteverwaltung als Zuordnung nehme, welches Recht für das Objekt benötigt wird

Du könntest im Tag einen Zeiger auf ein Record (oder eine Referenz auf eine Klasseinstanz) speichern und im Record alle benötigten Infos halten.

besser nicht, da die Komponente damit automatisch nicht für 64bit verwendet werden kann.

Grüße

[Guentiganz]

Zitat:

Zitat von Lemmy (Beitrag 1202567)

besser nicht, da die Komponente damit automatisch nicht für 64bit verwendet werden kann.
Grüße

Warum gibt es hier Probleme?
Bei den Trees nutze ich auch Zeiger, und halte die Daten in einem Record, funktioniert aber auf x64

[Lemmy]

das TAG-Property speichert einen Interger, der ist auf x32 und x64 aber 32 Bit breit, d.h. da passt bei x64 halt kein Pointer rein...

[sh17]

Zitat:

Zitat von Guentiganz (Beitrag 1202556)

Den Tag kann ich leider nicht nehmen, da ich dieses schon für unsere Rechteverwaltung als Zuordnung nehme, welches Recht für das Objekt benötigt wird

welches Objektes? des Fields? Dann verschiebe das Recht in das Field des Datasets

[uligerhardt]

Zitat:

Zitat von Lemmy (Beitrag 1202571)

das TAG-Property speichert einen Interger, der ist auf x32 und x64 aber 32 Bit breit, d.h. da passt bei x64 halt kein Pointer rein...

In aktuellen (also 64bit-fähigen) VCL-Versionen ist AFAIK Tag ja ein NativeInt und dieses Problem damit nichtexistent. Ich hoffe, das ist bei aktuellen VT-Versionen nachgezogen. Wenn nicht, könnte man statt des Zeigers einen Index in ein Array o.ä. verwenden.

[Lemmy]

Zitat:

Zitat von uligerhardt (Beitrag 1202581)

In aktuellen (also 64bit-fähigen) VCL-Versionen ist AFAIK Tag ja ein NativeInt und dieses Problem damit nichtexistent. Ich hoffe, das ist bei aktuellen VT-Versionen nachgezogen. Wenn nicht, könnte man statt des Zeigers einen Index in ein Array o.ä. verwenden.

wow bin begeistert.. das habe ich damals nicht weiter verfolgt - ist wirklich ein NativeInt. Mein Einwurf ist falsch und kann komplett ignoriert werden :-)

Grüße

[Guentiganz]

ich bin grad dabei, das mit GetColumnClass zu probieren

ich möchte gerne die funktionalität die columns automatisch zu generieren behalten

im constructor setze ich den default wert für die Property AutoAddColumns
Nun möchte ich, wenn das Objekt erstellt wird diese Eigenschaft prüfen um dann die Columns automatisch zu generiern, wenn ein Dataset assigned ist.

Wie kann ich das machen?