Colorier une cellule d'un grid
Résolu
lapucedu88
Messages postés
96
Date d'inscription
jeudi 1 avril 2004
Statut
Membre
Dernière intervention
22 mai 2008
-
27 sept. 2005 à 14:43
lapucedu88 Messages postés 96 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 22 mai 2008 - 28 sept. 2005 à 07:52
lapucedu88 Messages postés 96 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 22 mai 2008 - 28 sept. 2005 à 07:52
A voir également:
- Delphi fillrect
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic 6
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
- Vba bordure cellule - Forum Visual Basic
2 réponses
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
12
27 sept. 2005 à 23:29
27 sept. 2005 à 23:29
Utilise le code suivant dans l'événement OnDrawCell de ta Grid :
with (Sender as TStringGrid).Canvas do
if (gdSelected in state) then begin
brush.color:= clRed;
FillRect(rect);
Font.color:=clwhite;
TextOut(rect.left+3,rect.top+2,(Sender as TStringGrid).Cells[ACol,ARow]);
end else begin
brush.color: =clWhite;
FillRect(rect);
Font.color:= clWindowText;
TextOut(rect.left+3,rect.top+2,(Sender as TStringGrid).Cells[ACol,ARow]);
end;
@+
Nico { http://www.ni69.new.fr/ }
<hr size ="2" width="100%">
N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !
with (Sender as TStringGrid).Canvas do
if (gdSelected in state) then begin
brush.color:= clRed;
FillRect(rect);
Font.color:=clwhite;
TextOut(rect.left+3,rect.top+2,(Sender as TStringGrid).Cells[ACol,ARow]);
end else begin
brush.color: =clWhite;
FillRect(rect);
Font.color:= clWindowText;
TextOut(rect.left+3,rect.top+2,(Sender as TStringGrid).Cells[ACol,ARow]);
end;
@+
Nico { http://www.ni69.new.fr/ }
<hr size ="2" width="100%">
N'oubliez pas de cliquer sur Réponse Acceptée lorsque la réponse vous convient !
lapucedu88
Messages postés
96
Date d'inscription
jeudi 1 avril 2004
Statut
Membre
Dernière intervention
22 mai 2008
1
28 sept. 2005 à 07:52
28 sept. 2005 à 07:52
Merci, c'est génial sa va me permettre de me débloquer un peu.
La puce
La puce
