Colorer une ligne entière ds une grille dbgrid
shark1664
Messages postés
25
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
24 juillet 2008
-
23 avril 2007 à 09:41
khawarizm Messages postés 116 Date d'inscription mercredi 22 novembre 2000 Statut Membre Dernière intervention 4 août 2010 - 26 juin 2007 à 06:30
khawarizm Messages postés 116 Date d'inscription mercredi 22 novembre 2000 Statut Membre Dernière intervention 4 août 2010 - 26 juin 2007 à 06:30
A voir également:
- Colorer une ligne entière ds une grille dbgrid
- Colorer mots fléchés ✓ - Forum Visual Basic 6
- Colorer pagecontrole et tabsheet - Forum Delphi / Pascal
- Comment colorer l'onglet TabControl ✓ - Forum VB.NET
- Colorer les onglets de TabControl - Forum VB.NET
- Colorer une cellule d'un tableau - Forum Javascript / DHTML
2 réponses
jelume
Messages postés
120
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
15 novembre 2007
1
23 avril 2007 à 11:42
23 avril 2007 à 11:42
Bonjour
Je pense qu'il faut utiliser l'évènement OnDrawDataCell .
J-L
Je pense qu'il faut utiliser l'évènement OnDrawDataCell .
J-L
khawarizm
Messages postés
116
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
4 août 2010
1
26 juin 2007 à 06:30
26 juin 2007 à 06:30
bonjour essaiyer ce code pour comprendre
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
beginIf gdSelected In State ThenBegin
TDBGrid(Sender).Canvas.Brush.Color := clNavy
EndElseBeginIf TDBGrid(Sender).DataSource.DataSet.FieldByName('Indice').Value=1 Then
TDBGrid(Sender).Canvas.Brush.Color := clLime
Else
TDBGrid(Sender).Canvas.Brush.Color := clWhite;
End;
TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
beginIf gdSelected In State ThenBegin
TDBGrid(Sender).Canvas.Brush.Color := clNavy
EndElseBeginIf TDBGrid(Sender).DataSource.DataSet.FieldByName('Indice').Value=1 Then
TDBGrid(Sender).Canvas.Brush.Color := clLime
Else
TDBGrid(Sender).Canvas.Brush.Color := clWhite;
End;
TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;