Текущий архив: 2004.04.18;
Скачать: CL | DM;
ВнизРасширение, срочно! Найти похожие ветки
← →
Zwer (2004-03-29 12:41) [0]Всем доброе время суток.
Встала задача сохранять содержимое формы, т.е. чтобы можно было
потом из файла востановить(кнопки там, label"и и т.п.).
Видел в прогах, что таким файлам присваивают своё расширение.
Вот мне хотелось так же суметь сделать.
Если кто знает как это делается буду очень признателен.
Заранее всем спасибо
← →
Семен Сорокин © (2004-03-29 12:46) [1]а чем *.bmp не нравится, ну уж если надо - то переименуй по собственному желанию хоть в *.ххх. Для сохранения можешь использовать Form.GetFormImage;
← →
Sun bittern © (2004-03-29 12:51) [2]Семен Сорокин © (29.03.04 12:46) [1]
:^)
Zwer (29.03.04 12:41)
не все так просто в программерской жизни :)
// Сохранение проекта
Procedure SaveProject(AFileName:TFileName);
var FS:TFileStream;
begin
FS:=TFileStream.Create(AFileName,fmCreate or fmShareDenyRead);
try
FS.WriteComponent(Edit_FC.PageProject);
finally
FS.Free;
end;
End;
// Чтение проекта
Procedure LoadProject(AFileName:TFileName);
var FS:TFileStream;
begin
FS:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyRead);
try
Edit_FC.PageProject:=TPageControl(FS.ReadComponent(Edit_FC.PageProject));
finally
FS.Free;
end;
end;
Асоциация с расширением файла - другая история
← →
Zwer (2004-03-29 12:57) [3]Всё дело в том, что после восстановления из файла они (объекты), т.е. кнопки и т.п.(в основном кнопки) должны и быть кнопками а не рисунком.
В проге я их перемещаю там, цвет меняю, ват и нужно чтобы настройки сохранялись в файл, что при необходимости восстановить и отредактировать.
З.Ы. И...что такое imho?
← →
Oyster © (2004-03-29 13:03) [4]Используй Ini-файлы. Или реестр, если крутой.
← →
Zwer (2004-03-29 13:03) [5]Вопрос к Sun bittern.
А, пардон, файл с каким расшерением получится, и всё-таки хотелось бы ассоциировать файл со свойм расшерением, если можно.
Спасибо за ответ.
← →
Sun bittern © (2004-03-29 13:09) [6]Zwer (29.03.04 13:03) [5]
Не прикалывайся несмешно :(
Написано ведь. т.е. любое допустимое имя файла
AFileName:TFileName
← →
Zwer (2004-03-29 13:15) [7]Ок, спасибо всем откликнувшимся.
Страницы: 1 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.033 c