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

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

Как в ini-файл сохранить стиль шрифта. [D5, Win95/98, Win2k]

Брат ©   (2002-09-12 15:33:00) 

Используя WriteString не получается. Кто-то знает как еще можно?

---

Брат   (2002-09-12 16:52:00) [1]

Списобо братья всем!!!
Все работает. :-))

---

MBo   (2002-09-12 16:18:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var s:TFontStyles;
b:byte;
fi:Tinifile;
begin
s:=[fsBold]+[fsItalic];
b:=byte(s);
fi:=tinifile.create("e:\a.ini");
fi.writeinteger("Font","Style",b);
fi.free;
fi:=tinifile.create("e:\a.ini");
fi.readinteger("Font","Style",b);
label2.Font.style:=tfontstyles(b);
fi.free;
end;

---

cdaDmitriy   (2002-09-12 16:13:00) [3]

Ini.WriteString ("Reports","FontName",PickFont.Font.Name);
Ini.WriteInteger ("Reports","FontSize",PickFont.Font.Size);
Ind:=fsBold in PickFont.Font.Style; Ini.WriteBool("Reports","FontBold",Ind);
Ind:=fsItalic in PickFont.Font.Style; Ini.WriteBool("Reports","FontItalic",Ind);

---

Брат   (2002-09-12 16:06:00) [4]

Выдает ошибку на предпоследней строке:
...
// записываем шрифт в ини-файл:
cfPost:=TIniFile.Create(ExtractFilePath(Application.ExeName)+"Post.ini");
cfPost.WriteString("FONTS","font",FontDialog1.Font.Name);
cfPost.WriteInteger("FONTS","size",FontDialog1.Font.Size);
cfPost.WriteInteger("FONTS","color",FontDialog1.Font.Color);
cfPost.WriteString("FONTS","style",FontDialog1.Font.style);
cfPost.Free;
...
как это обойти

---

MBo   (2002-09-12 15:50:00) [5]

Приводи его к типу Byte

---

gek   (2002-09-12 15:40:00) [6]

Font.Name и т.д.

---

Наверх