COLORIER UNE CELLULE BIEN DEFINIE D'UN STRINGGRID
Résolu
guy jeuniaux
Messages postés
35
Date d'inscription
vendredi 12 mars 2004
Statut
Membre
Dernière intervention
27 avril 2010
-
14 sept. 2005 à 20:39
guy jeuniaux Messages postés 35 Date d'inscription vendredi 12 mars 2004 Statut Membre Dernière intervention 27 avril 2010 - 20 sept. 2005 à 18:12
guy jeuniaux Messages postés 35 Date d'inscription vendredi 12 mars 2004 Statut Membre Dernière intervention 27 avril 2010 - 20 sept. 2005 à 18:12
A voir également:
- C# stringgrid
- Bien preparer entretien technique java - Forum Java
- Sub ou fonction non définie - Forum VB.NET
- Problème avec ... Erreur de compilation: Procédure Sub ou Function non définie ✓ - Forum Visual Basic 6
- Erreur de compilation : Variable non définie ✓ - Forum Visual Basic 6
- Procedure Sub ou fonction non définie... - Forum Visual Basic
4 réponses
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
14 sept. 2005 à 22:27
14 sept. 2005 à 22:27
Voir les réponses retournées par le moteur de recherche de Codes-Sources :
361587 Colorier un TStringGrid
Sinon, voici un code qui répond demande :
<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
361587 Colorier un TStringGrid
Sinon, voici un code qui répond demande :
var
Pt: TPoint;
{ Booléen pour éviter de colorier la cellule
de coordonnées [0, 0] au démarrage }
Start: boolean = True;
procedure TForm1.Button1Click(Sender: TObject);
begin
Pt.X : = 2;
Pt.Y := 3;
Start := False;
StringGrid1.Repaint;
end ;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
ifnot Start and (Acol Pt.X) <gras>and (ARow</gras> Pt.Y) then
with StringGrid1.Canvas do
begin
Brush.Color : = clGreen;
Brush.Style := bsSolid;
FillRect(Rect);
end ;
end;
<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
16 sept. 2005 à 13:12
16 sept. 2005 à 13:12
Arf, c'est la mise en forme du code sur ce site qui déconne un peu.
Bien évidemment, "ifnot" n'existe pas et il faut lire : "if not"
Comme d'habitude, le code fourni a été vérifié
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
Bien évidemment, "ifnot" n'existe pas et il faut lire : "if not"
Comme d'habitude, le code fourni a été vérifié
<HR color=#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
guy jeuniaux
Messages postés
35
Date d'inscription
vendredi 12 mars 2004
Statut
Membre
Dernière intervention
27 avril 2010
16 sept. 2005 à 08:22
16 sept. 2005 à 08:22
Merci Delphiprog pour la réponse , mais cela ne fonctionne pas :
1 - ifnot delphi connait pas > if not , mais c'est pareil.
Y aurait il quelque chose qui m'échappe , je suis en delphi 5, j'ai déposé un stringgrid et un bouton sur ma form , copier le code , et rattaché la procédure à l'évenement "ondrawcell" du stringgrid.
Lorsque je clique sur le bouton la cellule reste désepérément blanche.
Que faire ?
guy
1 - ifnot delphi connait pas > if not , mais c'est pareil.
Y aurait il quelque chose qui m'échappe , je suis en delphi 5, j'ai déposé un stringgrid et un bouton sur ma form , copier le code , et rattaché la procédure à l'évenement "ondrawcell" du stringgrid.
Lorsque je clique sur le bouton la cellule reste désepérément blanche.
Que faire ?
guy
guy jeuniaux
Messages postés
35
Date d'inscription
vendredi 12 mars 2004
Statut
Membre
Dernière intervention
27 avril 2010
20 sept. 2005 à 18:12
20 sept. 2005 à 18:12
Désolé d'avoir émi une stupidité.
La procédure button1click avait disparu des évenements.
Encore Merci cela fonctionne parfaitement
guy
La procédure button1click avait disparu des évenements.
Encore Merci cela fonctionne parfaitement
guy