VPF::Раскраска DBGrid - Форум программистов

Waterman

Дата 9.5.2007, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 11.9.2005

Репутация: нет
Всего: нет

Дл раскрашивания строк BGrid в Delphi 6 применил такую процедуру:

Код


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

 begin

 IF DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 Then
  begin
    DBGrid1.Canvas.Font.Color := clBlack;
    DBGrid1.Canvas.Brush.Color:= clCream;

  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

Но почему-то нет периодичности закрашивания. Красит безсистемно, хотя должна чередовать чётные и нечётные. В чём ошибка.

Waterman

Дата 9.5.2007, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 11.9.2005

Репутация: нет
Всего: нет

Пробовал вот так:

Код


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

 begin
with DBGrid1.Canvas do
begin
if odd(Table1.RecNo) then Brush.Color := clSilver else Brush.Color :=
clBlue;
FillRect(Rect);
end;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

Ситуация повторилась. Непонятно. smile

Waterman

Дата 11.5.2007, 08:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 11.9.2005

Репутация: нет
Всего: нет

Нашёл в чём проблема. Если производиться сортировка записей типа:

Код


Table1.IndexName :=('Num');

нарушается последовательность раскраски строк. Как можно решить эту проблемку. Хочется, чтобы таблицы выглядели посимпатичнее. Но сортировка нужна.

Это сообщение отредактировал(а) Waterman - 11.5.2007, 08:30

Waterman

Дата 30.5.2007, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 11.9.2005

Репутация: нет
Всего: нет

Как можно дополнить эту процедуру, что бы происходила закраска не только первой колонки, но и двух других. Но в них значения строковые.

Код


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var holdColor: TColor;

  begin
 holdColor := DBGrid1.Canvas.Brush.Color; 
  if Column.FieldName = 'kln'  then
  if (Column.Field.AsInteger mod 2 <> 0) then

    begin
      DBGrid1.Canvas.Brush.Color := clWhite;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid1.Canvas.Brush.Color := holdColor;

    end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »