Раскрасить строки 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;

Можно хранить нужный цвет для каждой ячейки в 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

Раскрасить строки StringGrid Найти похожие ветки