![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Раскрасить строки StringGrid [D6, Win2k, WinXP]
DDDeN © (2005-01-12 07:59:00)Как выделенную строку в StringGrid выделить цветом при нажатии на кнопку?
XmeD (2005-01-17 11:18:00) [1]http://www.delphimaster.ru/articles/advice/answer05.html
XmeD (2005-01-12 18:48:00) [2]bulkas (12.01.05 18:22) [7]
StringGrid1.Canvas.Brush.Color := ColorDialog1.Color;
Ну рас уж пошло про диалоги, то
procedure TForm1.BitBtn1Click(Sender: TObject);
var
r: TRect;
begin
r := StringGrid1.CellRect(1,1);
if ColorDialog1.Execute then
StringGrid1.Canvas.Brush.Color := ColorDialog1.Color;
StringGrid1.Canvas.FillRect(r);
end;
begin...end (2005-01-12 18:34:00) [3]Можно хранить нужный цвет для каждой ячейки в TStringGrid.Objects.
Прорисовывать ячейки тогда потребуется в TStringGrid.OnDrawCell.
bulkas (2005-01-12 18:22:00) [4]StringGrid1.Canvas.Brush.Color := ColorDialog1.Color;
XmeD (2005-01-12 18:18:00) [5]попробуй:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
r: TRect;
begin
r := StringGrid1.CellRect(1,1);
StringGrid1.Canvas.Brush.Color := clRed;
StringGrid1.Canvas.FillRect(f);
end;
З.Ы. но если свернуть то прпадёт раскраска, так шо дальше какнибуть сам
Neznaika (2005-01-12 13:02:00) [6]Воспользуйся поиском, где-то здесь это сто пудов Есть. Сам не давно читал...
Anatoly Podgoretsky (2005-01-12 12:42:00) [7]OnDrawCell
DDDeN (2005-01-12 12:35:00) [8]Мне надо раскрасить в разные цвета строки с определенным значением в столбце, скажем пятом, ставим курсор на строку, выбираем цвет и нажмимаем кнопочку - строка раскрашивается в выбранный цвет.
ЮЮ (2005-01-12 08:43:00) [9]Чем не устраивает стандартная раскраска при вкличенном goDrawFocusSelected в Options&
Александр Иванов (2005-01-12 08:33:00) [10]DDDeN (12.01.05 7:59)
StringGrid1.SetFocus?