andrestudio писал(а):
nesco, у меня в WM_WINDOWPOSCHANGED либо только в форме работает либо вообще не работает ничего. (видать я где то что то в своё время наколбасил) На меня не оглядывайся делай как считаешь нужным, надеюсь пользователи оценят простоту и удобство для создания дружелюбных интерфейсов.Можно и в WM_SIZE поставить. А если раскоммитить код MinMax, то можно получить интересный эффект
Вот схема, но будет ли она у тебя работать?
СхемаAdd(MainForm,2953706,266,98)
{
Width=420
Height=285
MinWidth=190
MinHeight=155
MaxWidth=600
MaxHeight=600
Position=1
Point(onResize)
}
Add(ChildPanel,9554533,266,154)
{
}
BEGIN_SDK
Add(EditMulti,1080472,21,21)
{
}
Add(Panel,13630585,56,105)
{
Left=10
Top=10
Width=380
Height=225
akRight=0
akBottom=0
Point(onResize)
}
Add(Memo,14371164,161,105)
{
Left=25
Top=35
Width=195
akRight=0
akBottom=0
MinWidth=100
MinHeight=21
}
END_SDK
А вот это желательно добавить в Init для MinMax
if _prop_MinWidth >= Width then
MinWidth := Width
else
MinWidth := _prop_MinWidth;
if _prop_MinHeight >= Height then
MinHeight := Height
else
MinHeight := _prop_MinHeight;
if (_prop_MaxWidth <= Width) and (_prop_MaxWidth <> 0) then
MaxWidth := Width
else
MaxWidth := _prop_MaxWidth;
if (_prop_MaxHeight <= Height) and (_prop_MaxHeight <> 0) then // Тут раньше была ошибка, вместо Height стояла Width
MaxHeight := Height
else
MaxHeight := _prop_MaxHeight;
--- Добавлено в 2022-01-15 16:12:42
andrestudio писал(а):
надеюсь пользователи оценят простоту и удобство для создания дружелюбных интерфейсовЧе-то все затихли. Кроме тебя и NetSpirit-a никто больше не отписался. Может, никому больше не нужно? Ладно поюзать еще не могут, но хоть бы мявкнули про нужность или ненужность.
P.S. Предупреждаю, что если выйдет обновление, то это будет глобальный патч. Я полностью переформатирую код, мне надоело ковыряться в написанных каракулях. Все старое останется "как есть", просто читаемость будет выше, а новое будет уже по-новому. А то мой перфекционизм уже страшно негодуэ.
Поиск
Друзья
Администрация