Вверх ↑
Ответов: 824
Рейтинг: 138
#1: 2017-08-09 00:43:43 ЛС | профиль | цитата
Привязка своего окна к любому другому

Add(MainForm,2953706,770,245)
{
Width=413
Height=125
Caption="Привязка окна"
Point(doLeft)
Point(doTop)
Point(Handle)
link(onCreate,2252219:doPopup,[])
}
Add(Button,9831433,175,147)
{
Left=15
Top=10
Width=80
Caption="Привязать"
Point(doEnabled)
link(onClick,11523607:doMessage,[])
}
Add(Button,1053009,175,280)
{
Left=105
Top=10
Width=80
Enabled=1
Caption="Отвязать"
Data=String(Привязано к окну: Непривязано!)
Point(doEnabled)
link(onClick,7994391:doEvent1,[])
}
Add(LED,12120273,770,168)
{
Left=205
Top=5
}
Add(WinInfo,13885701,518,273)
{
Point(Left)
Point(Top)
link(onWinInfo,10919155:doEvent1,[])
link(Handle,3559114:Value,[])
}
Add(MouseEvent,8125040,371,98)
{
Point(Handle)
}
Add(Keyboard,4072279,336,154)
{
Key=1
link(onReadKey,13694263:doEvent,[])
}
Add(Timer,11522873,287,154)
{
Interval=25
Enable=1
link(onTimer,4072279:doReadKey,[])
}
Add(IndexToChanel,13694263,385,154)
{
Point(Data)
link(onEvent2,11955218:doEvent1,[])
link(Data,8125040:Handle,[])
}
Add(Hub,11955218,434,161)
{
OutCount=4
link(onEvent1,3559114:doValue,[])
link(onEvent2,11522873:doStop,[(501,174)(501,202)(277,202)(277,167)])
link(onEvent3,6387108:In,[])
link(onEvent4,15099386:In,[])
}
Add(Memory,3559114,518,161)
{
link(onData,4379711:doWinInfo,[])
}
Add(LineBreak,5435867,371,273)
{
Caption="run"
link(Out,14033660:doStart,[])
Primary=[15099386,91,-91]
}
Add(ChanelToIndex,1914937,126,147)
{
link(onIndex,9831433:doEnabled,[])
}
Add(ChanelToIndex,15926829,126,280)
{
link(onIndex,1053009:doEnabled,[])
}
Add(Hub,4183155,294,287)
{
OutCount=4
link(onEvent1,12036244:In,[])
link(onEvent2,8365406:In,[])
link(onEvent3,1914937:doWork2,[(347,307)(347,335)(109,335)(109,160)])
link(onEvent4,15926829:doWork1,[(340,314)(340,328)(116,328)(116,286)])
}
Add(LineBreak,2657671,28,147)
{
Caption="dis"
link(Out,13361741:doEvent1,[])
Primary=[6387108,434,28]
}
Add(Hub,13361741,70,147)
{
link(onEvent1,1914937:doWork1,[])
link(onEvent2,15926829:doWork2,[(102,160)(102,293)])
}
Add(Hub,10919155,574,273)
{
link(onEvent1,10135828:doCalc,[])
link(onEvent2,440256:doCalc,[])
}
Add(WinInfo,4379711,595,161)
{
Point(Left)
Point(Top)
link(onWinInfo,12667640:doEvent1,[])
}
Add(WinInfo,12704085,679,168)
{
Point(Left)
Point(Top)
link(onWinInfo,12120273:doChangeValue,[])
link(Handle,6271307:getVar,[])
}
Add(LineBreak,12112241,721,175)
{
Caption="off"
link(Out,12120273:doOff,[])
Primary=[12036244,-385,112]
}
Add(FastMathParse,10135828,602,273)
{
DataCount=3
MathStr="%3 - (%2 - %1)"
link(onResult,2953706:doLeft,[])
link(X1,13885701:Left,[(608,264)(566,264)(566,320)(538,320)])
link(X2,4379711:Left,[])
link(X3,12704085:Left,[(622,243)(699,243)])
}
Add(FastMathParse,440256,679,280)
{
DataCount=3
MathStr="%3 - (%2 - %1)"
link(onResult,2953706:doTop,[])
link(X1,13885701:Top,[(685,250)(559,250)(559,313)(545,313)])
link(X2,4379711:Top,[(692,236)(622,236)])
link(X3,12704085:Top,[(699,258)(706,258)])
}
Add(Thread,14033660,427,273)
{
Delay=10
link(onExec,13885701:doWinInfo,[])
}
Add(Hub,7994391,266,280)
{
link(onEvent1,14033660:doStop,[])
link(onEvent2,4183155:doEvent1,[])
}
Add(WinTools,2252219,833,252)
{
link(Handle,2573575:getVar,[])
}
Add(LineBreakEx,3097492,770,308)
{
Caption="MyHDL"
Type=3
link(_Data,2953706:Handle,[])
}
Add(LineBreakEx,2573575,833,217)
{
Caption="MyHDL"
Type=2
}
Add(LineBreakEx,6271307,679,133)
{
Caption="MyHDL"
Type=2
}
Add(Label,9557937,903,161)
{
Left=15
Top=45
Width=365
Height=35
Caption="Привязано к окну: Непривязано!"
AutoSize=1
}
Add(FormatStr,5444884,819,161)
{
DataCount=1
Mask="Привязано к окну:\r\n%1\r\n"
link(onFString,14312587:doWork2,[])
link(Str1,4379711:Caption,[(825,124)(587,124)(587,201)(608,201)])
}
Add(Hub,12667640,637,161)
{
link(onEvent1,5444884:doString,[])
link(onEvent2,12704085:doWinInfo,[])
}
Add(LineBreak,16043449,840,133)
{
link(Out,14312587:doWork1,[(886,139)])
Primary=[8365406,-504,161]
}
Add(HubEx,14312587,882,161)
{
link(onEvent,9557937:doText,[])
}
Add(Message,11523607,231,147)
{
Message="Для привязки этого окна к любому\r\nдругому - нажмите "Ок" и кликните\r\nпо целевому окну.\r\n\r\nПродолжить?"
Caption="Внимание!"
Type=1
Point(onOK)
link(onOK,11522873:doTimer,[])
}
Для привязки нажать кнопку "привязать" и кликнуть по целевому окну.
карма: 1

0
Редактировалось 2 раз(а), последний 2017-08-09 00:51:45