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

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

Настройки [D6, WinXP]

Лысый ©   (2002-08-08 19:01:00) 

Help!!!
Может я глючу:), нов реестре сохраняются все настройки, а грузятся все кроме WinState :(( т.е.Форма как была wsNormal так и осталась,
хотя при закрытии была wsMaximized.

Делаю так:

procedure loadoptions;
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey("SOFTWARE",true);
Reg.OpenKey("NickSoft",true);
Reg.OpenKey("My programm",true);

with MainForm do
begin
WindowState:=TWindowState(Reg.ReadInteger("Options", "WinState", 0));
Left:=Reg.ReadInteger("Options", "Left", 10);
Top:=Reg.ReadInteger("Options", "Top", 10);
Width:=Reg.ReadInteger("Options", "Width", 600);
Height:=Reg.ReadInteger("Options", "Heigth", 400);
...
...
...
end;
finally
Reg.Free;
end;
end;



procedure saveoptions;
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey("SOFTWARE",true);
Reg.OpenKey("NickSoft",true);
Reg.OpenKey("My programm",true);
with MainForm do
begin
if WindowState=wsNormal then
begin
Reg.WriteInteger("Options", "Width", Width);
Reg.WriteInteger("Options", "Heigth", Height);
Reg.WriteInteger("Options", "Left", Left);
Reg.WriteInteger("Options", "Top", Top);
end;
Reg.WriteInteger("Options", "WinState", Integer(WindowState));
...
...
...
end;
finally
Reg.Free;
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
loadoptions;
...
...
...
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
saveoptions;
...
...
...
end;

---

Skier   (2002-08-08 19:11:00) [1]

>Лысый
А ты проверь - WindowState правильно записывается.

---

Лысый   (2002-08-08 19:09:00) [2]

Так пробовал... Ничего не получается :(((

---

Skier   (2002-08-08 19:06:00) [3]

>Лысый


with MainForm do
begin

Left:=Reg.ReadInteger("Options", "Left", 10);
Top:=Reg.ReadInteger("Options", "Top", 10);
Width:=Reg.ReadInteger("Options", "Width", 600);
Height:=Reg.ReadInteger("Options", "Heigth", 400);

WindowState:=TWindowState(Reg.ReadInteger("Options", "WinState",
0));
...
...
...
end;


---

Наверх