Изменение цвета строки DBGrid

Архив > Delphi/Pascal > DELPHI FAQ (по темам) > Базы данных
 
[ Поиск в архиве ] [ Предыдущая страница ] [ Каталог ]
 
Как выделить строку или ячейку в Dbgrid цветом или шрифтом
 
    Как изменить шрифт определённой строки в dbgrid
    Для этого надо воспользоваться событием ondrawdatacell в dbgrid.
 
    procedure tform1.dbgrid1drawdatacell(sender: tobject; const rect: trect;
    field: tfield; state: tgriddrawstate);
    begin
    // if the record's custno is 4711 draw the entire row with a
    // line through it. (set the font style to strike out)
    if (sender as tdbgrid).datasource.dataset.fieldbyname('custno').asstring =
    '4711' then
    with (sender as tdbgrid).canvas do
    begin
    fillrect(rect);
    // set the font style to strikeout
    font.style := font.style + [fsstrikeout];
    // draw the cell right aligned for floats + offset
    if (field.datatype = ftfloat) then
    textout(rect.right-textwidth(field.asstring)-3,
    rect.top+3, field.asstring)
    // otherwise draw the cell left aligned + offset
    else
    textout(rect.left+2,rect.top+3,field.asstring);
    end;
    end;
 
    Замечание: Вышеприведённый код использует таблицу "customer.db", tdbgrid, tdatasource
    и ttable.
 
    Как отобразить выбранную строку dbgrid различными цветами
    Если Вы хотите раскрасить выбранную строку dbgrid, но не хотите использовать опцию dgrowselect, так как хотели бы редактировать данные, то можно воспользоваться следующей технологией в событии dbgrid.ondrawcolumncell: type tcustomdbgridcracker = class(tcustomdbgrid);
    procedure tform1.dbgrid1drawcolumncell(sender: tobject;
    const rect: trect;
    datacol: integer;
    column: tcolumn;
    state: tgriddrawstate);
    begin
    with tcustomdbgridcracker(sender) do
    if datalink.activerecord = row - 1 then
    canvas.brush.color := clred else canvas.brush.color := clwhite;
    defaultdrawcolumncell(rect, datacol, column, state);
    end;
 
    dbgrid компонент, который отображает разными цветами удалённые, обновлённые и добавленные записи
    unit atcdbgrid;
    (c) aveen tech 2001 - 2002
 
    filename: atcdbgrid.pas
 
    version date author comment
    1.0 13/06/2000 majid vafai jahan create.
 
    overview
    - this grid is inherited from dbgrid and add some required functionality to it.
 
    functionality:
    - record type are all records that may be modified, unmodified, inserted, deleted.
    - coloring according to record type.
    - show selected record type.
 
    *)
 
    interface
 
    uses
    windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
    grids, dbgrids, dbtables, db;
    const
    alignflags : array [talignment] of integer =
    ( dt_left or dt_wordbreak or dt_expandtabs or dt_noprefix,
    dt_right or dt_wordbreak or dt_expandtabs or dt_noprefix,
    dt_center or dt_wordbreak or dt_expandtabs or dt_noprefix );
    rtl: array [boolean] of integer = (0, dt_rtlreading);
    type
    tcachedshow = (csmodify, csunmodify, csremoved, csinserted, csall, csnormal);
    tatcdbgrid = class(tdbgrid)
    private
    fcachedshow: tcachedshow;
    fmodifiedcolor: tcolor;
    finsertedcolor: tcolor;
    fdeletedcolor: tcolor;
    procedure setcachedshow(const value: tcachedshow);
    protected
    procedure drawdatacell(const rect: trect; field: tfield;
    state: tgriddrawstate); override;
    procedure drawcolumncell(const rect: trect; datacol: integer;
    column: tcolumn; state: tgriddrawstate); override;
    public
    constructor create(aowner: tcomponent); override;
    published
    property atccachedshow: tcachedshow read fcachedshow write setcachedshow;
    property atcdeletedcolor: tcolor read fdeletedcolor write fdeletedcolor;
    property atcinsertedcolor: tcolor read finsertedcolor write finsertedcolor;
    property atcmodifiedcolor: tcolor read fmodifiedcolor write fmodifiedcolor;
    end;
 
    procedure register;
 
    implementation
 
    (******************************************************************************)
    procedure register;
    begin
    registercomponents('atc db compo', [tatcdbgrid]);
    end;
 
    (******************************************************************************)
    constructor tatcdbgrid.create(aowner: tcomponent);
    (*
    description: record type showing is all except deletes.
    *)
 
    begin
    inherited;
    fcachedshow := csnormal;
    fdeletedcolor := clgray;
    finsertedcolor := claqua;
    fmodifiedcolor := clred;
    end;
 
    (******************************************************************************)
    procedure tatcdbgrid.drawcolumncell(const rect: trect; datacol: integer;
    column: tcolumn; state: tgriddrawstate);
    (*
    description: on drawing column color updated records.
    *)
    var
    arect: trect;
    begin
    inherited;
    if not assigned(column.field) then
    exit;
    // copy rect into variable.
    copyrect(arect, rect);
    if assigned(datalink) and (datalink.active) and (datalink.dataset <> nil) then
    begin
    // если текущая запись изменена
    if datalink.dataset.updatestatus = usmodified then
    begin
    canvas.brush.color := atcmodifiedcolor;
    canvas.font.color := clblack;
    canvas.fillrect(rect);
    drawtext(canvas.handle, pchar(column.field.text), length(column.field.text), arect,
    alignflags[column.alignment] or rtl[userighttoleftalignmentforfield(column.field, column.alignment)]);
    end
    // если текущая запись добавлена.
    else if datalink.dataset.updatestatus = usinserted then
    begin
    canvas.brush.color := atcinsertedcolor;
    canvas.font.color := clblack;
    canvas.fillrect(rect);
    drawtext(canvas.handle, pchar(column.field.text), length(column.field.text), arect,
    alignflags[column.alignment] or rtl[userighttoleftalignmentforfield(column.field, column.alignment)]);
    end
    // если текущая запись удалена.
    else if datalink.dataset.updatestatus = usdeleted then
    begin
    canvas.brush.color := atcdeletedcolor;
    canvas.font.color := clwhite;
    canvas.fillrect(rect);
    drawtext(canvas.handle, pchar(column.field.text), length(column.field.text), arect,
    alignflags[column.alignment] or rtl[userighttoleftalignmentforfield(column.field, column.alignment)]);
    end;
    end;
    end;
 
    (******************************************************************************)
    procedure tatcdbgrid.drawdatacell(const rect: trect; field: tfield;
    state: tgriddrawstate);
    (*
    Описание: Рисуем ячейки
    *)
    var
    arect: trect;
    begin
    inherited;
    copyrect(arect, rect);
 
    if assigned(datalink) and (datalink.active) and (datalink.dataset <> nil) then
    begin
    // если текущая запись изменена
    if datalink.dataset.updatestatus = usmodified then
    begin
    canvas.brush.color := clred;
    canvas.font.color := clblack;
    canvas.fillrect(rect);
    drawtext(canvas.handle, pchar(field.text), length(field.text), arect,
    alignflags[field.alignment] or rtl[userighttoleftalignmentforfield(field, field.alignment)]);
    end
    // если текущая запись добавлена.
    else if datalink.dataset.updatestatus = usinserted then
    begin
    canvas.brush.color := claqua;
    canvas.font.color := clblack;
    canvas.fillrect(rect);
    drawtext(canvas.handle, pchar(field.text), length(field.text), arect,
    alignflags[field.alignment] or rtl[userighttoleftalignmentforfield(field, field.alignment)]);
    end
    // если текущая запись удалена.
    else if datalink.dataset.updatestatus = usdeleted then
    begin
    canvas.brush.color := clgray;
    canvas.font.color := clwhite;
    canvas.fillrect(rect);
    drawtext(canvas.handle, pchar(field.text), length(field.text), arect,
    alignflags[field.alignment] or rtl[userighttoleftalignmentforfield(field, field.alignment)]);
    end;
    end;
    end;
 
    (******************************************************************************)
    procedure tatcdbgrid.setcachedshow(const value: tcachedshow);
    (*
    description: record type for showing in grid.
    parameters: value cached record show.
    *)
 
    begin
    fcachedshow := value;
    if componentstate = [csdesigning] then
    exit;
    if not assigned(datasource) or not assigned(datasource.dataset) then
    exit;
    // для показа только выбранного типа записей.
    if assigned(datalink) and assigned(datalink.dataset) and (datalink.active) then
    begin
    case fcachedshow of
    csall:
    tbdedataset(datasource.dataset).updaterecordtypes := [rtmodified, rtinserted, rtdeleted, rtunmodified];
    csmodify:
    tbdedataset(datasource.dataset).updaterecordtypes := [rtmodified];
    csunmodify:
    tbdedataset(datasource.dataset).updaterecordtypes := [rtunmodified];
    csinserted:
    tbdedataset(datasource.dataset).updaterecordtypes := [rtinserted];
    csremoved:
    tbdedataset(datasource.dataset).updaterecordtypes := [rtdeleted];
    csnormal:
    tbdedataset(datasource.dataset).updaterecordtypes := [rtmodified, rtinserted, rtunmodified];
    end;
    end;
    end;
 
    (******************************************************************************)
    end.
 
    Цветные ячейки в stringgrid / dbgrid.
    Автор: alex schlecht
 
    stringgrids / dbgrids с цветными ячейками смотрятся очень красиво, и Вы можете информировать пользователя о важных данных внутри grid.
    Совместимость: все версии delphi
 
    К сожалению, невозможно применить один и тот же метод к stringgrids и к dbgrids. Итак сперва рассмотрим как это сделать в stringgrid:
 
    1. stringgrid
    =============
    Для раскрашивания будем использовать событие "ondrawcell". Следующий код показывает, как сделать в grid красный бэкраунд. Бэкграунд второй колонки будет зелёным.
 
 
    procedure tform1.stringgrid1drawcell(sender: tobject; acol, arow: integer;
    rect: trect; state: tgriddrawstate);
 
    const //сдесь определяем Ваш цвет. Так же можно использовать
    //цвета по умолчанию.
    clpalegreen = tcolor($ccffcc);
    clpalered = tcolor($ccccff);
 
    begin
 
    //Если ячейка получает фокус, то нам надо закрасить её другими цветами
    if (gdfocused in state) then begin
    stringgrid1.canvas.brush.color := clblack;
    stringgrid1.canvas.font.color := clwhite;
    end
    else //Если же ячейка теряет фокус, то закрашиваем её красным и зелёным
 
    if acol = 2 //Вторая колонка будет зелёной , другие - ячейки красными
    then stringgrid1.canvas.brush.color := clpalegreen
    else stringgrid1.canvas.brush.color := clpalered;
 
    //Теперь закрасим ячейки, но только, если ячейка не title- row/column
    //Естевственно это завит от того, есть у Вас title-row/columns или нет.
 
    if (acol > 0) and (arow>0) then
    begin
    //Закрашиваем бэкграунд
    stringgrid1.canvas.fillrect(rect);
 
    //Закрашиваем текст (text). Также здесь можно добавить выравнивание и т.д..
    stringgrid1.canvas.textout(rect.left,rect.top,stringgrid1.cells[acol,arow]);
    end;
    end;
 
    Если Вы захотите чтобы цвет ячеек менялся в зависимости от значения в них, то можно заменить 3 линии (if acol = 2 ......) на что-нибуть вроде этого
 
    if stringgrid1.cells[acol,arow] = 'highlight it'
    then stringgrid1.canvas.brush.color := clpalered
    else stringgrid1.canvas.brush.color := clwhite;
 
    Ну а теперь давайте раскрасим dbgrids:
 
    2. dbgrid
    =========
    С dbgrids это делается намного проще. Здесь мы будем использовать событие "ondrawcolumncell". Следующий пример разукрашивает ячейки колонки "status" когда значение НЕ равно "a".
    Если Вы хотите закрасить целую линию, то достаточно удалить условие "if..." (смотрите ниже)
 
    procedure tform1.dbgrid1drawcolumncell(sender: tobject; const rect: trect;
    datacol: integer; column: tcolumn;
    state: tgriddrawstate);
    const
    clpalegreen = tcolor($ccffcc);
    clpalered = tcolor($ccccff);
    begin
 
    if column.fieldname = 'status' then //Удалите эту линию, если хотете закрасить целую линию
 
    if column.field.dataset.fieldbyname('status').asstring <> 'a'
    then
    if (gdfocused in state) //имеет ли ячейка фокус?
    then dbgrid1.canvas.brush.color := clblack //имеет фокус
    else dbgrid1.canvas.brush.color := clpalegreen; //не имеет фокуса
 
    //Теперь давайте закрасим ячейку используя стандартный метод:
    dbgrid1.defaultdrawcolumncell(rect,datacol,column,state)
    end;
 
    Вот и всё. Не правда ли красиво ? :)