Discussion :

[muquet]

Bonjour :


( j'ai : uses Variants, Graphics,Dialogs, ComObj; )

j'ai une variale du type :

var styletexte : TFont;



et je veux modifier ses Propriétés

ceci fonctionne bien : styletexte.Color := clred;
mais pas cela

(fsBold in styletexte.Style) := true;

(bref ce qui est sous TFont.Style)

... comment faire ?

marci

[Guile]

Essaie ça :

Code :

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

styleTexte.Style := [fsbold];

Ce n'est pas parce que les choses sont difficiles qu'on ne veut pas les faire,
c'est parce qu'on ne veut pas les faire qu'elles sont difficiles

[DMO]

Oui c'est un type "set of". Tu peux voir cela comme un ensemble d'attributs à définir dans cette propriété (cet exemple est parlant, tu peux mettre en gras, italique, souligné, etc...). C'est bien expliqué dans le petit bouquin (pas le gros) vendu avec delphi.

Tu peux donc utiliser les opérateurs -+* pour définir cette propriété ou l'assigner d'un coup comme Guile te l'a judicieusement montré.

Code :

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

  Font.Style := Font.Style + [fsItalic, fsUnderline];

L'utilisation de "in" sert dans les conditions, non dans la partie de gauche d'une assignation comme tu le faisais (l'exemple suivant est stupide car la condition parfaitement inutile mais il n'illustre que l'utilisation de "in")

Code :

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

1
2
  if fsItalic in Font.Style then
    Font.Style := Font.Style - [fsItalic];