Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Вниз

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

← →
REd_imp   (2005-02-04 13:21) [0]

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

---

← →
_vox_   (2005-02-04 13:28) [1]

см. событие OnDrawCell

---

← →
wl ©   (2005-02-04 13:39) [2]

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

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;


---

← →
msguns ©   (2005-02-04 13:40) [3]

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

Зебра ?

---

← →
wl ©   (2005-02-04 13:42) [4]

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

---

← →
msguns ©   (2005-02-04 13:50) [5]

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

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

;))

---

← →
msguns ©   (2005-02-04 13:51) [6]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c