Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.06 c
4-1098528598
TeNY
2004-10-23 14:49
2004.12.05
Найти все окна принадлежышие процессу.


9-1091074300
Evgeniy_K
2004-07-29 08:11
2004.12.05
DXDiag


3-1099857662
DimDim
2004-11-07 23:01
2004.12.05
Запрос на изменение структуры таблицы


8-1093708660
Den
2004-08-28 19:57
2004.12.05
Наложение текстуры


1-1101123489
_alex_
2004-11-22 14:38
2004.12.05
Помогите разобраться с задержкой