Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
6. Dez 2009
Einen wunderschönen guten Morgen zusammen,
so nach einer langen Nacht und viel Geduld, habe ich meine Problem jetzt gelößt. Die Lösung habe ich jetzt über ein Record gemacht und die Daten über folgende Ausführung zugewiesen. Ich bin mir allerdings nicht sicher, ob es so gut gelößt ist,das ich nicht irgendwo Probleme bekomme.
Die Lösung funktioniert zwar, aber vieleicht kann ja mal jemand...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
5. Dez 2009
Schönen guten Abend nochmal zusammen,
Ich bin jetzt ein Stück weiter, allerdings denke ich das es der falsche Weg ist, und außerdem ist auch noch eine Fehler drin.
Ich habe jetzt einfach mal so zum Test 4 GLOBALE Variablen angelegt, die ich beim CREATE initialisiere und in die GetText Methode einbinde.
Funktioniert auch jetzt genau so wie ich mir das vorstelle (siehe ScreenShot1), bis auf...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
5. Dez 2009
Hallo zusammen,
hat den keiner irgendeinen Tip. Vieleicht noch als Hinweis.
Ich habe eine Datenbank, in der mehrere Tabellen existieren. Ich möchte diese im VST anzeigen. Und zwar in folgender Darstellung...
-Tabelle 1
-Inhalt Spalte 1
-Inhalt Spalte 2
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Ich habe jetzt hier mal noch den gesamten aktuelle Code der das VST Betrifft.
Vieleicht hilt das ja weiter. Irgendwie glaube ich, ist da noch ein Gedankenfehler von mir drin...
//Die OBJEKTE
TOOBJEKT = class
private
Objekt : String;
ImageIndex : Integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Es kann ja auch eigendlich nicht so schwer sein, es ist ja vom Prinzip her nichts anderes als ein Explorer.
Da gibt es ja auch solche Herachien...
Level 1
- Level 2
- Level 2
- Level3
- Level 2
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Das wäre möglich.
Den Anfang dafür hatte ich auch schon mal..
TOOBJEKT = class
private
Objekt : String;
ImageIndex : Integer;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Das mit dem Level3 ist mir klar.
2: case Column of
0: Celltext := DataSys.IP;
end;
3: case Column of
0: Celltext := DataSys.COM;
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Ja, das stimmt. ich habe pNode deklariert.
var
pNode : PVirtualNode;
Level: Integer;
DataSys : TOSYSTEM; // ein Zeiger auf die Datenstruktur
begin
Level := VSTSystem.GetNodeLevel(Node);
while TOSYSTEM(VSTSystem.GetNodeData(pNode)^) = nil do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Ja, die wird es geben. Ich denke auch das es so funktonieren müsste
pNode := pNode.Parent;
Allerdings, kommt es dann immer genau an der Stelle zu einem Zugriffsfehler, wenn ich den Knoten über Mausklick Erweitern will.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Der Ansatz könnte stimmen. jedoch kennt Delphi
while TOSYSTEM(VSTSystem.GetNodeData(Node)^) = nil do
pNode := pNode.ParentNode;
ParentNode nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Ja, das hatte ich so auch schon mal versucht...
pNode := VSTSystem.AddChild(nil,DataSys);
pNode := VSTSystem.AddChild(pNode);
pNode := VSTSystem.AddChild(pNode);
VSTSystem.AddChild(pNode);
allerdings, stimmt dan irgendwo was bei meiner GetText Anweisung nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jens Hartmann,
4. Dez 2009
Ja das habe ich mir auch schon gedacht, allerdings weiß ich nicht so recht, wie ich den Aufbau des VST hinbekomme.
-Level1
-Level2
-Level3
-Level3