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é.
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é.
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
Avec les versions récentes de Delphi (XE3+) permettant la gestion des styles cela risquerait d'être plus compliqué
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;
MVP Embarcadero
Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Rio, Sidney), D11 (Alexandria), D12 (Athènes)
SGBD : Firebird 2.5, 3, SQLite
générateurs États : FastReport, Rave, QuickReport
OS : Window Vista, Windows 10, Windows 11, Ubuntu, Androïd
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager