Плавное исчезновение окна

Вверх ↑

Форумы "Игра в слова"Плавное исчезновение окна ← Ctrl1Ctrl →

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

Ответов: 1321

Рейтинг: 37

#1: 2009-07-20 16:13:40 ЛС | профиль | цитата

code_14199.txt
Кто то искал как сделать такой эффект ,я не у кого схему не тырил ,сам придумал

карма: 0

файлы: 1

code_14199.txt [1KB] [137]

Разработчик

Ответов: 26324

Рейтинг: 2147

#2: 2009-07-20 16:17:27 ЛС | профиль | цитата

Гы, гы, гы
А по красной кнопке не исчезает

карма: 22

Ответов: 1321

Рейтинг: 37

#3: 2009-07-20 16:21:42 ЛС | профиль | цитата

Но если надо то сейчас намучу

карма: 0

Ответов: 1088

Рейтинг: 112

#4: 2009-07-20 16:25:58 ЛС | профиль | цитата

Roma, ознакомся:
Стандарт построения схем HiAsm

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26324

Рейтинг: 2147

#5: 2009-07-20 16:29:00 ЛС | профиль | цитата

Roma писал(а):

Но если надо то сейчас намучу

Попробуй, интересна твоя реализация

карма: 22

Ответов: 1321

Рейтинг: 37

#6: 2009-07-20 19:39:45 ЛС | профиль | цитата

code_14205.txt
ладно сдаюсь

у меня не совсем получаеться но вот еще одна схема

карма: 0

файлы: 1

code_14205.txt [1.3KB] [115]

Ответов: 880

Рейтинг: 101

#7: 2009-07-20 20:39:18 ЛС | профиль | цитата

быстрый вариант


Add(MainForm,101070,364,203)
{
 Width=625
 Height=355
 WinStyle=1
 Point(doAlphaBlendValue)
}
Add(Button,11179790,259,231)
{
 Left=555
 Top=275
 Height=45
 Caption="EXIT"
 link(onClick,14682196:doFor,[])
}
Add(For,14682196,308,231)
{
 Start=256
 Step=-1
 IncludeEnd=1
 link(onEvent,101070:doAlphaBlendValue,[])
 link(onStop,101070:doClose,[(352,244)(352,230)])
}

более плавный вариант используя таймер


Add(MainForm,101070,455,203)
{
 Width=625
 Height=355
 WinStyle=1
 Point(doAlphaBlendValue)
}
Add(Button,11179790,259,231)
{
 Left=555
 Top=275
 Height=45
 Caption="EXIT"
 link(onClick,9532977:doTimer,[])
}
Add(Timer,9532977,308,231)
{
 Interval=1
 Enable=1
 AutoStop=51
 Point(onStop)
 link(onTimer,11522535:doNext,[])
 link(onStop,101070:doClose,[(371,244)(371,230)])
}
Add(Counter,11522535,392,231)
{
 Max=255
 Step=5
 Type=1
 link(onNext,101070:doAlphaBlendValue,[])
}

карма: 1

Разработчик

Ответов: 26324

Рейтинг: 2147

#8: 2009-07-20 22:10:29 ЛС | профиль | цитата

flud, твоя схема страдает тем же, что и предыдущие

nesco писал(а):

А по красной кнопке не исчезает

------------ Дoбавленo в 22.56:
Задача решается очень просто


Add(MainForm,2953706,350,154)
{
 AlphaBlendValue=0
 Point(doAlphaBlendValue)
 Point(onClose)
 Point(Close)
 link(Close,6645428:GetData,[])
}
Add(MathParse,8314704,273,182)
{
 DataCount=0
 MathStr="min((%0 + 5), 255)"
 ResultType=0
 link(onResult,13548798:doWork2,[])
}
Add(Timer,12101160,224,182)
{
 Interval=1
 AutoStop=51
 link(onTimer,8314704:doCalc,[])
}
Add(Timer,2180823,224,231)
{
 Interval=1
 Enable=1
 AutoStop=51
 Point(onStop)
 link(onTimer,14117639:doCalc,[])
 link(onStop,2953706:doClose,[(327,244)(327,181)])
}
Add(MathParse,14117639,273,231)
{
 DataCount=0
 MathStr="max(%0 - 5, 0)"
 ResultType=0
 Default=255
 link(onResult,13548798:doWork3,[(319,237)])
}
Add(HubEx,13548798,315,175)
{
 link(onEvent,2953706:doAlphaBlendValue,[])
}
Add(EventFromData,6645428,350,105)
{
 link(onEvent,7509687:doEvent1,[])
}
Add(Hub,7509687,399,105)
{
 link(onEvent1,1553419:doData,[(425,111)(425,99)(289,99)(289,111)])
 link(onEvent2,2180823:doTimer,[(429,118)(429,94)(212,94)(212,237)])
}
Add(DoData,1553419,301,105)
{
 Data=Integer(1)
 link(onEventData,6645428:doData,[])
}

карма: 22

Голосовали: Konst

Ответов: 1321

Рейтинг: 37

#9: 2009-07-21 10:13:51 ЛС | профиль | цитата

Писал поздно мозги не шарили

карма: 0

Форумы "Игра в слова"Плавное исчезновение окна ← Ctrl1Ctrl →


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