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 :
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
