Форум: "Основная";
Текущий архив: 2004.12.05;
Скачать: [xml.tar.bz2];
Внизполосотый 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c