Вверх ↑
Ответов: 495
Рейтинг: 163
#1: 2012-10-18 12:13:39 ЛС | профиль | цитата
nesco писал(а):
Добавил, можно смотреть
Спасибо !!! Работает, правда на моем пеньке тормозит примерно также как и вариант из начала поста...
С psSolid всё быстро...
Комп: P4-3.6 ГГц ; 3 ГБ ОЗУ ; GF 8600GT ; ХР
Проверял в этом варианте..

Add(MainForm,4299143,336,140)
{
Width=1024
Height=768
Point(onResize)
}
Add(Img_Rectangle,14716619,392,308)
{
LineStyle=2
Point(Point1)
Point(Point2)
link(onDraw,4852272:doRefresh,[(450,314)(450,146)])
link(Bitmap,4852272:Bitmap,[(398,188)(482,188)])
link(Point1,15370258:Value,[])
link(Point2,1720706:Var2,[(419,297)(489,297)])
}
Add(PaintBox,4852272,476,140)
{
Width=1024
Height=768
Align=5
Color=-16777196
Point(MouseX)
Point(MouseY)
Point(onMouseMove)
Point(onMouseDown)
link(onMouseMove,4640051:doEvent,[])
link(onMouseDown,7339479:doEvent,[(520,160)(520,188)])
}
Add(PointXY,15428750,483,203)
{
link(X,4852272:MouseX,[])
link(Y,4852272:MouseY,[])
}
Add(Memory,15370258,406,259)
{
Point(Data)
link(Data,1720706:Var1,[(412,250)])
}
Add(GetDataEx,1720706,483,245)
{
link(Data,15428750:Point,[])
}
Add(IndexToChanel,7339479,532,182)
{
Count=1
link(onEvent1,15370258:doValue,[(576,188)(576,243)(401,243)(401,265)])
}
Add(IndexToChanel,4640051,532,147)
{
Count=1
link(onEvent1,5001859:doEvent1,[(593,153)(593,362)(331,362)(331,307)])
}
Add(Hub,5001859,343,301)
{
link(onEvent1,4852272:doClear,[(380,307)(380,153)])
link(onEvent2,14716619:doDraw,[])
}



карма: 4

0