| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Мне нужно сохранить все изменения в программы в фаил. [D6]

Denisco ©   (2002-07-22 17:16:00) 

Я созда текстовый редакто в котором можно изменять место положение и размеры любого компонента. И мне хочется чтобы при работе с программой пользователь изменив местоположение или размер какой нибудь компоненты мог новый вид программы сохранить в фаил, а потом при необходимости загрузить его. Еще у меня можно переместить компонент с одной формы в другую, как быть сней? Прошу напишите код, а то я новичек в програмирование на Delphi.

---

Евген   (2002-07-23 19:18:00) [1]

При выходе из проги пишеш все позиции в реестр, а при открытии читаешь их:
______________________________________________________________

uses
Registry;
...
procedure Read_Registry;
procedure Write_Registry;
FIniFile: TRegIniFile;
...
const
SECTION = "Test2";
...
procedure TForm1.FormCreate(Sender: TObject);
begin
FIniFile := TRegIniFile.Create("Sample Registry");
//Читаем реестр
Read_Registry;
end;
...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Завершение всех процессов

//Запись в реестр
Write_Registry;
end;
...
procedure TForm1.Write_Registry;
begin
FIniFile.WriteInteger(SECTION, "MainFormHight", Form1.Height);
FIniFile.WriteInteger(SECTION, "MainFormWidth", Form1.Width);
FIniFile.WriteInteger(SECTION, "Splitter", Splitter1.Left);
end;

procedure TForm1.Read_Registry;
begin
Form1.Height:=FIniFile.ReadInteger(SECTION, "MainFormHight", 400);
Form1.Width:=FIniFile.ReadInteger(SECTION, "MainFormWidth", 550);
Panel1.Width:=FIniFile.ReadInteger(SECTION, "Splitter", 200);
end;


Ну вроде все. Если че непонятно - мыль: вышлю исходник.

---

RV   (2002-07-22 17:33:00) [2]

Так если ты при создании формы создаешь компоненты на ней в рантайме - то решение, по-моему, очевидно(берешь лефты-райты-боттомы-топы из файла(ини,тхт,дат), крый создаешь при выходе)
если накидал компоненты мышой - после загрузки такого файла делаешь тоже самое.
какой код нужен?
работы с файлами? изменение размеров компонент? создание компонент в рантайме?

---

Наверх