Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: 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 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
1-60641
Ghost.
2002-08-05 17:40
2002.08.19
Вопрос для тех кто работал с формами в DLL


1-60630
andreyz
2002-08-06 05:13
2002.08.19
Иконки в гриде


14-60810
Dimich1978
2002-07-23 14:59
2002.08.19
Траффик


7-60883
dobriy
2002-06-04 21:27
2002.08.19
Проблема с перезагрузкой


4-60918
anod
2002-06-14 23:48
2002.08.19
Как закрыть диалог