1:
2:
3:
4:
5:
6:
7:
8:
9:

for i:=0 to Positions.Count-1 do begin

       node := VSTOrderPrintPositions.AddChild(nil);
       node.CheckType := ctCheckBox; 

       data := VSTOrderPrintPositions.GetNodeData(node);
       data^.position := TPosition(Positions[i]);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TDShowFileOptionenForm.FarbenAfterCellPaint(
  Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  Column: TColumnIndex; CellRect: TRect);
var data:PHighlightRecord;
begin
  data:=farben.GetNodeData(node);
  if data.Fett then
    drawframecontrol(targetcanvas.Handle,CellRect,DFC_BUTTON,DFCS_CHECKED)
  else
    drawframecontrol(targetcanvas.Handle,CellRect,DFC_BUTTON,DFCS_BUTTONCHECK);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TDShowFileOptionenForm.FarbenColumnClick(
  Sender: TBaseVirtualTree; Column: TColumnIndex; Shift: TShiftState);
var data:PHighlightRecord;
    select:PVirtualNode;
begin
  data:=farben.GetNodeData(select);
  data.Fett:=not data.Fett;
  farben.RepaintNode(select);
end;