Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];
Вниз
сохранение 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c