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

Lazarus Pascal Discussion :

Sélection d'une couleur dans ColorBox [Lazarus]


Sujet :

Lazarus Pascal

  1. #1
    Membre actif Avatar de Jlmat
    Homme Profil pro
    amateur passionné
    Inscrit en
    avril 2008
    Messages
    225
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vienne (Poitou Charente)

    Informations professionnelles :
    Activité : amateur passionné
    Secteur : Conseil

    Informations forums :
    Inscription : avril 2008
    Messages : 225
    Points : 213
    Points
    213
    Par défaut Sélection d'une couleur dans ColorBox
    Bonjour,

    Un problème tout bête sans doute que je n'ai pas réussi à résoudre:

    Dans un ColorBox, je choisie une couleur qui doit se transmettre à un TShape.brush

    Il me faut cliquer deux fois dans la ListeBox pour y arriver. Je ne dois pas avoir la bonne méthode.
    Selected impose l'index à la ColorBox qui se met bien sur la bonne couleur, donc
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
      ColorBox1.Selected := clyellow;
    .
    J'obtiens bien le jaune, mais ça ne marche pas à l'inverse. Je voudrais qu'en récupérant l'index de la ColorBox, j'obtiens le jaune indiqué...

    Voici mon code, si vous trouvez l'erreur:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    procedure TForm2.FormCreate(Sender: TObject);
    begin
      indexShape := 5; // stCircle
      ColorBox1.Selected := clyellow;
      Shape1.Brush.Color :=  ColorBox1.Selected;
    end;
     
    {--- Choix couleur de Shape ---------------------------------------------------}
    procedure TForm2.ColorBox1Click(Sender: TObject);
    begin
      if Colorbox1.ItemIndex > -1 then
      begin
         ColorBox1.Selected := ColorBox1.Colors[Colorbox1.ItemIndex];
         Shape1.Brush.Color := ColorBox1.Selected;
      end;
    end;
    si vous avez une idée!, merci
    Je programme désormais en Lazarus 2.2.4 sous windows 10 pro

  2. #2
    Membre actif Avatar de Jlmat
    Homme Profil pro
    amateur passionné
    Inscrit en
    avril 2008
    Messages
    225
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vienne (Poitou Charente)

    Informations professionnelles :
    Activité : amateur passionné
    Secteur : Conseil

    Informations forums :
    Inscription : avril 2008
    Messages : 225
    Points : 213
    Points
    213
    Par défaut
    J'ai fini par trouver, ça n'est pas sur l'évènement OnClic de ColorBox qu'il faut mettre le code, mais sur l'évènement OnChange
    Lol
    Je programme désormais en Lazarus 2.2.4 sous windows 10 pro

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 02/04/2015, 08h56
  2. Réponses: 29
    Dernier message: 03/11/2005, 11h37
  3. Sélection d'une ligne dans un JTable
    Par dam21 dans le forum Composants
    Réponses: 3
    Dernier message: 28/07/2004, 13h57
  4. Sauvegarder une couleur dans un champ Alphanum
    Par Harry dans le forum Bases de données
    Réponses: 2
    Dernier message: 21/07/2004, 12h21
  5. Déplacer la sélection d'une ligne dans un stringgrid
    Par jer64 dans le forum Composants VCL
    Réponses: 5
    Dernier message: 14/03/2003, 01h57

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