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

← →
Denisco (2002-07-22 17:16) [0]

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

← →
RV © (2002-07-22 17:33) [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;

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

Мне нужно сохранить все изменения в программы в фаил. Найти похожие ветки