tCustomForm(..).WindowState := wsNormal; кофти :)
3 отговора
93 прегледа
tCustomForm(..).WindowState := wsNormal; кофти :)
tCustomForm(..).WindowState := wsNormal; кофти :)
Във формата ми (върху панел, който е с Align=alTop) има един едит
object Edit_FolderDB: TEdit
Anchors = [akLeft, akTop, akRight]
end
Та когато излизам от програмата и си възстановявам стейта на формата в нормал (за да запиша размерите на формата в регистрите) тоя едит не си променя размера и оплесква работата.
tCustomForm(aControl).WindowState := wsNormal;
tCustomForm(aControl).Show;
Show е, за да се променят размерите на формата (ако го няма - и те не се променят).
Мога да напиша един ОнРесайз на панела, ама очаквам да ми предложите нещо по-по и най,
Благодаря.
Проблемът ми ще се реши и ако мога да узтановявам нормални размери на максимизирана форма (т.е. докато формата е максимизирана, да мога да сменя нормалните й размери, така, че когатао се ресторне, да бъде с новите нормални рамери).
Във формата ми (върху панел, който е с Align=alTop) има един едит
object Edit_FolderDB: TEdit
Anchors = [akLeft, akTop, akRight]
end
Та когато излизам от програмата и си възстановявам стейта на формата в нормал (за да запиша размерите на формата в регистрите) тоя едит не си променя размера и оплесква работата.
tCustomForm(aControl).WindowState := wsNormal;
tCustomForm(aControl).Show;
Show е, за да се променят размерите на формата (ако го няма - и те не се променят).
Мога да напиша един ОнРесайз на панела, ама очаквам да ми предложите нещо по-по и най,
Благодаря.
Проблемът ми ще се реши и ако мога да узтановявам нормални размери на максимизирана форма (т.е. докато формата е максимизирана, да мога да сменя нормалните й размери, така, че когатао се ресторне, да бъде с новите нормални рамери).
Ако записът в регистрите е в FormCloseQuery е ОК
Ако записът в регистрите е в FormCloseQuery (а не в FormDestroy) работата е ОК.
И всичко това, заради сваления флаг Showing по време на изпълнение на FormDestroy.
Трябва да запомня да си съхранявам състоянието на формите в FormCloseQuery, а не в FormDestroy.
И всичко това, заради сваления флаг Showing по време на изпълнение на FormDestroy.
Трябва да запомня да си съхранявам състоянието на формите в FormCloseQuery, а не в FormDestroy.
Редактирано от NikB на
Re: tCustomForm(..).WindowState := wsNormal; кофти :)
Рядко оставям усерите да могат да променят размерите - само когато се налага... За мен това си е загуба на време въпреки че придава някакъв вид. И така - големия ми въпрос е следния:
Когато правиш форми тестваш ли после на различни резолюции на монитора и цветови гами вкл. Много ми беше кофти, когато ми отвориха форма правена за и на 1024/768 на монитор/платка поддържащ 800/600. Тъпа история...
Когато правиш форми тестваш ли после на различни резолюции на монитора и цветови гами вкл. Много ми беше кофти, когато ми отвориха форма правена за и на 1024/768 на монитор/платка поддържащ 800/600. Тъпа история...
Бедюзерите на основния ми клиент ме научиха :)
Бедюзерите на основния ми клиент ме научиха :)
В процеса на проектиране решавам (много фактори) какви ще са минималните изисквания за видеото. Всеки мой проект при стартиране създава лог на няколко параметъра, вкл. режима на видеото и ако не е подходящ за програмата - извежда съобщение.
Например:
$00000000: 2005.10.09,19:26:32=> App_Begin: TrnsmServer 2005.10.09, 19:26:32 D:\Data\MyProj\DPCS_RetrF8\@Prog\aaaRetrF8_Server.exe -MSys -NS
$00000000: 2005.10.09,19:26:32=> App FileAge: 2005.10.09, 19:26:32
$00000000: 2005.10.09,19:26:32=> App VideoDisplayMode: W1280 x H1024 x B32
Но това в никакъв случей не ме лишава от удоволствието да съобразявам във всеки проект коя форма с какви размери да бъда и как да е центрирана.
На твоя въпрос - тестване на рамерите се налага единствено (може би) когато има сплитери и различните полета могат да излязат кофти.
В процеса на проектиране решавам (много фактори) какви ще са минималните изисквания за видеото. Всеки мой проект при стартиране създава лог на няколко параметъра, вкл. режима на видеото и ако не е подходящ за програмата - извежда съобщение.
Например:
$00000000: 2005.10.09,19:26:32=> App_Begin: TrnsmServer 2005.10.09, 19:26:32 D:\Data\MyProj\DPCS_RetrF8\@Prog\aaaRetrF8_Server.exe -MSys -NS
$00000000: 2005.10.09,19:26:32=> App FileAge: 2005.10.09, 19:26:32
$00000000: 2005.10.09,19:26:32=> App VideoDisplayMode: W1280 x H1024 x B32
Но това в никакъв случей не ме лишава от удоволствието да съобразявам във всеки проект коя форма с какви размери да бъда и как да е центрирана.
На твоя въпрос - тестване на рамерите се налага единствено (може би) когато има сплитери и различните полета могат да излязат кофти.