| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dr. Andrew ©   (2005-08-24 10:27:00) 

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

---

Dr. Andrew   (2005-08-24 11:23:00) [1]

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

---

Leonid Troyanovsky   (2005-08-24 11:08:00) [2]

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


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

--
Regards, LVT.

---

Leonid Troyanovsky   (2005-08-24 11:07:00) [3]

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

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


Byte(Style)

--
Regards, LVT

---

Alexander Panov   (2005-08-24 11:04:00) [4]

Еще метод.

var
 v: TFontStyles;
 n: Byte absolute v;


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

---

Ega23   (2005-08-24 10:31:00) [5]


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

---

Наверх