Nochmal VST - Node einfärben

[Gollum]

Hallo,

das Ereignis wird ausgelöst, wenn Die Spalte/Zelle gezeichnet wird.
Dies bedeutet, das Ereignis wird nur gefeuert, wenn die Spalte existiert und sie auch Daten enthält, die dargestellt werden sollen.

[CCRDude]

Zum Verständnis: die Ansicht ist nicht "stabil" - wischt Du mit der Maus oder einem anderen Fenster darüber oder rufst ein Invalidate/Refresh etc. auf, wird neu gezeichnet.

Es wird also keinesfalls nur beim Programmstart gezeichnet

[MasterTobi]

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaahh hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh hhhhhhhhhhhhhhhhhhhhhhhhh

gut zu wissen erstma vielen dank das bringt mich schonma weiter hehe

[MasterTobi]

so verstehe nu

was ne geburt,
na gut nu hab ich mal das bsp vonGollum genommen. muss aber jetzt nur die node färben wo sich die caption geändert hat.
muss ich also die node in einer globalen variable übergeben ?

wil er ändert immer den ganzen baum

[Gollum]

Hallo,

der Knoten (Node) und die Spalte (Column) die gezeichnet werden sollen, werden Dir doch im Ereignis übergeben.

Ich hoffe einmal, Du weist dann, wie Du auf Deine im VT gespeicherten Infos zugreifen kannst.

[MasterTobi]

Hallo ,

meine strucktur ist ja nur

node
+'irgendwas'
---- 'irgendeine nummer'
+'irgendwas2'
---- 'irgendeine nummer2'
+'irgendwas3'
---- 'irgendeine nummer3'

so wenn nun jetzt

Delphi-Quellcode:

       n := virtualstringtree1.GetFirst;
      while assigned(n) do
       begin
       if assigned(n) then
       begin
        data:=virtualstringtree1.GetNodeData(n);
        if data^.FColumn1='irgendeinenummer' then
        begin
        found:=1;
        foundednode:=n;
        virtualstringtree1.Refresh;
        break;
        end;
        n:=virtualstringtree1.GetNext(n);
       end;

if data^.FColumn1='irgendeinenummer' then stimmig ist, sprich er fragt ab ob das subnode die nummer hat die er bekommen hat(in der abfrage)

dann

Delphi-Quellcode:

procedure TForm1.VirtualStringTree1BeforeCellPaint(
  Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  Column: TColumnIndex; CellRect: TRect);
  var ContentRect: TRect;
  var d:ptreedata;
begin
   with TargetCanvas do
   begin
   d:=virtualstringtree1.GetNodeData(foundednode);
   if found <>1 then exit;
     if d.fColumn1='irgendeinenummer' then targetcanvas.Font.Color:=clred;
     FillRect(CellRect);
   end; // with
end;

sollte es doch funktionieren ? oder nicht. ich übergeb ihm ja mit d:=virtualstringtree1.GetNodeData(foundednode); die daten von der node die er unter foundednode:=n; gesaved hat.

hm ....

[DeddyH]

Wieso fragst Du nicht direkt die Daten der übergebenen Node ab?