Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

Как изменить цвет шрифта в 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?

---

Страницы: 1 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.049 c