Discussion :

[yacinew]

Bonjour,

J'ai un Dbgrid avec les lignes en couleur(Blue et vert), lorsque je sélectionne une ligne la couleurs du texte deviendra en blanc ce qui rend le texte illisible,
comment je peux changer la couleur du texte sélectionné.

[SergioMaster]

Bonjour,

de la même manière que vous l'avez fait pour changer les couleurs de lignes, dans l'évènement onDrawCoumnCell
mais en changeant d'autre propriété du canvas Canvas.Font.Color;
et en testant si la ligne est sélectionnée gdSelected in State

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TDBGrid(Sender).Canvas do
 begin
   if gdSelected in State then
     begin
       Font.Color:=clRed;
     end
   else Font.Color:=clWindowText;
 end;
 TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;

Avec les versions récentes de Delphi (XE3+) permettant la gestion des styles cela risquerait d'être plus compliqué