Вверх ↑
Ответов: 233
Рейтинг: 1
#1: 2007-11-23 19:01:08 ЛС | профиль | цитата
nesco, вещь полезная!

Я когда-то так извращался:

#sha
Add(MainForm,4380324,315,189)
{
Left=20
Top=105
Width=147
Height=104
BorderStyle=4
link(onCreate,9403462:doHide,[])
}
Add(Timer,9383984,21,84)
{
link(onTimer,7766408:doCollectCPUData,[])
}
Add(Bitmap,6349904,203,28)
{
Picture=[ZIP3604000078DA73F235636100033320D600620128666450804840E547C1281805A3000400F592016D]
}
Add(Img_Text,4243172,196,147)
{
Font=[Tahoma,7,0,65280,1]
X=1
Y=1
link(onDraw,16471674:doData,[])
link(Bitmap,15461851:Var1,[(202,135)])
}
Add(CPUUsage,7766408,77,84)
{
link(onUsage,11260578:doEvent1,[])
}
Add(GetDataEx,15461851,252,126)
{
link(Data,4241289:Bitmap,[])
}
Add(TrayIcon,9403462,427,217)
{
}
Add(DoData,16471674,259,147)
{
link(onEventData,10867131:doEvent1,[])
link(Data,15461851:Var2,[])
}
Add(Icon,59212,371,133)
{
Point(doLoadFromBitmap)
}
Add(DoData,15183454,371,182)
{
link(onEventData,9403462:doIcon,[(415,188)(415,237)])
link(Data,59212:Icon,[])
}
Add(Hub,10867131,315,147)
{
link(onEvent1,59212:doLoadFromBitmap,[])
link(onEvent2,15183454:doData,[(356,160)(356,188)])
}
Add(Hub,11260578,133,84)
{
OutCount=3
link(onEvent1,5186047:doData,[])
link(onEvent2,4243172:doDraw,[(187,97)(187,153)])
link(onEvent3,12658156:doText,[(178,104)(178,202)])
}
Add(Bitmap,4241289,259,84)
{
}
Add(DoData,5186047,203,84)
{
link(onEventData,4241289:doLoad,[])
link(Data,6349904:Bitmap,[])
}
Add(Label,12658156,196,196)
{
Left=25
Top=25
Width=90
Height=30
Font=[Arial,24,1,8421504,204]
Caption=""
AutoSize=1
Alignment=2
}

карма: 0
%time%
0