TMS (TAdvStringgrid) numbering of columns

VCL TMS VCL UI Pack
1

In TAdvStringgrid component has support for numbering of columns at the top of the letters i digits to the left as in Excel?

2

i fixed write procedure


    <strong>procedure TForm1.btn2Click(Sender: TObject);</strong>
    <strong>var</strong>
      i: Integer;
    <strong>begin</strong>
       <strong>with advstrngrd1 <strong>do</strong></strong>
       <strong>begin</strong>
        <strong>for I := <span -value="blue" style="cursor: auto; color: blue;">0 <strong>to ColCount -<span -value="blue" style="cursor: auto; color: blue;">1 <strong>do</strong></strong></strong>
          GridCells[i+<span -value="blue" style="cursor: auto; color: blue;">1</span>,<span -value="blue" style="cursor: auto; color: blue;">0</span>] := char(Ord(char(<span -value="green" style="cursor: auto; color: green;">'A'))+i);
        <strong>for I := <span -value="blue" style="cursor: auto; color: blue;">1 <strong>to RowCount -<span -value="blue" style="cursor: auto; color: blue;">1 <strong>do</strong></strong></strong>
          GridCells[<span -value="blue" style="cursor: auto; color: blue;">0,i] := IntToStr(i);
       <strong>end;</strong>
    <strong>end;</strong>