Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
ВнизПочему шрифт не сохраняется в запись? Найти похожие ветки
← →
Jiura32d (2003-09-22 13:08) [0]Беру форму.Ставлю 5 кнопок, TLabel, и TFontDialog;
Делаю запись:
UserOptions=Record
PPF:TFont;
End;
var
Form1: TForm1;
usop:UserOptions;
datafile:File of Useroptions;
Исходниый код:
procedure TForm1.Button5Click(Sender: TObject);
begin
FontDialog1.Execute;
Label1.Font:=FontDialog1.Font;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
usop.PPF:=Label1.Font;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
assignFile(datafile,"123.ddd");
Rewrite(datafile);
Write(datafile,usop);
CloseFile(datafile);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
assignFile(datafile,"123.ddd");
Reset(datafile);
Read(datafile,usop);
CloseFile(datafile);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Font:=usop.PPF;
end;
В чем суть:Т.е.при нажатии на кнопку 5 в запись заносятся шрифт Label-а.Затем он сохраняется в файл.Перегружаем форму и пытаемся загрузить файл и запись из файла.Затем пытаемся присвоить шрифту то что было в записи.Не присваивается!!!!Почему?Ошибки не возникают,но шрифт (имя,размер цвет) не меняется.
← →
Skier (2003-09-22 13:21) [1]в файл ты пишешь указатель на эк-ляр класса TFont и не более того.
Кстати, не видно чтобы ты этот эк-ляр создавал
← →
mike.dld (2003-09-22 13:24) [2]Если хочешь сохранить шрифт, сохраняй его поля, а не, как правильно сказал Skier, указатель на него.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c