Make(delphi)
ver(4.02 build 178)
Add(MainForm,2953706,112,154)
{
 Width=644
 Height=723
 Caption="Creature his-file"
}
Add(Button,15714801,63,399)
{
 Left=245
 Top=410
 Width=170
 Font=[MS Sans Serif,10,1,0,1]
 TabOrder=-1
 Caption="Create his file"
 link(onClick,5960871:doEvent1,[])
}
Add(MTStrTbl,4642668,35,203)
{
 Left=5
 Top=40
 Width=625
 Height=360
 Name="tab"
 Columns=#8:id=60==1|4:name|8:nameinfo|7:tabname|7:tabinfo|
 ColumnWidth=135
 ColumnClick=1
 CheckBoxes=0
 Grid=0
 link(onColumnClick,9771476:doSort,[])
}
Add(DS_SQLite,3818256,672,91)
{
 Name="sqlite_db"
 WaitClose=0
}
Add(Hub,16556851,630,77)
{
 OutCount=5
 link(onEvent1,4385908:doClear,[(665,83)(665,55)])
 link(onEvent2,3818256:doOpen,[(658,90)(658,97)])
 link(onEvent4,13335692:doQuery,[(654,104)(654,174)])
 link(onEvent5,3818256:doClose,[(659,111)(659,104)])
}
Add(DSC_Query,13335692,672,168)
{
 DSManager="sqlite_db"
 link(onQuery,16685620:doRowAction,[])
 link(onError,11698211:doMessage,[])
 link(SQL,10245968:Value,[])
}
Add(MST_RowAction,16685620,777,168)
{
 MSTControl="tab"
}
Add(ListBox,5559522,469,427)
{
 Left=5
 Top=440
 Width=625
 Height=240
 link(Str,11892514:Result,[(475,415)(549,415)(549,597)(622,597)])
}
Add(MST_CheckBoxes,423117,168,273)
{
 MSTControl="tab"
}
Add(ArrayEnum,8422574,168,329)
{
 link(onItem,1972340:doEvent,[])
 link(onEndEnum,9672086:doEvent1,[(226,342)(226,454)])
 link(Array,423117:CheckBoxes,[])
}
Add(Hub,5960871,119,399)
{
 OutCount=3
 link(onEvent1,11669171:doClear,[])
 link(onEvent3,8422574:doEnum,[(154,419)(154,335)])
}
Add(MST_ArrayRows,4279017,287,273)
{
 MSTControl="tab"
}
Add(MT_MTArrayRW,1208385,287,336)
{
 link(onRead,3942816:doValue,[])
 link(Array,4279017:Strings,[])
 link(Index,2706737:Var3,[(300,317)])
}
Add(IndexToChanel,1972340,238,329)
{
 Point(Data)
 link(onEvent2,1208385:doRead,[])
 link(Data,2706737:Var2,[])
}
Add(GetDataEx,2706737,231,308)
{
 Angle=3
 link(Data,8422574:Index,[(210,317)(210,373)(181,373)])
}
Add(MT_MultiMem,3942816,343,336)
{
 From=1
 Count=3
 link(onData,9700698:doString,[(387,342)(387,380)(331,380)(331,398)])
}
Add(FormatStr,9700698,343,392)
{
 DataCount=4
 Mask="if (sys.extelement("%4", "%1")) sys.delelement("%4","%1");\r\nsys.addelement("%4","%1","%2","%3");\r\n"
 link(onFString,11669171:doStrCat,[])
 link(Str1,3942816:Value1,[])
 link(Str2,3942816:Value2,[])
 link(Str3,3942816:Value3,[])
 link(Str4,4247599:Var1,[(370,188)])
}
Add(FormatStr,13052025,406,448)
{
 DataCount=1
 Mask="function run()\r\n{\r\n%1}"
 link(onFString,5559522:doText,[])
 link(Str1,7669672:Var2,[])
}
Add(StrCat,11669171,406,392)
{
 Point(doClear)
 link(Str1,7669672:Var3,[(412,376)(446,376)(446,436)])
}
Add(GetDataEx,7669672,399,427)
{
 link(Data,11669171:Result,[])
}
Add(Hub,9672086,252,448)
{
 OutCount=4
 link(onEvent1,13052025:doString,[])
 link(onEvent2,3843547:doString,[(402,461)(402,489)])
 link(onEvent3,11892514:doStrCat,[(364,468)(364,559)])
 link(onEvent4,5559522:doSave,[(452,475)(452,468)])
}
Add(MST_SortInCol,9771476,133,210)
{
 MSTControl="tab"
}
Add(FileSearch,6557532,245,112)
{
 Ext=""
 SubDir=1
 FullName=1
 Include=1
 link(onSearch,9835692:doEvent1,[])
 link(onEndSearch,7242704:doWork2,[(292,125)(292,174)])
}
Add(StrCat,3983692,189,112)
{
 Str2="\Elements\"
 link(onStrCat,6557532:doSearch,[])
}
Add(ComboBox,14697167,497,119)
{
 Left=523
 Top=10
 Width=105
 Height=21
 Font=[MS Sans Serif,8,1,8388608,1]
 Point(EditText)
 link(onClick,7242704:doWork3,[(541,132)(541,174)])
}
Add(Label,12544135,497,70)
{
 Left=473
 Top=10
 Width=40
 Height=21
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Packs"
 AutoSize=1
 Alignment=1
}
Add(FormatStr,1148800,504,210)
{
 Mask="%1%2\Elements.db"
 Point(FString)
 link(onFString,16556851:doEvent1,[(602,216)(602,83)])
 link(Str1,5742163:Var3,[(510,181)])
 link(Str2,4247599:Var2,[])
}
Add(GetDataEx,5742163,217,172)
{
 Angle=3
 link(Data,3983692:Result,[(195,181)])
}
Add(MST_Clear,4385908,672,49)
{
 MSTControl="tab"
}
Add(HubEx,7242704,483,161)
{
 Angle=1
 link(onEvent,1148800:doString,[(487,216)])
}
Add(Memory,10245968,672,126)
{
 Default=String(SELECT elements.id,elements.name,elements.info,groups.name,groups.info FROM elements,groups WHERE substr(elements.name, 1, 1) <> '*' AND elements.tab = groups.id   AND  groups.name <>"")
}
Add(InfoTip,4054827,0,7)
{
 Info=#184:SELECT elements.id,elements.name,elements.info,groups.name,groups.info FROM elements,groups WHERE substr(elements.name, 1, 1) <> '*' AND elements.tab = groups.id  AND  groups.name <>""|
 HAlign=0
 Width=946
 Height=18
}
Add(Message,11698211,728,182)
{
}
Add(Hub,9835692,301,112)
{
 link(onEvent1,13128576:doString,[(325,118)(325,76)])
 link(onEvent2,7358399:doCompare,[])
}
Add(FileTools,3948324,385,49)
{
 link(onEnd,6431402:doValue,[])
}
Add(Memory,6431402,434,49)
{
}
Add(If_else,7358399,434,119)
{
 Op2=Integer(1)
 link(onTrue,14697167:doAdd,[])
 link(Op1,6431402:Value,[])
}
Add(GetDataEx,4247599,504,179)
{
 link(Data,14697167:EditText,[])
}
Add(Edit,10249511,112,105)
{
 Left=10
 Top=10
 Width=430
 Height=22
 Text=""
 link(onChange,7947902:doEvent1,[])
}
Add(Button,4563185,14,105)
{
 Left=445
 Top=10
 Width=20
 Height=22
 Caption="..."
 link(onClick,1913109:doBrowse,[])
}
Add(Browse,1913109,63,105)
{
 link(onBrowse,10249511:doText,[])
 link(onCancel,2953706:doClose,[(103,118)(103,181)])
}
Add(FormatStr,13128576,336,70)
{
 Mask="%1%2\Elements.db"
 link(onFString,3948324:doFileExists,[])
 link(Str1,5742163:Var1,[(342,58)(230,58)])
}
Add(Hub,7947902,154,105)
{
 link(onEvent1,14697167:doClear,[(174,111)(174,132)])
 link(onEvent2,3983692:doStrCat,[])
}
Add(Time,9159466,616,427)
{
 Format="YMD"
}
Add(FormatStr,3843547,616,483)
{
 Mask="%1%2"
 Point(FString)
 link(onFString,2424230:doEvent,[])
 link(Str1,9159466:FormatTime,[])
 link(Str2,4247599:Var3,[(629,188)])
}
Add(Dir,5809140,742,483)
{
}
Add(Debug,2424230,700,483)
{
}
Add(InfoTip,16350755,553,420)
{
 Info=#21:Папка для копирования|
 Font=[MS Sans Serif,8,1,255,1]
 VAlign=2
 Width=148
 Height=116
 Margin=3
}
Add(InfoTip,7590058,14,28)
{
 Info=#20:Исходная папка HiAsm|
 Font=[MS Sans Serif,8,1,255,1]
 Width=211
 Height=165
 Margin=5
}
Add(InfoTip,6606257,231,28)
{
 Info=#23:Создание списка пакетов|
 Font=[MS Sans Serif,8,1,255,1]
 Width=351
 Height=165
}
Add(InfoTip,11546823,595,28)
{
 Info=#26:Заполнение таблицы данными|
 Font=[MS Sans Serif,8,1,255,1]
 Width=225
 Height=193
}
Add(InfoTip,8071675,42,259)
{
 Info=#18:Создание his-файла|
 Font=[MS Sans Serif,8,1,255,1]
 VAlign=2
 Width=477
 Height=242
 Margin=5
}
Add(StrCat,11892514,616,553)
{
 Str2="\install.his"
 link(Str1,3843547:FString,[])
}