Плавное изменение размера формы

Вверх ↑

Форумы Между деломПлавное изменение размера формы ← Ctrl123Ctrl →

Этот топик читают: Гость

Ответов: 1379

Рейтинг: 86

#16: 2010-05-28 00:28:48 ЛС | профиль | цитата

[offtop]

Tad писал(а):

Достало

а у меня просто вбито постоянно в поле Имя свой логин при вводе сообщения. Вылетел - ругнется на использование имени. Дальше - выход и заход сверху форума на этой же странице - спуск вниз, пост.[/offtop]

карма: 0

Ответов: 1841

Рейтинг: 369

#17: 2010-05-28 00:31:50 ЛС | профиль | цитата

nesco, всё бы хорошо НО как бы теперь ещё одну функцию "портировать" из моей схемы (я про "в момент плавного изменения формы можно было моментально обратить действие")?

карма: 1

Альтернативная сборка HiAsm 4.

Разработчик

Ответов: 26164

Рейтинг: 2127

#18: 2010-05-28 02:04:59 ЛС | профиль | цитата

CriDos писал(а):

я про "в момент плавного изменения формы можно было моментально обратить действие"

Не вижу надобности, я бы вообще запретил реверс до полного достижения конца операции. Маразм это -- клацать кнопкой в момент работы
------------ Дoбавленo в 01.51:
Хотя, может, вот так пойдет



Add(MainForm,16406168,644,259)
{
 Width=494
 Height=76
 Caption="Плавное увеличение высоты формы"
 BorderStyle=4
 Position=1
 Point(doHeight)
 Point(Height)
 link(onCreate,4085703:doValue,[(687,279)(687,234)(534,234)(534,272)])
}
Add(Button,2994254,399,259)
{
 Left=220
 Top=15
 TabOrder=-1
 Caption="Открыть"
 Point(doCaption)
 link(onClick,3247727:doEvent1,[])
}
Add(Timer,7540667,483,343)
{
 Interval=10
 Enable=1
 Point(onStop)
 link(onTimer,14326330:doCalc,[])
}
Add(MathParse,14326330,532,343)
{
 DataCount=3
 MathStr="(%2 <= 250) * (%1 > 0) * (%2 + 5) + (%2 >= %3) * (%1 <= 0) * (%2 - 5) "
 link(onResult,9264180:doCase,[])
 link(X1,12277137:State,[(538,320)(489,320)])
 link(X2,10754206:Var1,[(545,320)])
 link(X3,4085703:Value,[])
}
Add(Switch,12277137,483,266)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 Point(State)
 link(onSwitch,7540667:doTimer,[(527,272)(527,234)(330,234)(330,349)])
}
Add(Switch,9901326,350,259)
{
 DataOn=String(Закрыть)
 DataOff=String(Открыть)
 link(onSwitch,2994254:doCaption,[])
}
Add(Memory,4085703,546,266)
{
 Point(Data)
 link(Data,10754206:Var3,[(552,254)(594,254)])
}
Add(GetDataEx,10754206,588,315)
{
 Angle=1
 link(Data,16406168:Height,[(650,320)])
}
Add(Case,9264180,581,343)
{
 Value=Integer(0)
 link(onNextCase,16406168:doHeight,[(631,349)(631,293)])
 link(onTrue,7540667:doStop,[(631,356)(631,384)(469,384)(469,356)])
}
Add(Hub,3247727,448,259)
{
 link(onEvent1,9901326:doSwitch,[(474,265)(474,251)(338,251)(338,265)])
 link(onEvent2,12277137:doSwitch,[])
}

------------ Дoбавленo в 02.04:
А если написать длиннее формулу, то можно еще упростить


Add(MainForm,16406168,623,259)
{
 Width=494
 Height=76
 Caption="Плавное увеличение высоты формы"
 BorderStyle=4
 Position=1
 Point(doHeight)
 Point(Height)
 link(onCreate,4085703:doValue,[(666,279)(666,234)(534,234)(534,272)])
}
Add(Button,2994254,399,259)
{
 Left=220
 Top=15
 TabOrder=-1
 Caption="Открыть"
 Point(doCaption)
 link(onClick,3247727:doEvent1,[])
}
Add(Timer,7540667,483,343)
{
 Interval=10
 Enable=1
 AutoStop=200
 Point(onStop)
 link(onTimer,14326330:doCalc,[])
}
Add(MathParse,14326330,532,343)
{
 DataCount=3
 MathStr="(%2 + 5 <= 250) * (%1 > 0) * (%2 + 5) + (%2 - 5 >= %3) * (%1 <= 0) * (%2 - 5) + (%2 + 5 > 250)  * (%1 > 0) * 250 + (%2 - 5 < %3) * (%1 <= 0) * %3"
 link(onResult,16406168:doHeight,[(604,349)(604,293)])
 link(X1,12277137:State,[(538,320)(489,320)])
 link(X2,10754206:Var1,[(545,320)])
 link(X3,4085703:Value,[])
}
Add(Switch,12277137,483,266)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 Point(State)
 link(onSwitch,7540667:doTimer,[(527,272)(527,234)(330,234)(330,349)])
}
Add(Switch,9901326,350,259)
{
 DataOn=String(Закрыть)
 DataOff=String(Открыть)
 link(onSwitch,2994254:doCaption,[])
}
Add(Memory,4085703,546,266)
{
 Point(Data)
 link(Data,10754206:Var3,[(552,254)(594,254)])
}
Add(GetDataEx,10754206,588,315)
{
 Angle=1
 link(Data,16406168:Height,[(629,320)])
}
Add(Hub,3247727,448,259)
{
 link(onEvent1,9901326:doSwitch,[(474,265)(474,251)(338,251)(338,265)])
 link(onEvent2,12277137:doSwitch,[])
}

карма: 22

Голосовали: CriDos, Muz-Tv

Ответов: 16884

Рейтинг: 1239

#19: 2010-05-28 08:43:29 ЛС | профиль | цитата

[flood]

petrocan писал(а):

а у меня просто вбито постоянно

Поговорка писал(а):

Голь на выдумки хитра.

[/flood]

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 3349

Рейтинг: 233

#20: 2010-05-28 09:19:09 ЛС | профиль | цитата

Легко
code_18545.txt

карма: 1

файлы: 1

code_18545.txt [1.2KB] [153]

Разработчик

Ответов: 26164

Рейтинг: 2127

#21: 2010-05-28 09:48:29 ЛС | профиль | цитата

Ivann, и где она проще последней моей схемы, да еще, и без сохранения оригинального функционала

Если уж предлагать схему, то проще последней выложенной, а не пытаться тут по-умничать, не предлагая ничего кардинально нового.
А ты смотрел мою схему, перед тем, как предлагать свое

карма: 22

Ответов: 16884

Рейтинг: 1239

#22: 2010-05-28 09:59:58 ЛС | профиль | цитата

nesco писал(а):

А ты смотрел мою схему

Наверное нет. А зачем ?
У него наверное уже усы начинают пробиваться.
Так что: "Мы сами с усами !"

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 3349

Рейтинг: 233

#23: 2010-05-28 10:55:23 ЛС | профиль | цитата

nesco, а зачем мне смотреть?

карма: 1

Разработчик

Ответов: 26164

Рейтинг: 2127

#24: 2010-05-28 11:33:14 ЛС | профиль | цитата

Ivann писал(а):

а зачем мне смотреть?

А что бы громко не пукнуть в лужу, что ты и сделал. Абсолютно ничего нового не предложил, зато, покрасовался -- вот я какой, как все я легко сделал, а вы тут, бедняги, мучаетесь. ИМХО. Не нравится мне эта черта в тебе -- по-умничать и покрасоваться, там, где это совершенно не надо и не к месту

карма: 22

Ответов: 3349

Рейтинг: 233

#25: 2010-05-28 11:39:09 ЛС | профиль | цитата

nesco, я не умничал, я смотрел только первый пример CriDos, и предложил свой вариант, так как его схема показалась мне сложной.

карма: 1

Разработчик

Ответов: 26164

Рейтинг: 2127

#26: 2010-05-28 11:44:17 ЛС | профиль | цитата

Ivann писал(а):

ак как его схема показалась мне сложной

Ну да, конечно, а что там народ делал, читать совсем не обязательно. Мой тебе совет, перед тем, что бы что-то выкладывать, посмотри сначала, не сделали ли уже это другие, или влом читать пару страниц

карма: 22

Ответов: 8930

Рейтинг: 823

#27: 2010-05-28 11:47:41 ЛС | профиль | цитата

Будете препираться, свою схему выложу, на два экрана!

карма: 19

Голосовали:

Tad

Разработчик

Ответов: 26164

Рейтинг: 2127

#28: 2010-05-28 11:51:47 ЛС | профиль | цитата

[flood]

Леонид писал(а):

Будете препираться, свою схему выложу, на два экрана!

Не, не надо, пожалей нервы других, а то инфаркт еще схватит, некоторые из нас -- уже не молодые ежики

[/flood]

карма: 22

Ответов: 3349

Рейтинг: 233

#29: 2010-05-28 12:02:03 ЛС | профиль | цитата

nesco писал(а):

читать пару страниц

Читать не влом, но вы не описываете действие своих схем, и количество элементов.
А смотреть кучу схем не очень приятно.

карма: 1

Разработчик

Ответов: 26164

Рейтинг: 2127

#30: 2010-05-28 12:23:46 ЛС | профиль | цитата

Ivann писал(а):

но вы не описываете действие своих схем, и количество элементов

И что их описывать, когда задача поставлена в начале топика

CriDos писал(а):

но мне кажется схему можно уменьшить на пару элементов с помощью формул но т.к. я в математике не силён то решил спросить у наших Гуру (Форумчан) о возможной оптимизации схемы

Где у тебя в схеме формулы

Нету у тебя формул. И если тебе не интересно, что сделали другие, вдруг пригодится, то это -- твои проблемы, надо полагать, что ты очень силен в математике и в совершенстве владеешь компонентом MathParse. Так что, замнем это все для ясности, я свое мнение высказал, больше не хочу поднимать эту тему.

карма: 22

Форумы Между деломПлавное изменение размера формы ← Ctrl123Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)