Вверх ↑
Ответов: 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