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