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

Вниз

как сохранить в ini файл шрифт и цвет объекта   Найти похожие ветки 

← →
DSR   (2003-04-28 08:59) [0]

Господа не подскажите, как сохранить в ini файл шрифт и цвет объекта. С каталогами проблем нет: тип string, а вот с TCOLOR и т.д. проблема. Очень благодарен. Пытаюсь сохранить настройки RichEdita и Grida.

---

← →
MBo   (2003-04-28 09:09) [1]

TColor - Integer

---

← →
Абармот   (2003-04-28 09:41) [2]

ребята, курите хелп - он есть рулез!

работа с цветом:
цвет в строку: ColorToString(Color: TColor): string;
строку в цвет: StringToColor(const S: string): TColor;

работа с фонтом:
TFont имеет свойство как Name - а это оно как раз и есть String;

lol! повеселили изрядно, спасибо!!!!! :))))

---

← →
DSR   (2003-04-28 19:50) [3]

Спасибо, за помощь, может я конечно и чайник, но млин этот help аглицкий тяжело разбирать

---

← →
titnn   (2003-04-28 21:39) [4]

а вот как сохранить все свойства фонта

procedure TMainTNF.Font1Click(Sender: TObject);
procedure RegFont(int1:integer;str1:string;str2:string;i:integer);
begin
if i=1 then
MyReg.WriteInteger("FONT",str1,int1) else
MyReg.WriteString("FONT",str1,str2);
end;
begin
FontDialog.Font:=ChTr.Font;
FontDialog.Execute;
ChTr.Font:=FontDialog.Font;
With FontDialog do begin
RegFont(Font.Size,"Size","",1);
RegFont(0,"Name",Font.Name,0);
RegFont(Font.Color,"COLOR","",1);
if fsBold in font.Style then RegFont(1,"Bold","",1) else RegFont(0,"Bold","",1);
if fsItalic in font.Style then RegFont(1,"Italic","",1) else RegFont(0,"Italic","",1);
if fsUnderline in font.Style then RegFont(1,"Underline","",1) else RegFont(0,"Underline","",1);
if fsStrikeOut in font.Style then RegFont(1,"StrikeOut","",1) else RegFont(0,"StrikeOut","",1);
end;
end;

а вот так устанавливаем

procedure MainRun;
var xx:TfontStyles;
begin
With MainTNF do begin
.........

ChTr.Color:=MyReg.ReadInteger("TREE","Color",ChTr.Color);
ChTr.Font.Name:=MyReg.ReadString("FONT","Name",ChTr.Font.Name);
ChTr.Font.Size:=MyReg.ReadInteger("FONT","Size",8);
ChTr.Font.Color:=MyReg.ReadInteger("FONT","Color",ChTr.Font.Color);
if MyReg.ReadInteger("FONT","Bold",0)=1 then Include(xx,fsBold) else Exclude(xx,fsBold);
if MyReg.ReadInteger("FONT","Italic",0)=1 then Include(xx,fsItalic)else Exclude(xx,fsItalic);
if MyReg.ReadInteger("FONT","Underline",0)=1 then Include(xx,fsUnderline)else Exclude(xx,fsUnderline);
if MyReg.ReadInteger("FONT","StrikeOut",0)=1 then Include(xx,fsStrikeOut)else Exclude(xx,fsStrikeOut);
ChTr.Font.Style:=xx;

.............

возможно это можно сделать проще , но у меня не получилось ...

---

← →
DSR   (2003-04-29 11:45) [5]

titnn большое спасибо, а вот Абармота я не понимаю: ну никто не родился с клавой в руках, а help, ну млин, надо инглишЪ учить, надо

---

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

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

Наверх

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