Font Style kaydetme

[Serim]

merhaba arkadaşlar,
memonun font özelliklerini iniye kaydetmeye çalışıyorum. font name ve font size ı kaydettim. ama font style biraz karışık aslında forumda bi mesaj görmüştüm bunla ilgili aşağıdakine benzer bişiler vardı kodlarda:

....
1 : Bold;
2 : Italic;
3 : Bold+Italic;
4 : Underline;
vs.....

bu mesajı aramama rağmen bulamadım buna benzer bi şekilde veya başka fikri olan varsa font style i en kolay nasıl kaydedebilirim

şimdiden teşekkürler. herkese kolay gelsin..

[Query]

Kod: Tümünü seç

Label1.Font.Style := Label1.Font.Style + [fsBold];  // Bold Özelliği vermek için 
Label1.Font.Style := Label1.Font.Style - [fsBold];  // Bold Özelliğini kaldırmak için 

viewtopic.php?t=10501&highlight=font+style

[Serim]

@query cvbınız için çok teşekkürler. aşağıdaki kodlar işimi gördü. herkese ii çalışmalar...

Kod: Tümünü seç

var fontstyle:integer; 
begin 
if FontDialog1.Execute then 
 memo1.Font:= FontDialog1.Font; 

fontstyle:= 0; 
if fsBold in memo1.Font.Style then      fontstyle:= 1; 
if fsunderline in memo1.Font.Style then fontstyle:= fontstyle+2; 
if fsitalic in memo1.Font.Style then    fontstyle:= fontstyle+4; 
showmessage(inttostr(fontstyle)); 
///////////////////////////////// 
memo1.Font.Style:= []; 
if odd(fontstyle) then memo1.Font.Style:= [fsbold]; 
if fontstyle in [2,3,6,7] then memo1.Font.Style:= memo1.Font.Style+[fsunderline]; 
if fontstyle > 3 then memo1.Font.Style:= memo1.Font.Style+[fsitalic];