TMS Advanced StringGrid - Сместить текст в ячейке с фигурой

[Yuran]

Доброе время!

Кто работал с Advanced StringGrid (TAdvStringGrid) подскажите где копать.

Суть проблемы:
В ячейке рисую квадратик с помощью

MyGrid.AddShape(col,row,csRectangle,myColor, clBlack, haBeforeText, vaTop);

Он отображается слева от текста в ячейке


Если размер ячейки изменить, то квадратик растягивается на всю высоту

ячейки, а текст смещается вправо на ширину квадратика.

Мне нужно чтоб при увеличении размера ячейки квадратик не увеличивался а оставался маленьким в левом верхнем углу ячейки, а текст начинался сразу за ним.

Копаясь в коде модуля AdvUtils я нашел место где можно ограничить ширину и высоту квадратика

procedure DrawShape(Canvas: TCanvas; X,Y: integer; Width, Height: integer; Shape: TCellShape; FillColor:TColor; LineColor:TColor);
var
  szx,szy: integer;
  cntrx,cntry: integer;
  wx,wy: integer;
  wxs,wys: double;
begin
  Canvas.Brush.Color := FillColor;
  Canvas.Pen.Color := LineColor;

  szx := Width;
  szy := Height;

  if (Shape in [csCircle, csSquare, csRoundSquare]) then
  begin
    if szx <> szy then
    begin
      if szx > szy then
        szx := szy
      else
        szy := szx;
    end;
  end;

  if szx>15 then szx:=15; // это добавлено мной
  if szy>15 then szy:=15;  // это добавлено мной
...
...

Теперь квадратик не увеличивается, но текст все равно смещается как если бы квадратик увеличивался.

Не могу найти где это исправить

Помогите пожалуйста.

[Yuran]

Неужели никто не работал с этим компонентом?