Форум: "Основная";
Текущий архив: 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