Discussion :

[richard038]

Bonjour,

Je cherche une solution pour lire la valeur Style d'un TFONT, afin de la stocker dans un fichier INI.

Merci

[Philippe Gormand]

Bonsoir.

Voici qui devrait te mettre sur la voie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.getFontStyle;
Var
   Chn  : String;
   I    : Integer;
 
begin
   //If Canvas.Font.Style = [fsBold, fsItalic, fsUnderline, fsStrikeOut] Then;
 
   For I:= 1 To 4 Do
    begin
       If Canvas.Font.Style = [fsBold] Then Chn := 'fsBold';
    end;
end;

A +

[richard038]

Merci.

J'ai fait un truc dans le même genre.