(VirtualTreeView als Grid) 2.,3. ... Spalte markieren

[Viktorii]

Hallo.

Ich erstelle in meiner Anwendung ein VirtualTreeView als ListView-Ersatz zur Laufzeit:

Delphi-Quellcode:

  Header.Options := Header.Options + [hoVisible] + [hoAutoResize] + [hoDblClickResize];
  Header.Style := hsFlatButtons;
  TreeOptions.PaintOptions := TreeOptions.PaintOptions - [toShowRoot];
  TreeOptions.PaintOptions := TreeOptions.PaintOptions + [toShowHorzGridLines];
  TreeOptions.PaintOptions := TreeOptions.PaintOptions + [toShowVertGridLines];
  TreeOptions.MiscOptions  := TreeOptions.MiscOptions  + [toEditable];
  TreeOptions.MiscOptions  := TreeOptions.MiscOptions  + [toGridExtensions];

Außerdem erstelle ich mit natürlich noch ein paar weitere Spalten mit:

Delphi-Quellcode:

  for i := 0 to 6 do
    Header.Columns.Add;

  Header.Columns[0].Text := 'Text';
  Header.Columns[0].Width := 150;

// usw...

Allerdings lassen sich die Felder in der ersten Spate markieren. Die anderen leider nicht.
In dem Advanced GridDemo geht das. Was muss ich machen damit das bei mir auch geht?
Vielen Dank.