IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Composants VCL Delphi Discussion :

Modifier la couleur d'une cellule dans un TValueListEditor


Sujet :

Composants VCL Delphi

  1. #1
    Membre du Club
    Inscrit en
    Décembre 2008
    Messages
    81
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 81
    Points : 61
    Points
    61
    Par défaut Modifier la couleur d'une cellule dans un TValueListEditor
    Bonjour,

    Après avoir recherché sur maints et maints sites, je n'arrive pas à trouvé réponse.

    Est-il possible de changer la couleur d'UNE cellule dans une ValueListEditor en fonction de son contenu?

    Si la cellule n'est pas possible, je peux me contenter de la ligne.

    Merci d'avance.


    Xpmich

  2. #2
    Expert éminent sénior
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Points : 10 008
    Points
    10 008
    Par défaut
    Salut

    Oui bien sûr c'est possible.

    En reprendre mon code exemple ici, il suffit d'adapter la condition.

    Donc tu remplaces ce code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
        if Odd(ARow) then
          Canvas.Brush.Color := clBtnFace
        else
          Canvas.Brush.Color := clWindow;
    par ceci par exemple, si la cellule dans la 2° colonne contient la valeur 'Deux' alors écriture en blanc sur fond rouge:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
      if (ACol = 1) and (Cells[ACol, ARow] = 'Deux') then
      begin
        Canvas.Brush.Color := clRed;
        Canvas.Font.Color := clWhite;
      end;
    @+ Claudius

  3. #3
    Membre du Club
    Inscrit en
    Décembre 2008
    Messages
    81
    Détails du profil
    Informations forums :
    Inscription : Décembre 2008
    Messages : 81
    Points : 61
    Points
    61
    Par défaut
    Bonjour à tous,

    Eh bien sur que tu as raison, j'apporte même un complément.

    Pour permettre la ré actualisation de la liste, il faut utiliser la fonction repaint.

    Merci beaucoup,

    Cordialement,

    Xpmich

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Modifier la couleur d'une cellule
    Par KRis dans le forum Composants VCL
    Réponses: 2
    Dernier message: 22/05/2008, 09h56
  2. Modifier la couleur d'une cellule
    Par karkass59 dans le forum Excel
    Réponses: 2
    Dernier message: 07/04/2008, 10h46
  3. Comment modifier la couleur d'une cellule d'un TStringgrid
    Par francois.delpierre dans le forum Composants VCL
    Réponses: 2
    Dernier message: 20/11/2007, 12h38
  4. [Word97 / Delphi6] Comment modifier la couleur d'une cellule ?
    Par Lolo1988 dans le forum API, COM et SDKs
    Réponses: 0
    Dernier message: 29/10/2007, 10h48
  5. Changer la couleur d'une cellule dans une table
    Par gbrion dans le forum WinDev
    Réponses: 4
    Dernier message: 26/04/2007, 21h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo