StringGrid

[Stilet]

Запускаю программу - ничего не происходит.

У меня вот так работает:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if acol=1 then Font.Color:=clred else Font.Color:=clblack;
end;

[mihali4]

Пример из моего справочника (размещен на сайте форума для всех):

Для раскрашивания будем использовать событие "ondrawcell". Следующий код показывает, как сделать в grid красный бэкраунд. Бэкграунд второй колонки будет зелёным.

procedure tform1.stringgrid1drawcell(sender: tobject; acol, arow: integer;
rect: trect; state: tgriddrawstate);
const //сдесь определяем Ваш цвет. Так же можно использовать
//цвета по умолчанию.
clpalegreen = tcolor($ccffcc);
clpalered = tcolor($ccccff);
begin
//Если ячейка получает фокус, то нам надо закрасить её другими цветами
if (gdfocused in state) then begin
stringgrid1.canvas.brush.color := clblack;
stringgrid1.canvas.font.color := clwhite;
end
else //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным
if acol = 2 //Вторая колонка будет зелёной , другие - ячейки красными
then stringgrid1.canvas.brush.color := clpalegreen
else stringgrid1.canvas.brush.color := clpalered;
//Теперь закрасим ячейки, но только, если ячейка не title- row/column
//Естевственно это завит от того, есть у Вас title-row/columns или нет.
if (acol > 0) and (arow>0) then
begin
//Закрашиваем бэкграунд
stringgrid1.canvas.fillrect(rect);
//Закрашиваем текст (text). Также здесь можно добавить выравнивание и т.д..
stringgrid1.canvas.textout(rect.lef t,rect.top,stringgrid1.cells[acol,arow]);
end;
Если Вы захотите чтобы цвет ячеек менялся в зависимости от значения в них, то можно заменить 3 линии (if acol = 2 ......) на что-нибудь вроде этого
if stringgrid1.cells[acol,arow] = 'highlight it'
then stringgrid1.canvas.brush.color := clpalered
else stringgrid1.canvas.brush.color := clwhite;

[Almaas]

Всем спасибо. Теперь думаю - заработает.

[Almaas]

Извините, еще вопрос. Не совсем по теме, конечно, но все к той же таблице...
Когда я хочу шрифт сделать жирным, я пишу
StringGrid1.Canvas.Font.Style:=[fsBold];...
А вот как его сделать обратно нормальным?
пробовал [fsNormal], ругается, что я обращаюсь к свойствам формы
пробовал [fsClear], ругается на неизвестную переменную?
Неужели возврат к нормальному шрифту по-умолчанию возможен только через сохранение канвы и ее последующего восстановления?

[mihali4]

Немного не так, это все же список...
Включаем жирный:
StringGrid1.Canvas.Font.Style:=Stri ngGrid1.Canvas.Font.Style+[fsBold];
Выключаем жирный:
StringGrid1.Canvas.Font.Style:=Stri ngGrid1.Canvas.Font.Style-[fsBold];

[Almaas]

Спасибо, mihali4, заработало.