code_15422.txt
------------ Дoбавленo в 18.06:
nesco, меня уже разворачивающиеся коды достали.
------------ Дoбавленo в 18.13:
zbot, на с "Сохранить"
Add(MainForm,2953706,189,126)
{
Width=803
Height=510
}
Add(ComboBox,707353,595,140)
{
Left=20
Top=40
Width=195
Height=21
Strings=#8:FILE_N_R|7:FILE_NF|7:S_FILE |
DataType=1
Point(EditText)
}
Add(FileSearch,12701374,322,119)
{
Ext="*.log"
link(onSearch,3997954:doAdd,[])
link(Dir,15551542:Text,[])
}
Add(Browse,13526288,245,56)
{
Title="Укажите папку с логами myAC"
NewDirButton=1
link(onBrowse,15551542:doText,[])
}
Add(Edit,15551542,329,56)
{
Left=20
Top=10
Width=195
Height=25
Text="Укажите путь до папки с логами"
}
Add(Button,1229834,182,56)
{
Left=220
Top=10
Height=25
Font=[MS Sans Serif,12,1,0,1]
Caption="..."
Data=String()
link(onClick,13526288:doBrowse,[])
}
Add(ListBox,3997954,392,119)
{
Left=280
Top=10
Width=505
Height=95
DataType=1
Point(String)
link(onClick,9027278:doEvent1,[])
}
Add(Button,14353068,252,196)
{
Left=110
Top=79
Width=75
Font=[MS Sans Serif,8,1,0,1]
Caption="Выбрать"
link(onClick,12526950:doEvent1,[])
}
Add(Memo,7015120,735,217)
{
Left=10
Top=110
Width=775
Height=355
}
Add(Button,10700695,252,119)
{
Left=20
Top=75
Width=75
Height=25
Font=[MS Sans Serif,8,1,0,1]
Caption="Искать"
link(onClick,12701374:doSearch,[])
}
Add(StrList,1114565,511,98)
{
}
Add(ArrayEnum,16182243,525,210)
{
link(onItem,6570781:doCompare,[])
link(Array,1114565:Array,[])
}
Add(StrMask,6570781,679,210)
{
Point(doMask)
link(onTrue,7015120:doAdd,[])
}
Add(FormatStr,4242218,609,217)
{
DataCount=1
Mask="*%1* "
link(onFString,6570781:doMask,[])
link(Str1,707353:EditText,[])
}
Add(Hub,9027278,455,126)
{
link(onEvent1,1114565:doLoad,[])
link(onEvent2,5725266:doWork2,[])
}
Add(Hub,12526950,385,196)
{
OutCount=3
link(onEvent1,5725266:doWork3,[(487,202)])
link(onEvent2,4242218:doString,[(583,209)(583,223)])
link(onEvent3,16182243:doEnum,[])
}
Add(HubEx,5725266,483,133)
{
link(onEvent,7015120:doClear,[(720,139)(720,230)])
}
Add(Button,8670382,252,252)
{
Left=200
Top=80
Width=75
Font=[MS Sans Serif,8,1,0,1]
Caption="Сохранить"
link(onClick,14771025:doExecute,[])
}
Add(SDialog,14771025,609,252)
{
link(onExecute,7015120:doSave,[])
}