Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TStringGrid [D6, Win2k]

Alibaba © (2002-07-04 11:27:00)
Всем привет!
Подскажите плиз, как сделать, что-бы в TStringGrid некоторые строчки были другого цвета? Имеется ввиду или фон или цвет надписей.

Alibaba (2002-07-04 13:45:00) [1]
2Skier

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

Skier (2002-07-04 13:40:00) [2]
>Alibaba
А ты вообще-то Canvas.TextOut использовать
собираешься или как ?!

Alibaba (2002-07-04 13:37:00) [3]
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:24:00) [4]
>Alibaba
Может так :
sgComp.Canvas.Font.Color := clYourColor;

Alibaba (2002-07-04 13:21:00) [5]
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;

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

Skywalker (2002-07-04 11:54:00) [6]
Иногда в хелпе вопрос освещается очень скудно, особенно я заметил это в хелпе Билдера...

Anatoly Podgoretsky (2002-07-04 11:54:00) [7]
Alibaba © (04.07.02 11:45)
В даннном случае тебя надо понимать так, мне влом самому смотреть там пример, вы скопируйте его для меня сюда, а я подумаю нужен ли он мне
Шкурная у тебя позиция

Kaban (2002-07-04 11:50:00) [8]
2Alibaba
Что значит невсегда правильно? Помощь должна иметь разумные пределы. Вам указали путь, разобраться в способе отрисовки способен и начинающий программист. Как вы думаете, это нормально, если каждый будет приходить на форум с просьбой написать за него код. А если вы не способны, посидеть полчасика, поэксперементировать, то вы не программист.

Кулюкин Олег (2002-07-04 11:48:00) [9]
Форумы существуют для того, чтобы человек мог спросить направление, в котором ему нужно копать (самостоятельно).
А не для цитирования хелпа.

Alibaba (2002-07-04 11:45:00) [10]
>Виктор Щербаков
Убедительно. Но не всегда правильно. :)

Виктор Щербаков (2002-07-04 11:42:00) [11]
Alibaba © (04.07.02 11:38)

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

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

Kaban (2002-07-04 11:41:00) [12]
2Alibaba
Поищи на форуме. Этот вопрос очень часто задается и не только для StringGrid. Принцип один и тот же.

Alibaba (2002-07-04 11:38:00) [13]
>Виктор Щербаков
И вообще если у кого какие вопросы есть - жмите F1 - там все написано! Я правильно понимаю Вашу позицию?
Только зачем тогда существуют форумы...?

Виктор Щербаков (2002-07-04 11:35:00) [14]
Alibaba © (04.07.02 11:34)
Примерчик в хэлпе.

Alibaba (2002-07-04 11:34:00) [15]
А можно примерчик? :)

Skier (2002-07-04 11:28:00) [16]
>Alibaba
OnDrawCell

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »