Цветной DBGrid

← →
lmz © (2005-09-11 18:30) [0]

Как сделать разноцветные строки в DBGrid"е через одну?

← →
Alpine (2005-09-11 19:13) [1]

procedure TTRF_Country.dbGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
Begin
if (Query.RecNo) mod 2 =0 then begin
With DBGrid1.Canvas do begin
Brush.Color:=clMaroon;
Font.Color:=clWhite;
FillRect(Rect);
if (Column.Alignment=taRightJustify) then
TextOut(Rect.Right-2- TextWidth(Column.Field.Text),
Rect.Top+2,Column.Field.Text)
else
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;
end;

← →
Дмитрий Белькевич (2005-09-11 19:14) [2]

Для DBGridEh"а:

procedure DBGridEh4GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if TDBGridEh(Sender).SumList.RecNo mod 2 = 1 then
Background := $00FFFFFF
else
Background := $00EDEDED;
end;

← →
jack128 © (2005-09-11 19:47) [3]

Дмитрий Белькевич (11.09.05 19:14) [2]
Для DBGridEh"а сть свойство OddRowColor ;)

← →
lmz © (2005-09-11 19:47) [4]

Спасибо за помощь!!!!!

← →
Дмитрий Белькевич (2005-09-12 03:47) [5]

>Для DBGridEh"а сть свойство OddRowColor ;)
Нет. По крайней мере в 3.2. Кусок брал из примеров, которые с ним идут.

> Нет. По крайней мере в 3.2. Кусок брал из примеров,
> которые с ним идут.

Это св-во добавлено в 3.6:

В TDBGridEh ...Добавлены свойства OddRowColor и EvenRowColor для вывода четных и нечетных строк различными цветами. Это работает только когда DataSet поддерживает нумерацию записей (DataSet.IsSequenced = True) и DataSet.RecNo возвращает правильную информацию...

Вместо X mod 2 = 1
лучше писать odd(X)
Так и короче и работает быстрей.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
holdColor: TColor;
begin
holdColor := DBGrid1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
{"раскрашиваем" ячейки только для поля EmpNo}
if Column.FieldName = "EmpNo" then
if (Column.Field.AsInteger mod 2 <> 0) then
begin
DBGrid1.Canvas.Brush.Color := clGreen;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
DBGrid1.Canvas.Brush.Color := holdColor;
end;
end;

Цветной DBGrid Найти похожие ветки