Можно ли в Stringgrid написать подстрочный индекс

[Arassir]

Можно ли в Stringgrid написать подстрочный индекс?

[Serge_Bliznykov]

можно. но не очень просто...

1) как Вы себе это представляете?
(дайте картинку/скриншот/эскиз. или подробно распишите)

2) Как бы Вы вывели подстрочный индекс в другой компоненте (ну, например, в Label) ?

3) используя событие OnDraw для TStringGrid можно форматировать текст внутри ячейки. Только надо знать КАК Вы хотите, чтобы он был отформатирован.

4) может просто вставить картинку в нужное место?

[Stilet]

но не очень просто...

Ой не смешите мои тапочки ))))

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i:integer;s:string;
begin
 with TStringGrid(sender) do begin
  with Canvas do begin
  s:=Cells[acol,arow];
   i:=TextWidth(s);
   TextOut(rect.Left,rect.Top,s);
   Font.Size:=Font.Size div 2;
   TextOut(rect.Left+i,rect.Top+5,'2');
  end;
 end;
end;

Элементарно, Ватсон

[Serge_Bliznykov]

но не очень просто...

Угу. согласен. Просто!

только...
Виталий, а кто Вам сказал что ТС нужен индекс ПОСЛЕДНИЙ символ в строке?
Вот, мне любопытно, как текст вывести, где индексы в середине строки (ну, там Si = Ai+ Bi)
и ещё. мне кажется, что по правилам индекс записывается меньшим шрифтом, чем основной текст...


p.s. хотя, мне по прежнему не ясно, что нужно TC...
поэтому мой пост практически оффтоп...