Discussion :

[Invité]

Bonjour,

J'ai quelques soucis avec les TButton sur Firemonkey..

J'ai une classe TMineButton comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   TMineButton = class(TButton)
   public
      bMine   : boolean;
      iNombre : integer;
   end;

Je crée dynamiquement des TMineButton dans un TGridLayout :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   Butt            := TMineButton.Create(FGridLayout);
   Butt.Parent     := FGridLayout;
   Butt.iNombre    := 0;
   Butt.OnClick    := OnClickMineButton;
   Butt.Images     := FImageList;
   Butt.ImageIndex := -1;
   Butt.TextSettings.Font.Style := Butt.TextSettings.Font.Style + [TFontStyle.fsBold];
   Butt.TextSettings.FontColor := TAlphaColorRec.Blue;
 
   FGridLayout.AddObject(Butt);

Voici mes questions :

1. Comment centrer verticalement l'image quand l'ImageIndex passe à 0 et qu'il n'y a pas de texte ?
2. Pourquoi mon texte n'est pas en gras ? J'ai aussi essayé de jouer avec e StyledSettings, sans succès
3. Pourquoi le texte n'est pas écrit en bleu ?

Merci