Tad писал(а):
nesco, как думаешь, сколько HiAsm-мовцев смогут написать такой код, если им с молодых ногтей внушать, что IC - это плохо ?Да там сложного-то ничего нет. Немного полазить по неэту и можно что-то подобное состряпать. Вот дальнейшее продолжение темы, уже на штатниках. Тут не надо менять стиль, просто нужно подать необходимое сообщение окну:
Схема
Add(MainForm,2953706,238,77)
{
Position=1
link(onCreate,8304252:doText,[])
}
Add(ProgressBar,15560669,378,91)
{
Left=35
Top=25
Width=330
Height=40
ProgressColor=15780518
Point(Handle)
}
Add(StyleXP,7201581,238,35)
{
}
Add(RadioButton,8146614,231,161)
{
Left=145
Top=80
Width=90
TabOrder=-1
Selected=0
Caption="Normal"
link(onSelect,9146096:doWork2,[])
}
Add(RadioButton,11210444,231,196)
{
Left=145
Top=105
Width=90
TabOrder=-1
Caption="Error"
link(onSelect,9146096:doWork3,[(277,202)(277,174)])
}
Add(RadioButton,3533996,231,231)
{
Left=145
Top=130
Width=90
TabOrder=-1
Caption="Pause"
link(onSelect,9146096:doWork4,[(284,237)(284,181)])
}
Add(ChanelToIndex,9146096,308,154)
{
Count=4
link(onIndex,7867762:doSendMessage,[])
}
Add(VisualStrings,8304252,308,91)
{
Lines=#2:50|
Point(doText)
Point(onText)
link(onText,15560669:doPosition,[])
}
Add(SendMessage,7867762,385,154)
{
Point(Message)
link(Handle,15560669:Handle,[])
link(Message,6633795:Text,[(412,131)(433,131)])
}
Add(VisualStrings,6633795,427,105)
{
Lines=#4:1040|
Point(doText)
Point(onText)
}