Главная страница
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.035 c
1-1101109369
Chery
2004-11-22 10:42
2004.12.05
Не работают функции на сервере при Borland Socket - служба.


3-1099884978
UVV
2004-11-08 06:36
2004.12.05
Компоненты для работы с Oracle


14-1100713676
ИМХО
2004-11-17 20:47
2004.12.05
Турция - Украина. 17 ноября 2004 года.


14-1099991989
Сергей Суровцев
2004-11-09 12:19
2004.12.05
Забодали уже 1С-сники!


1-1101001566
Bobby Digital
2004-11-21 04:46
2004.12.05
Listbox & Edit