Как изменить цвет шрифта в StringGrid?

← →
Max Ivanych © (2004-11-23 11:15) [0]

Делаю так:
s:=sgCompanies.Cells[ACol,ARow];
if (frmMain.rgSearch.ItemIndex=2) and (AddressEmpty="")and(ARow>0) then
begin
sgCompanies.Canvas.Font.Color:=clGray;
sgCompanies.Canvas.FillRect(Rect);
end
else
begin
sgCompanies.Canvas.Font.Color:=clBlack;
sgCompanies.Canvas.FillRect(Rect);
end;
sgCompanies.Canvas.TextOut(Rect.Left+4,Rect.Top+5,s);
Результат: все записи отображаются серым. Проверил - проход через else присутствует. В чем я не прав? Заранее спасибо!

← →
Ascan (2004-11-24 11:49) [1]

А ты не пробывал использовать OnDrawColumnCell?

Как изменить цвет шрифта в StringGrid? Найти похожие ветки