Couleurs d'un DBGrid
verbal
-
12 déc. 2001 à 17:29
dou_abd Messages postés 1 Date d'inscription mercredi 9 novembre 2005 Statut Membre Dernière intervention 15 avril 2006 - 15 avril 2006 à 14:25
dou_abd Messages postés 1 Date d'inscription mercredi 9 novembre 2005 Statut Membre Dernière intervention 15 avril 2006 - 15 avril 2006 à 14:25
3 réponses
LesDelphistes
Messages postés
10
Date d'inscription
jeudi 10 janvier 2002
Statut
Membre
Dernière intervention
18 janvier 2002
14 janv. 2002 à 10:18
14 janv. 2002 à 10:18
1-C'est impossible : Tu peux eventuellement changer la couleur des colonnes...
2-Il n'y a pas de coche pour la DBGrid, mais tu peux utiliser la multiselection. Sinon, utilise le CheckListBox mais qui n'est pas un composant DB...
a+
Duf (lesdelphistes.multimania.com)
2-Il n'y a pas de coche pour la DBGrid, mais tu peux utiliser la multiselection. Sinon, utilise le CheckListBox mais qui n'est pas un composant DB...
a+
Duf (lesdelphistes.multimania.com)
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
26 janv. 2002 à 10:27
26 janv. 2002 à 10:27
QUESTION 1 :
Pour colorier une ligne sur deux (par exemple) :
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
With DbGrid1 do
Case Odd(DataSource.Dataset.Recno) of
//Ligne impaires en jaune
true : Column.Color:= clYellow;
//Lignes paires, couleur par défaut
False : Column.Color:= clWindow;
end;
end;
On surcharge l'évènement OnDrawColumnCell en demandant de colorier en jaune les lignes impaires et avec la couleur par défaut des autres lignes.
QUESTION 2 :
Je n'ai rien d'autre à dire que de te conseiller d'utiliser des composants Grid autres tels que ceux contenus dans la rx library qui sont excellents.
Pour colorier une ligne sur deux (par exemple) :
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
With DbGrid1 do
Case Odd(DataSource.Dataset.Recno) of
//Ligne impaires en jaune
true : Column.Color:= clYellow;
//Lignes paires, couleur par défaut
False : Column.Color:= clWindow;
end;
end;
On surcharge l'évènement OnDrawColumnCell en demandant de colorier en jaune les lignes impaires et avec la couleur par défaut des autres lignes.
QUESTION 2 :
Je n'ai rien d'autre à dire que de te conseiller d'utiliser des composants Grid autres tels que ceux contenus dans la rx library qui sont excellents.
dou_abd
Messages postés
1
Date d'inscription
mercredi 9 novembre 2005
Statut
Membre
Dernière intervention
15 avril 2006
15 avril 2006 à 14:25
15 avril 2006 à 14:25
Svp comment rendre checklistbox sipleselection c a d checklistbox.multiselection := false
