Сохранение-загрузка свойств формы [D7, XP]
Andrey-406 © (2007-02-17 17:33:00)
Привет всем! Я пытаюсь сделать в программе возможность
сохранения/загрузки свойств формы, ее размеров, расположения и т.д.
Сохранение работает, а вот загрузка нет, пишет класс TToolButton не
найден. Как быть и почему ругается именно на TToolButton. Вот код
процедуры загрузки
procedure LoadFormFromFile(Form: TForm; fName: String);
var
DataFile: TFileStream;
DirName: String;
i: integer;
begin
DirName :=
IncludeTrailingBackslash(IncludeTrailingBackslash(GetCurrentDir) +
OPTIONS_DIR);
if not FileExists(DirName + fName) then Exit;
DataFile :=
TFileStream.Create(IncludeTrailingBackSlash(DirName)+fName,
fmOpenReadWrite);
try
for i := 0 to Form.ComponentCount - 1 do
begin
DataFile.ReadComponent(Form.Components[i]);
if DataFile.Position = DataFile.Size then
Exit;
end;
finally
DataFile.Free;
end;
end;
Loginov Dmitry (2007-02-17 20:43:00) [1]
Не изобретай велосипед, ведь есть же для таких целей неплохие
стандартные средства, такие как TFormStorage из библиотеки
RXLib.
Наверх 
ЧАТ |
Орешник |
|
