Discussion :

[AODRENN]

J'ai ecrit la routine ci dessous afin de pouvoir afficher les lignes de mon DBGRID avec un fond de couleur une ligne sur 2:

Code :

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

1
2
3
4
5
6
7
8
[color=green]if ((wDataSet.RecNo mod 2)=0) then
	begin
		wDdbGrid.Canvas.Brush.Color := $00FFFFD5;
		wDdbGrid.Canvas.Font.Color := $00000000;
		for i:=0 to wDdbGrid.Columns.Count-1 do
		wDdbGrid.DefaultDrawColumnCell(rect,i,column,state);
	end;
	wDdbGrid.DefaultDrawColumnCell(rect, Datacol, column, state);[/color]

Lorsque je selectionne une ligne dont le fond est colorise, je souhaiterais avoir la meme couleur que pour les lignes n'etant pas colorise, c'est a dire subrillance sombre avec une police de couleur claire avec la font en couleur blanche.

Comment faire?

Merci pour les reponses

[Pascal Jankowski]

Je ne sais pas si cela répond à ta question, mais j'emploie une procédure de ce type:

grille est un DBGrid

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TparentForm.grilleDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var parite: integer;
begin
  parite := grille.DataSource.DataSet.RecordCount mod 2;
  if (grille.DataSource.DataSet.RecNo mod 2 = parite) and not (gdSelected in State)
    then grille.Canvas.Brush.Color := colorLignePaire;
  grille.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Avec bien entendu

Code :

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

grille.DefaultDrawing := false

Cordialement

[AODRENN]

Merci

Cela repond parfaitement a ma question.

Lors de la selection de la ligne ayant un fond de couleur, celle ci bien bien la couleur de la selection et la police est bien blanche

Kenavo