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

Вниз

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

← →
Дмитрий   (2008-12-19 14:37) [0]

Как сделать чтобы форма сохраняла в .DFM не фактические размеры (Height, Width), а клиентские (ClientHeight, ClientWidth);

---

← →
Сергей М. ©   (2008-12-19 14:49) [1]

Лезем в генофонд, видим там следующее:

function TCustomForm.IsClientSizeStored: Boolean;
begin
 Result := not IsFormSizeStored;
end;

function TCustomForm.IsFormSizeStored: Boolean;
begin
 Result := AutoScroll or (HorzScrollBar.Range <> 0) or
   (VertScrollBar.Range <> 0);
end;


Делаем вывод:

на момент сохранения должны быть соблюдены условия

AutoScroll = False
HorzScrollBar.Range = 0
VertScrollBar.Range = 0

---

← →
Дмитрий   (2008-12-19 14:52) [2]

Большое спасибо

---

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

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

Наверх

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