Как записать в *.ini файл свойство шрифта Style?

← →
Dr. Andrew (2005-08-24 10:27) [0]

Мастера, подскажите как записать в *.ini файл свойство шрифта Style?
Font.Style в INI?!
Спасибо!

← →
Ega23 © (2005-08-24 10:31) [1]

function GetFontStyle(const Value: TFontStyles): Integer; begin Result:=0; if (fsBold in Value) then Result:=Result or 1; if (fsItalic in Value) then Result:=Result or 2; if (fsUnderline in Value) then Result:=Result or 4; if (fsStrikeout in Value) then Result:=Result or 8; end; //********************************************************************** function SetFontStyle(const Value: integer): TFontStyles; begin Result:=[]; if ((Value shr 0) and 1)=1 then Result:=Result+[fsBold]; if ((Value shr 1) and 1)=1 then Result:=Result+[fsItalic]; if ((Value shr 2) and 1)=1 then Result:=Result+[fsUnderline]; if ((Value shr 3) and 1)=1 then Result:=Result+[fsStrikeout]; end; //**********************************************************************

И пишешь обычный integer

← →
Alexander Panov © (2005-08-24 11:04) [2]

Еще метод.

var v: TFontStyles; n: Byte absolute v;

И работаешь с n как с байтом;)

← →
Leonid Troyanovsky © (2005-08-24 11:07) [3]

> Ega23 © (24.08.05 10:31) [1]

> И пишешь обычный integer

Byte(Style)

--
Regards, LVT

> Dr. Andrew (24.08.05 10:27)
> Мастера, подскажите как записать в *.ini файл свойство шрифта
> Style?
> Font.Style в INI?!

http://groups.google.com/group/fido7.ru.delphi/msg/eb29fb48626c9a5e

--
Regards, LVT.

← →
Dr. Andrew (2005-08-24 11:23) [5]

Всем спасибо!

Как записать в *.ini файл свойство шрифта Style? Найти похожие ветки