Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

полосотый DBGrid   Найти похожие ветки 

← →
kaktus   (2004-11-23 18:31) [0]

Доброе время суток мастера!
А как мне замутить полосатый грид, т.е. одна строчка одним цветом, а другая другим.

---

← →
begin...end ©   (2004-11-23 18:38) [1]

> kaktus   (23.11.04 18:31)

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168

---

← →
Piter ©   (2004-11-23 22:22) [2]

Вопрос: как раскрасить отдельные строки/столбцы в TDBGgrid

Ответ: нужно обработать событие OnDrawColumnCell, которое возникает при отрисовке ячейки:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 Grid: TDbGrid;
begin
 Grid := Sender as TDBGrid;
 if (Grid.DataSource.DataSet.RecNo mod 2) = 0 then
   Grid.Canvas.Brush.Color := clRed
 else if (DataCol mod 2) = 0 then
   Grid.Canvas.Brush.Color := clGreen;
 Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

В результате, каждая вторая строка раскрашивается в красный цвет, а у каждой первой строки каждый первый столбец раскрашивается в зеленый цвет.

При этом стоит сделать:

DBGrid1.DefaultDrawing := False; - чтобы не раскрашивался два раза подряд

Отвечал: Jack128

---

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

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх

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