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

[APAL]

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

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

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

[APAL]

Никакого моргания не наблюдаю...

Привожу итоговый код:

Код

procedure TfMain.TablEnter(Sender: TObject);
begin
 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[0,1]:='Информация';
 Tabl.Cells[1,1]:='Информация';
 Tabl.Rowcount:=Tabl.Rowcount+1;
 Tabl.Cells[0,2]:='Информация';
 Tabl.Cells[1,2]:='Информация';
 Tabl.Rowcount:=Tabl.Rowcount+1;
 Tabl.Cells[0,3]:='Информация';
 Tabl.Cells[1,3]:='Информация';
 Tabl.Rowcount:=Tabl.Rowcount+1;
 Tabl.Cells[0,4]:='Информация';
 Tabl.Cells[1,4]:='Информация';
 Tabl.Rowcount:=Tabl.Rowcount+1;
 Tabl.Cells[0,5]:='Информация';
 Tabl.Cells[1,5]:='Информация';

end;

procedure TfMain.TablDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
const
CharOffset = 2;
begin

With TStringGrid(Sender),TStringGrid(Sender).Canvas Do
 Begin
  IF (Odd(ARow)) then
    Brush.Color:=$f7f9fc else If ARow<>0 then Brush.Color:=Cl3Dlight;
  IF ARow<>0 then FillRect(Rect);
  TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
 End;

with Tabl.canvas do
begin
  if  State=[gdFixed]then
  begin
    font.Style:=[fsBold];
    textout(rect.left + CharOffset, rect.top + CharOffset,
        Tabl.Cells[ACol,Arow]);
  end
    else
  font.Style:=[fsBold];
end;
end;

Сообщение отредактировано: APAL - 25.04.2004 19:06