Вверх ↑
Разработчик
Ответов: 26066
Рейтинг: 2120
#1: 2020-07-27 13:14:48 ЛС | профиль | цитата
Это делается без всяких IC

Схема


Add(MainForm,2953706,147,105)
{
Position=1
}
Add(ListBox,4984454,231,105)
{
Left=40
Top=15
Width=190
Height=145
Strings=#5:xdgxf|5:dfdfg|7:dfgdgdg|6:dgfdgd|8:dffdfgdf|10:dfgdfgdfgd|12:dgfdfgfdfgfd|8:gdfgdfgd|10:gdfgdfgdfg|10:dfgdgdgfdg|9:fgdfgfdgd|11:dfgdgdffgfd|9:dfgdfgdfg|10:dfgdfgdfgd|10:dfgdfgdfgd|7:dfgdddd|
Point(onMouseMove)
Point(Handle)
Point(MouseX)
Point(MouseY)
Point(doSelect)
link(onMouseMove,4184292:doSendMessage,[(284,125)(284,97)(221,97)(221,265)])
}
Add(SendMessage,4184292,245,259)
{
@Hint=#16:LB_ITEMFROMPOINT|
Point(Message)
link(onSend,4739854:doDeferredEvent,[])
link(Handle,4984454:Handle,[(251,145)(258,145)])
link(LParam,14179848:Point,[])
link(Message,1955454:Text,[(272,236)(279,236)])
AddHint(45,-26,124,13,@Hint)
}
Add(PointXY,14179848,259,161)
{
link(X,4984454:MouseX,[])
link(Y,4984454:MouseY,[])
}
Add(VisualStrings,1955454,273,210)
{
Lines=#3:425|
Width=53
}
Add(DeferredEvent,4739854,294,259)
{
InData=0
link(onDeferredEvent,4984454:doSelect,[(333,265)(333,300)(214,300)(214,139)])
}

карма: 22

1
Голосовали:Joiner