Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c