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

Настройки   Найти похожие ветки 

← →
Лысый   (2002-08-08 19:01) [0]

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:06) [1]

>Лысый


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;


---

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

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

---

← →
Skier ©   (2002-08-08 19:11) [3]

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

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.011 c