Форум: "Основная";
Текущий архив: 2005.09.18;
Скачать: [xml.tar.bz2];

Вниз

Как записать в *.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

---

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

> 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]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.09.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c