StatusBar

← →
midas2k5 (2005-06-22 09:51) [0]

Как организовать сохранение и загрузку размеров и положение формы, когда есть StatusBar. Проблема в том, что размеры формы возвращаются с StatusBar"ом, а при установки без него!
Вследствии всего этого следующий код не работает:
procedure IniFileSettings(Mode:Boolean);
var
I: PIniFile;
begin
I := OpenIniFile(IniFileName);
if Mode then
I.Mode:=ifmWrite
else
I.Mode:=ifmRead;
I.Section := "Window";
Form1.Left := I.ValueInteger("Left", Form1.Left);
Form1.Top := I.ValueInteger("Top", Form1.Top);
Form1.Width := I.ValueInteger("Width", Form1.Width);
Form1.Height := I.ValueInteger("Height", Form1.Height);
I.Section := "General";
LastFileName := I.ValueString("LastFile",LastFileName);
OptShowPassword := I.ValueBoolean("ShowPassword",OptShowPassword);
end;

← →
thaddy (2005-06-22 11:32) [1]

The code works with me: You probably read the position *before* the statusbar is created. you should read and write the settings *after* the statusbar is created.

← →
Владимир Кладов (2005-06-22 17:36) [2]

или используйте ClientWidth/ClientHeight - они и для формы работают, в том числе и на запись.

← →
Midas2k5 (2005-06-23 15:14) [3]

Thanks Thaddy, this work !

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