Вверх ↑
Ответов: 18
Рейтинг: 20
#1: 2020-11-23 19:46:56 ЛС | профиль | цитата
Может ну его этот фильтр и сделать так...

Add(MainForm,8951961,105,196)
{
Width=440
Height=172
Point(onMouseDown)
link(onMouseDown,14966239:doEvent,[(148,223)(148,202)])
}
Add(Memo,3116927,434,154)
{
Left=170
Top=5
Width=245
Height=55
Strings=#17:Это пример текста|15:для сохранения.|0:|
}
Add(PopupMenu,9965293,217,196)
{
Menu=#15:сохранить в txt|15:сохранить в bat|15:сохранить в ini|15:сохранить в str|15:сохранить в vbs|
TranspIcon=1
link(onClick,11916909:doGetString,[(264,202)(264,230)])
}
Add(SDialog,3434106,378,189)
{
Title="Сохранить Буфер в Файл"
Point(doFilter)
Point(doFileName)
link(onExecute,3116927:doSave,[])
}
Add(StrList,11916909,280,196)
{
Strings=#5:1.txt|5:1.bat|5:1.ini|5:1.str|5:1.vbs|
Point(doGetString)
Point(onGetString)
link(onGetString,1100150:doEvent1,[])
}
Add(IndexToChanel,14966239,161,196)
{
link(onEvent2,9965293:doPopupHere,[(200,209)(200,202)])
}
Add(Hub,1100150,329,203)
{
OutCount=4
link(onEvent1,3434106:doFileName,[])
link(onEvent3,3644706:doText,[])
link(onEvent4,3434106:doExecute,[(358,230)(358,195)])
}
Add(Label,3391927,105,147)
{
Left=170
Top=70
Width=249
Height=17
Caption="Вариант фильтра, который фолжен появляться:"
}
Add(Label,3644706,434,217)
{
Left=170
Top=95
Width=244
Height=17
Color=16777215
Font=[MS Sans Serif,8,0,255,1]
Caption="________________________________________"
}

карма: 1

0