procedure TForm1.FormCreate(Sender: TObject);
var
  c: TAdvTreeViewColumn;
  n: TAdvTreeViewNode;
  I: Integer;
begin
  AdvCheckedTreeView1.BeginUpdate;
  AdvCheckedTreeView1.Columns.Clear;
  c := AdvCheckedTreeView1.Columns.Add;
  c.Text := ''Col 1'';
  c := AdvCheckedTreeView1.Columns.Add;
  c.Text := ''Col 2'';
  c := AdvCheckedTreeView1.Columns.Add;
  c.Text := ''Col 3'';

  AdvCheckedTreeView1.Nodes.Clear;
  AdvCheckedTreeView1.NodesAppearance.LevelIndent := 0;
  AdvCheckedTreeView1.NodesAppearance.ExpandWidth := 0;
  AdvCheckedTreeView1.NodesAppearance.ExpandHeight := 0;
  AdvCheckedTreeView1.NodesAppearance.ShowLines := False;
  AdvCheckedTreeView1.NodesAppearance.SelectionArea := tsaFull;

  for I := 0 to 9 do
  begin
    n := AdvCheckedTreeView1.Nodes.Add;
    n.CheckTypes[0] := tvntCheckBox;
    n.Text[0] := ''Item '' + inttostr(I);
    n.Text[1] := ''Item '' + inttostr(I);
    n.Text[2] := ''Item '' + inttostr(I);
  end;
  AdvCheckedTreeView1.EndUpdate;
end;