Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c