Discussion :

[archonte]

Salut à tous !

En fonction de la valeur Checked d'un TBDCheckBox je souhaite modifier l'apparence du texte associé.

Problème : j'arrive à modifier le Caption ou la propriété Font.Style, mais pas Font.Color ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if MyDBChBx.Checked then 
  begin
    MyDBChBx.Font.Style := [fsBold];   // OK
    MyDBChBx.Font.Color := clRed;      // ne modifie pas la couleur ?!?!?!
    MyDBChBx.Caption := 'BONJOUR';   // OK
  end else 
  begin
    MyDBChBx.Font.Style :=[];           // OK
    MyDBChBx.Font.Color := clBlue;     // ici non plus ?!?!?!
    MyDBChBx.Caption := 'Au Revoir';   // OK
  end;

Si je modifie la valeur dans l'inspecteur d'objet , la couleur est modifié en conception mais pas lorsque j'exécute l'applicatif ???

Merci pour vos conseils.

[Charly910]

Bonjour,

à tout hasard essaye :

Code :

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

   MyDBChBx.Canvas.Font.Color := clBlue;

(je n'ai pas de quoi tester)

A+

Charly

[archonte]

à tout hasard essaye :

Code :

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

   MyDBChBx.Canvas.Font.Color := clBlue;

@Charly910 : Il n'existe pas de propriété Canvas dans un TDBCheckBox !!

Voici ce que dit l'aide Delphi

Pour modifier une fonte, changez la valeur des propriétés Charset, Color, Height, Name, Pitch, Size ou Style de l'objet Font.

Le paradoxe est que la modification fonctionne pour la mise en relief (en gras) ?

[archonte]

Bon, après quelques petites recherches : je me réponds à moi même avant de cocher ce topic comme : les thèmes se surimposent aux choix de mise en forme que l'on souhaite ...
chez embarcadero :

Thread: TCheckbox Font Color and Themes
Posted: Jul 17, 2009 12:50 PM
I am using Delphi 2009 and TCheckbox.

When using Themes, the font color I have set on my TCheckbox gets ignored. It always stays Black.

Anyone else run into this problem? This sounds like a bug doesn't it?

Peter Below

No, it sounds like themes. That is the whole purpose of them, you
know: it defines a set of visual properties for the standard UI
controls that override the individual application's choices in this
area.

Donc je vais remplacer la chaîne de texte associée au TDBCheckBox par un TLabel ... puisque l'effet visuel est recherché pour alerter l'utilisateur, indépendamment de ses couleurs préférées