Caption pour les checkbox

Question

Bonjour
Dans l'extrait de code ci-dessous, le groupe d'options comprend 3 checks , je souhaiterais ajouter une légende (caption) pour
chacun d'eux. Comment faire ?

* -----------

DEFINE CLASS opgMonOptGrp AS OptionGroup  && Crée un groupe d'options
   ButtonCount = 3  && Trois boutons d'option
   Top = 10
   Left = 10
   Height = 75
   Width = 100
  * Caption check 1 ?
  * Caption check 2 ?
  * Caption check 3 ?

   PROCEDURE Click
      THISFORM.shpCircle1.Visible = .F.  && Cache le cercle
      THISFORM.shpEllipse1.Visible = .F.  && Cache l'ellipse
      THISFORM.shpSquare.Visible = .F.  && Cache le carré
      
      DO CASE
         CASE THISFORM.opgOptionGroup1.Value = 1
            THISFORM.shpCircle1.Visible = .T. && Montre le cercle
         CASE THISFORM.opgOptionGroup1.Value = 2 
            THISFORM.shpEllipse1.Visible = .T.  && Montre l'ellipse
         CASE THISFORM.opgOptionGroup1.Value = 3 
            THISFORM.shpSquare.Visible = .T.  && Montre le carré
      ENDCASE
ENDDEFINE

* ------------------

Merci pour votre aide

ThierryPerretier · Answer

Bonjour,

Remplacer 
  ButtonCount = 3 
par :

ADD OBJECT option1 as OptionButton ;
WITH caption = "option n°1", autosize=.t.
ADD OBJECT option2 as OptionButton ;
WITH caption = "option n°2", autosize=.t.
ADD OBJECT option3 as OptionButton ;
WITH caption = "option n°3", autosize=.t.

Ou bien, renseigner les propriétés captions dans la méthode INIT de la classe

PROCEDURE INIT
   this.buttons(1).caption ="option n°1"
     ...
ENDPROC

cs_johnmary · Answer

Merci
Je vais revoir mon code.

Caption pour les checkbox

2 réponses

Votre réponse

Discussions similaires