Y de nuevo...Efectivamente, sigo con el paso a paso y entra contiuamente el Tree en su rutina OnGetText para pintar el caption de cada nodo:
Código Delphi
[-]
procedure TForm1.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
CustomerRecord : PTreeData;
begin
CustomerRecord := Sender.GetNodeData(Node);
case Column of
0: begin
CellText := CustomerRecord.NCaption;
if(CustomerRecord.Chk=True) then Node.CheckState:=VirtualTrees.csCheckedNormal
else Node.CheckState:=VirtualTrees.csUncheckedNormal;
end;
1: if VST1.GetNodeLevel(Node)=2 then CellText := DateToStr(CustomerRecord.NColumna1);
2: if VST1.GetNodeLevel(Node)=2 then CellText := IntToStr(CustomerRecord.NColumna2);
3: if VST1.GetNodeLevel(Node)=2 then CellText := CustomerRecord.NColumna3;
end;
end;
........Es este su comportamiento normal?, no deberia de entrar en esta rutina cuando hay algun cambio o se hace algo con el raton (etc) y no continuamente?
Saludos
Jesus