Имеется компонент StringGrid и следующий код:
| Код |
procedure TfrmGridComp.btnContentWorkArea1Click(Sender: TObject);
var i,j: Integer;
begin
with sgrGridComp1 do
begin{0}
for i:=1 to ColCount-1 do
for j:=1 to RowCount-1 do
begin
Cells[i,j] :=Cells[i,0]+Cells[0,j];
end;{0}
end;
end;
procedure TfrmGridComp.sgrGridComp1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
if (ACol=3) and (ARow=5) then
begin
sgrGridComp1.Canvas.Font.Style := [fsItalic];
sgrGridComp1.Canvas.Font.Color := clRed;
sgrGridComp1.Canvas.FillRect(Rect);
end;
end;
|
После выполнения я получаю заполненную таблицу кроме ячейки (5,3). Делая активной эту ячейку, она заполняется, но атрибуты шрифта такие же как для всей таблицы, а не как в обработчике OnDrawCell. Когда делаю активной другую ячейку, указанная вновь становится незаполненной. Почему та происходит? Объясните, плиз.  |
