Работа с Tstringgrid, Изменение стиля текста в TStringGrid Опции

[APAL]

Подскажите как изменить (пример - сделать жирным) текст в заголовках колонок таблицы TStringGrid?

Нашел вроде бы
Tabl.Cells.Canvas.Font.Style:=[fsBold]; - да не работает...

Сообщение отредактировано: APAL - 12.04.2004 16:50

[APAL]

Только теперь другая проблема...

Жирный шрифт нужен был для заголовков колонок - он им и становиться, но после возврата предидущего стиля заголовки опять стандартного стиля.
Как сделать раздельное определение стиля на разные ячейки, а не на всю таблицу целиком?

Код

procedure TfMain.TablEnter(Sender: TObject);
Var
 Style: TFontStyles;
begin
 Style := Tabl.Font.Style;  // Получение стиля текущего шрифта.
 Tabl.Font.Style:=[fsBold];
 Tabl.Cells[0,0]:='Дата';
 Tabl.Cells[1,0]:='Время';
 Tabl.Cells[2,0]:='№ документа';
 Tabl.Cells[3,0]:='Документ';
 Tabl.Cells[4,0]:='Сумма';
 Tabl.Cells[5,0]:='Получатель';
 Tabl.Cells[6,0]:='Поставщик';
 Tabl.Cells[7,0]:='Информация';
{ Tabl.Font.Style:=Style;      }
end;