Например, экран, случайно меняющий свой цвет при каждом движении мышки:
Add(MainForm,2953706,55,56)
{
Width=610
Height=497
Caption="Цветопредставление"
BorderStyle=1
Point(onMouseMove)
Point(doColor)
link(onMouseMove,10403690:doRandom,[])
}
Add(Random,10403690,147,77)
{
Max=16777215
link(onRandom,2953706:doColor,[(191,83)(191,87)(43,87)(43,90)])
}
Или кнопка, случайным образом меняющая свой цвет при каждом нажатии
Add(BitBtn,14667551,175,105)
{
Left=175
Top=105
Point(doColor)
link(onClick,2067419:doRandom,[])
}
Add(Random,2067419,245,105)
{
Max=16777215
link(onRandom,14667551:doColor,[(289,111)(291,115)(291,211)(163,211)(163,118)])
}
В примере - "обидчивая форма", при закрытии не желающая восстанавливаться:
Add(MainForm,2953706,21,105)
{
Width=132
link(onActivate,3447306:doWork1,[])
}
Add(ChildForm,3447306,147,105)
{
link(onEvent1,2953706:doMinimize,[(191,111)(192,118)(192,178)(9,178)(9,125)])
link(onEvent2,2953706:doCaption,[(191,117)(227,117)(227,67)(9,67)(9,111)])
}
BEGIN_SDK
Add(EditMulti,7135218,21,21)
{
EventCount=2
WorkCount=1
link(doWork1,3940358:doMinimize,[(28,27)(28,125)])
}
Add(MainForm,3940358,35,105)
{
Left=35
Top=105
Height=112
link(onActivate,1879088:doWork1,[])
}
Add(ChildForm,1879088,119,105)
{
link(onEvent1,7135218:onEvent2,[(236,111)(236,34)])
}
BEGIN_SDK
Add(EditMulti,8694868,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,14436555:doMinimize,[(28,27)(28,125)])
}
Add(MainForm,14436555,35,105)
{
Left=35
Top=105
Width=535
Height=458
link(onActivate,10199570:doWork1,[])
}
Add(ChildForm,10199570,119,105)
{
link(onEvent1,8694868:onEvent1,[(236,111)(236,27)])
}
BEGIN_SDK
Add(EditMulti,9475726,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,8755545:doMinimize,[(28,27)(28,125)])
}
Add(MainForm,8755545,35,105)
{
Left=35
Top=105
Width=119
Height=105
link(onActivate,3702579:doWork1,[])
}
Add(ChildForm,3702579,126,105)
{
link(onEvent1,9475726:onEvent1,[(240,111)(240,27)])
}
BEGIN_SDK
Add(EditMulti,16237442,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,13338583:doMinimize,[(28,27)(28,125)])
}
Add(MainForm,13338583,35,105)
{
Left=35
Top=105
Width=219
Height=394
link(onActivate,8241215:doWork1,[])
}
Add(ChildForm,8241215,133,105)
{
link(onEvent1,16237442:onEvent1,[(243,111)(243,27)])
}
BEGIN_SDK
Add(EditMulti,13421699,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,3652007:doMinimize,[(28,27)(28,125)])
}
Add(MainForm,3652007,35,105)
{
Left=35
Top=105
Width=509
Height=85
link(onActivate,13421699:onEvent1,[(194,111)(194,27)])
}
END_SDK
END_SDK
END_SDK
END_SDK
END_SDK
Устное предупреждение: пользуемся тегом Код -- iarspider
В качестве иллюстрации использования таких компонентов - "Зарядка души" с цветной кнопкой
Add(BitBtn,12382016,35,175)
{
Left=80
Top=175
Caption="Ещё"
Point(doColor)
link(onClick,7448418:doFor,[])
}
Add(Message,8456892,147,175)
{
Message="А ты человек, ты сильный и смелый"
link(onMessage,4716745:doMessage,[])
}
Add(Message,4716745,217,175)
{
Message="Своими рукам судьбу свою сделай"
link(onMessage,15991853:doMessage,[])
}
Add(Message,15991853,287,175)
{
Message="Иди против ветра, на месте не стой"
link(onMessage,5895846:doMessage,[])
}
Add(Message,5895846,364,175)
{
Message="Пойми, не бывает дороги простой"
link(onMessage,15624622:doRandom,[])
}
Add(Label,6222629,77,77)
{
Left=115
Top=40
Width=130
Height=28
Font=[MS Sans Serif,14,0,0,1]
Caption="Зарядка души"
}
Add(Label,5269490,147,77)
{
Left=40
Top=100
Width=319
Height=20
Font=[MS Sans Serif,10,0,0,1]
Caption="Повторять до насыщения, но не меньше 7-ми раз"
}
Add(For,7448418,91,175)
{
Start=1
End=7
link(onEvent,8456892:doMessage,[])
}
Add(Random,15624622,427,175)
{
Max=16777215
link(onRandom,12382016:doColor,[(471,181)(471,256)(23,256)(23,188)])
}
Add(Label,8008474,217,77)
{
Left=186
Top=175
Width=119
Height=17
Caption="Цвет - состояние души"
}
А какие эффектные короткие замыкания знаете Вы?
Поиск
Друзья
Администрация