TStringGrid

← →
Alibaba (2002-07-04 11:27) [0]

Всем привет!
Подскажите плиз, как сделать, что-бы в TStringGrid некоторые строчки были другого цвета? Имеется ввиду или фон или цвет надписей.

← →
Skier (2002-07-04 11:28) [1]

>Alibaba
OnDrawCell

← →
Alibaba (2002-07-04 11:34) [2]

А можно примерчик? :)

← →
Виктор Щербаков (2002-07-04 11:35) [3]

Alibaba © (04.07.02 11:34)
Примерчик в хэлпе.

← →
Alibaba (2002-07-04 11:38) [4]

>Виктор Щербаков
И вообще если у кого какие вопросы есть - жмите F1 - там все написано! Я правильно понимаю Вашу позицию?
Только зачем тогда существуют форумы...?

← →
Kaban (2002-07-04 11:41) [5]

2Alibaba
Поищи на форуме. Этот вопрос очень часто задается и не только для StringGrid. Принцип один и тот же.

← →
Виктор Щербаков (2002-07-04 11:42) [6]

Alibaba © (04.07.02 11:38)

> Только зачем тогда существуют форумы...?

Для обсуждения того, о чем в хэлпе не написано или написано плохо. Плюс еще удаленная отладка :)

← →
Alibaba (2002-07-04 11:45) [7]

>Виктор Щербаков
Убедительно. Но не всегда правильно. :)

← →
Кулюкин Олег (2002-07-04 11:48) [8]

Форумы существуют для того, чтобы человек мог спросить направление, в котором ему нужно копать (самостоятельно).
А не для цитирования хелпа.

← →
Kaban (2002-07-04 11:50) [9]

2Alibaba
Что значит невсегда правильно? Помощь должна иметь разумные пределы. Вам указали путь, разобраться в способе отрисовки способен и начинающий программист. Как вы думаете, это нормально, если каждый будет приходить на форум с просьбой написать за него код. А если вы не способны, посидеть полчасика, поэксперементировать, то вы не программист.

← →
Skywalker (2002-07-04 11:54) [10]

Иногда в хелпе вопрос освещается очень скудно, особенно я заметил это в хелпе Билдера...

← →
Anatoly Podgoretsky (2002-07-04 11:54) [11]

Alibaba © (04.07.02 11:45)
В даннном случае тебя надо понимать так, мне влом самому смотреть там пример, вы скопируйте его для меня сюда, а я подумаю нужен ли он мне
Шкурная у тебя позиция

← →
Alibaba (2002-07-04 13:21) [12]

2Kaban
Не нервничайте так, вредно для сердца.

2Anatoly Podgoretsky
"Шкурная у тебя позиция" - это тонко подмечено. Вам осталось еще чуть-чуть и перейдете на мат. Куда смотрит модератор?

Для всех остальных нормальных людей:
Что-бы заполнить ячейку пишу:

procedure TForm1.sgCompDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
r: TRect;
begin
sgComp.Canvas.Brush.Color := clRed;
r:=sgComp.CellRect(0,1);
sgComp.Canvas.FillRect(r);
end;

а как что-бы текст в этой ячейке был определенным цветом?
Спасибо, всем!

← →
Skier (2002-07-04 13:24) [13]

>Alibaba
Может так :
sgComp.Canvas.Font.Color := clYourColor;

← →
Alibaba (2002-07-04 13:37) [14]

2Skier

Оно как-то, понимаеш, заливает все!
Я пишу в ячейку текст :
procedure TForm1.FormActivate(Sender: TObject);
begin
sgComp.Cells[0,1]:="Проба";
end;

потом, во время перерисовки, заполняю цветом:

procedure TForm1.sgCompDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
r: TRect;
begin
sgComp.Canvas.Brush.Color := clGreen;
r:=sgComp.CellRect(0,1);
sgComp.Canvas.FillRect(r);
end;

в результате ячейка просто заливается зеленым цветом и текст в этой ячейке НЕ ВИДЕН?

← →
Skier (2002-07-04 13:40) [15]

>Alibaba
А ты вообще-то Canvas.TextOut использовать
собираешься или как ?!

← →
Alibaba (2002-07-04 13:45) [16]

2Skier

Спасибо.
Не до смотрел...
Все работает!

TStringGrid Найти похожие ветки