Вверх ↑
Ответов: 19
Рейтинг: 21
#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