Раскраска Dbgrid

Тема в разделе "Delphi - Компоненты", создана пользователем Plos, 9 май 2007.

Статус темы:
Закрыта.
  1. Plos

    Plos Гость

    Дл раскрашивания строк BGrid в Delphi 6 применил такую процедуру:
    Код (Text):
    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;
    Но почему-то нет периодичности закрашивания. Красит безсистемно, хотя должна чередовать чётные и нечётные. В чём ошибка.
    Поробовал по другому.
    Код (Text):
    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;
    Результат то же
     
  2. Plos

    Plos Гость

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


    Table1.IndexName :=('Num');





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

    LAW Гость

    Делай:
    Код (Text):
    Query1->SQL->Text:=('SELECT поле1,поле2 FROM таблица1 GROUP BY NUM');
    Query1->Open();
    Удачи.
     
  4. Plos

    Plos Гость

    Я использую TDatabase, TDatasource, Ttable, TDBGrid и сортирую Table1.IndexName :=('Num');
    Можно как-нибудь решить эту проблемку при использовании этих компонентов.
     
Загрузка...
Похожие Темы - Раскраска Dbgrid
  1. rabbit
    Ответов:
    0
    Просмотров:
    1.310
  2. vbs
    Ответов:
    7
    Просмотров:
    5.288
  3. Gelergo
    Ответов:
    1
    Просмотров:
    1.762
  4. Ягодка
    Ответов:
    1
    Просмотров:
    2.338
  5. novachok
    Ответов:
    3
    Просмотров:
    2.727
Статус темы:
Закрыта.

Поделиться этой страницей