Delphi/C++ Builder - Définir la couleur de ligne active/sélectionnée dans TDBGrid

Question

Je souhaite définir la couleur d'arrière-plan de la ligne active/sélectionnée dans un contrôle TDBGrid.

Utilisation de l'événement OnDrawColumnCell:

1) Le code suivant fonctionnera si DBGrid a l'option dgMultiSelect, sinon, rien ne se passe:

if (grid->SelectedRows->CurrentRowSelected) { 
    grid->Canvas->Brush->Color = clBlue; 
} 

2) Le code suivant fonctionnera si DBGrid a l'option dgRowSelect, sinon, seule la cellule sélectionnée, pas la ligne entière, sera colorée:

if (State.Contains(gdSelected)) { 
    grid->Canvas->Brush->Color = clBlue; 
} 

Comment pourrais-je colorer toute la ligne active/sélectionnée Witho ut en utilisant dgRowSelect ou dgMultiSelect?

Answer 1

De OnDrawColumnCell:

Un gestionnaire d'événement OnDrawColumnCell peut appeler la méthode DefaultDrawColumnCell de charger la grille orientée données pour écrire la valeur de données dans la cellule .

Utilisez DefaultDrawColumnCell comme ceci. C'est un code Delphi mais vous pouvez le convertir facilement.

procedure TForm1.DBGridDrawColumnCell(Sender: TObject;const Rect: TRect; 
DataCol: Integer; Column: TColumnEh;State: TGridDrawState); 
begin 
.....  
    DBGrid.Canvas.Brush.Color := clBlue; 
    DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State); 
.... 

Mise à jour

Comment peindre la ligne active DBGrid, sans mettre dgRowSelect ou dgMultiSelect.

1. Nous devons obtenir la position supérieure de la ligne actuelle.

Définir une classe qui un héritier de TDBGrid pour faire CellRect, Col et Row public:

type 
    TMyDBGrid = class(TDBGrid) 
    public 
    function CellRect(ACol, ARow: Longint): TRect; 
    property Col; 
    property Row; 
    end; 

function TMyDBGrid.CellRect(ACol, ARow: Longint): TRect; 
begin 
    Result := inherited CellRect(ACol, ARow); 
end; 

Maintenant, nous pouvons vérifier la partie supérieure de la cellule actuelle en cas OnDrawColumnCell:

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

var Col,Row : Integer; 
begin 
    col := TMyDbGrid(DBGrid1).Col; 
    row := TMyDbGrid(DBGrid1).Row; 
    if (Rect.Top = TMyDBGrid(DBGrid1).CellRect(Col,Row).Top) and 
        (not (gdFocused in State) or not Focused) then 
    DBGrid1.Canvas.Brush.Color := clBlue; 

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