Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bünni,
12. Mär 2019
Jede KSData-Instanz hat ein Property welches gesetzt ist oder nicht.
Mit einer For-Schleife erzeuge ich meine Klasseninstanzen. Am Ende jeder For-Schleife füge ich die Klasseninstanz der ObjectList hinzu (VST.AddChild usw. benutze ich nicht) und setze die RootNodeCount.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bünni,
12. Mär 2019
In meinem InitNode-Event steht eine Zeile.
procedure TKSListEvents.InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
Node.SetData<TKSData>(KSData);
end;
TKSData ist die Klassenimplementierung mit Gettern und Settern von der die Klasseninstanzen erstellt werden die dann in meine ObjectList kommen.
KSData ist die...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Bünni,
12. Mär 2019
Für heute habe ich noch eine letzte Frage. Vermutlich die letzte. Wie hänge ich eine Childnode an eine Node dran?
Ich lade meine Daten alle in Klasseninstanzen, diese wieder alle in eine generic ObjectList.
Im InitNode, FreeNode Event, GetText und allen anderen initialisiere ich, zeige an und gebe frei.
Wie schalte ich jetzt eine Childnode unter eine Node auf, sodass ich die Node mit + und -...