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

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 !

---

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

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



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