| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Народ как поменять цвет определённой ячейки в Стриггриде

REd_imp ©   (2005-02-04 13:21:00) 

Заранее благодарен за ответ

---

msguns   (2005-02-04 13:51:00) [1]

Кстати, а у TColumn есть такое свойство, как Color ;)

---

msguns   (2005-02-04 13:50:00) [2]

А если вместо
if(ACol div 2 = ACol / 2)нарисовать
if(DataSource.DataSet.RecNo div 2 = DataSource.DataSet.RecNo/2) 
то будет тельняшка

А если совместить оба, то будет шахматная доска.
Кррррасотишшша !!!

;))

---

wl   (2005-02-04 13:42:00) [3]

аха, условие в if и цвета - по вкусу....

---

msguns   (2005-02-04 13:40:00) [4]

>wl ©   (04.02.05 13:39) [2]

Зебра ?

---

wl   (2005-02-04 13:39:00) [5]

просто чтобы было понятнее...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
begin
 if(ACol div 2 = ACol / 2) then
 begin
   StringGrid1.Canvas.Brush.Color := clRed;
   StringGrid1.Canvas.Rectangle(Rect);
 end
 else
 begin
   StringGrid1.Canvas.Brush.Color := clBlue;
   StringGrid1.Canvas.Rectangle(Rect);
 end;
end;


---

_vox_   (2005-02-04 13:28:00) [6]

см. событие OnDrawCell

---

Наверх