Никакого моргания не наблюдаю...
Привожу итоговый код:
Код
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;