VirtualStringTree

**StefanG**

ok dann hier nochmal die Fragen zu diesem Thread :

http://www.delphipraxis.net/internal...4daf6f889cf78d

ok ich habs mir nochmal runtergeladen.

Mein erstes Problem war, wie adde ich ein node -.-

Geht das Wirklich nur, indem man den RootNodeCount erhöht? (ich brauche ja quasi nur roots)

zweites Problem : wie weise ich den Nodes einen Text zu? Ich habe gesehen, dass es ein OnGetText event gibt.
Ich habe versucht dort etwas zu machen wie :

markieren

Delphi-Quellcode:

			procedure TForm1.VirtualStringTreeGetText(Sender: TBaseVirtualTree;

  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;

  var CellText: WideString);

begin

if i <= processes.ItemCount - 1 then

begin

  celltext := ExtractFileName(arrProcesses[i]);  // <-- arrProcesses ist ein Array, in dem die Namen aller laufenden Prozesse stehen

  inc(i);

end;

geht aber nicht wirklich gut, da die Funktion scheinbar auch bei jedem scrollen aufgerufen wird. Dabei erhöht sich I ständig und gibt irgendwann nur noch leerstrings zurück.

drittes Problem :

wie füge ich jedem Node ein spezifisches Icon hinzu? Ich habe ein zweites array mit den dazugehörigen icons für die Programme,
die indizes von Programm und Icon sind also die gleichen in beiden Arrays?

hui ganz schön viele Fragen fürs erste, ich hoffe mir kann geholfen werden

EDIT : hab schon rausgefunden, dass es in dem Event geht, wenn ich Celltext := ExtractFileName(arrProcesses[nodes.index]);
mache. Bleibt noch das Problem mit den Bildern

VirtualStringTree

VirtualStringTree

Forumregeln