Lehký úvod do Virtual TreeView - pokračování

    1procedure TfrmVTtest.mAddSubSelected(iDiff: Integer);
    2var
    3  pNode: PVirtualNode; // uzel ve stromě
    4  MyData:PMyNodeData; // naše struktura
    5begin
    6  pNode := vt.GetFirstSelected; // první vybraný
    7  while assigned(pNode) do   // přes vybrané uzly
    8  begin
    9    MyData :=  vt.GetNodeData(pNode);  // získej naše data
   10    MyData^.crPrice := MyData^.crPrice + iDiff;  // proveď vlastní akci
   11    pNode := vt.GetNextSelected(pNode);  // další vybraný uzel
   12  end;
   13  vt.Invalidate; // zaaktualizuj zobrazení (vt je náš Virtual TreeView)
   14end;

    1procedure TfrmVTtest.btnMinusClick(Sender: TObject);
    2begin
    3  mAddSubSelected(-50);
    4end;
    5
    6procedure TfrmVTtest.btnPlusClick(Sender: TObject);
    7begin
    8  mAddSubSelected(+50);
    9end;

    1procedure TfrmVTtest.vtPaintText(Sender: TBaseVirtualTree;
    2  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
    3  TextType: TVSTTextType);
    4var
    5  MyData:PMyNodeData; // opět naše data
    6begin
    7  if Column <> 1 then // jen první sloupec
    8    Exit;
    9  MyData := vt.GetNodeData(Node); // získáme naše data
   10  if not assigned(MyData) then // jen pro jistotu
   11    Exit;
   12  if (MyData^.crPrice < 0) then
   13    TargetCanvas.Font.Color := clRed; // červená se …
   14end;