Make(delphi)
Pos(0,0)
Add(MainForm,15746400,252,56)
{
 Left=20
 Top=105
 Width=671
 Height=417
 Caption="Анализ файла SHA "
 BorderStyle=1
 WindowsState=2
 link(onCreate,8353132:doWork1,[(313,97)(313,111)])
}
Add(ChildGroupBox,11501594,42,98)
{
 link(onEvent1,12535075:doEvent1,[])
}
BEGIN_SDK
  Add(EditMulti,3200357,3,3)
  {
   EventCount=1
   WorkCount=1
   VarCount=1
   Width=188
   Height=102
   link(doWork1,6701290:doText,[(15,9)(15,69)])
   link(Var1,13941357:Text,[(9,76)(139,76)])
  }
  Add(GroupBox,3022400,84,63)
  {
   Width=663
   Height=55
   Align=2
   Font=[Tahoma,8,1,8388608,204]
   Caption="Выбор sha файла для анализа"
   Point(doVisible)
  }
  Add(Button,4293951,35,14)
  {
   Left=10
   Top=20
   Caption="Выбрать "
   link(onClick,1711512:doExecute,[])
  }
  Add(Edit,13941357,133,14)
  {
   Left=75
   Top=20
   Width=380
   Text=""
   link(onChange,3200357:onEvent1,[(178,20)(178,9)])
  }
  Add(ODialog,1711512,84,14)
  {
   Filter="Файлы HiAsm (*.sha)|*.sha"
   StartDir=""
   FileName=""
   link(onExecute,13941357:doText,[])
  }
  Add(Label,6701290,28,63)
  {
   Left=470
   Top=25
   Font=[Tahoma,8,1,8388736,204]
   Caption=""
  }
END_SDK
Add(ChildGroupBox,15562963,203,105)
{
 link(onEvent1,11501594:doWork1,[(258,111)(258,171)(32,171)(32,104)])
 link(onEvent2,8353132:doWork2,[(289,118)(289,118)])
 link(onEvent3,30931:doWork1,[(282,125)(282,174)])
}
BEGIN_SDK
  Add(EditMulti,9886659,21,3)
  {
   EventCount=3
   WorkCount=3
   VarCount=1
   Width=286
   Height=312
   link(doWork1,14291296:doAdd,[(63,9)(63,13)])
   link(doWork2,1798024:doEvent1,[(31,16)(31,20)])
   link(doWork3,6140691:doEvent1,[(30,23)(30,111)])
   link(Var1,4638888:Value,[(27,293)(209,293)])
  }
  Add(GroupBox,11725373,35,217)
  {
   Left=473
   Width=190
   Height=333
   Align=3
   Font=[Tahoma,8,1,8388608,204]
   Caption="Данные о компонентах"
   Point(doVisible)
  }
  Add(FormatStr,904695,196,105)
  {
   DataCount=1
   Mask="Всего использовано компонентов:    %1"
   link(onFString,9886659:onEvent1,[(253,111)(253,9)])
   link(Str1,4937868:Var3,[(202,79)])
  }
  Add(MultiElementEx,1263652,105,119)
  {
   link(Data,14291296:Array,[(111,71)(132,71)])
   link(onFString,5009603:doAdd,[(166,125)(166,153)])
   link(End,4937868:Var1,[(118,79)])
  }
  BEGIN_SDK
    Add(EditMultiEx,11611971,3,3)
    {
     WorkCount=#6:doRead|7:doWork1|5:doFor|
     EventCount=#9:onFString|
     DataCount=#4:Data|3:End|
     link(doRead,2145612:doRead,[(54,9)(54,55)])
     link(doWork1,317383:doWork1,[(291,16)])
     link(doFor,16086515:doFor,[(12,23)(12,104)])
    }
    Add(Counter,6645725,308,21)
    {
     Min=1
     Max=10000
     Default=1
    }
    Add(HubEx,145727,259,112)
    {
     link(onEvent,8828062:doString,[])
    }
    Add(Memory,11617186,245,49)
    {
    }
    Add(If_else,3706453,119,98)
    {
     link(onTrue,6645725:doNext,[(214,104)(214,27)])
     link(onFalse,3040790:doEvent1,[(177,111)(177,125)])
     link(Op2,6450012:Var1,[(132,86)])
    }
    Add(GetDataEx,15518821,56,28)
    {
     link(Data,11611971:Data,[(69,18)(9,18)])
    }
    Add(GetDataEx,6450012,238,77)
    {
     link(Data,11617186:Value,[(251,78)(251,85)])
    }
    Add(FormatStr,8828062,301,119)
    {
     Mask="%1;%2"
     link(onFString,11611971:onFString,[(343,125)(343,-7)(293,-7)(293,9)])
     link(Str1,6450012:Var3,[(307,86)])
     link(Str2,6645725:Count,[(314,79)(314,79)])
    }
    Add(Hub,3040790,182,119)
    {
     OutCount=3
     link(onEvent1,145727:doWork2,[(259,125)])
     link(onEvent2,3034097:doWork3,[(235,132)])
     link(onEvent3,317383:doWork3,[(291,139)])
    }
    Add(ArrayRW,2145612,105,49)
    {
     Index=Integer(0)
     link(onRead,3034097:doWork2,[(231,55)])
     link(Array,15518821:Var3,[(111,37)])
    }
    Add(HubEx,3034097,231,42)
    {
     link(onEvent,11617186:doValue,[])
    }
    Add(HubEx,317383,287,35)
    {
     link(onEvent,6645725:doReset,[(302,48)(302,41)])
    }
    Add(ArrayRW,15115176,70,98)
    {
     link(onRead,3706453:doCompare,[(107,104)(107,104)])
     link(Array,15518821:Var2,[(76,70)(69,70)])
    }
    Add(For,16086515,21,98)
    {
     Start=1
     IncludeEnd=1
     link(onEvent,15115176:doRead,[])
     link(onStop,145727:doWork3,[(59,111)(59,159)(263,159)])
     link(End,11611971:End,[(34,51)(16,51)])
    }
  END_SDK
  Add(MultiElementEx,4638888,203,238)
  {
   link(Data,5009603:Select,[(209,205)(209,205)])
   link(onData,9886659:onEvent3,[(264,244)(264,23)])
   link(onEventData,9886659:onEvent2,[(278,251)(278,16)])
  }
  BEGIN_SDK
    Add(EditMultiEx,8690783,3,3)
    {
     WorkCount=#7:doEvent|
     EventCount=#6:onData|11:onEventData|
     VarCount=#5:Value|
     DataCount=#4:Data|
     Width=181
     Height=179
     link(Value,4415824:Value,[(9,167)(111,167)])
     link(doEvent,569420:doEvent,[(19,9)(19,76)])
    }
    Add(GetDataEx,10082763,28,42)
    {
     link(Data,8690783:Data,[(41,7)(9,7)])
    }
    Add(Memory,4415824,105,119)
    {
     link(onData,8690783:onData,[(158,125)(158,9)])
    }
    Add(IndexToChanel,569420,49,70)
    {
     link(onEvent1,5926647:doData,[])
     link(onEvent2,11968558:doData,[(91,83)(91,110)(25,110)(25,125)])
    }
    Add(DoData,11968558,35,119)
    {
     link(onEventData,4415824:doValue,[])
     link(Data,10082763:Var2,[(41,87)(41,87)])
    }
    Add(DoData,5926647,105,70)
    {
     Data=String()
     link(onEventData,8690783:onEventData,[(150,76)(150,16)])
     link(Data,10082763:Var3,[(111,51)])
    }
  END_SDK
  Add(StringTable,5009603,196,147)
  {
   Left=2
   Top=15
   Width=166
   Height=323
   Align=5
   Columns=#14:Компоненты=100|9:Колич.=50|
   Grid=0
   Redaction=1
   ColumnClick=1
   Point(doSort)
   Point(onColumnClick)
   Point(onMouseUp)
   Point(onMouseDown)
   link(onColumnClick,5009603:doSort,[(235,160)(235,205)(190,205)(190,188)])
   link(onMouseDown,14801287:doPopupHere,[(238,174)(238,215)(144,215)(144,251)])
  }
  Add(Hub,1798024,42,14)
  {
   OutCount=3
   link(onEvent1,14291296:doClear,[(89,20)(89,20)])
   link(onEvent2,1263652:doWork1,[(90,27)(90,132)])
   link(onEvent3,5009603:doClear,[(176,34)(176,160)])
  }
  Add(Hub,6140691,35,105)
  {
   OutCount=4
   link(onEvent1,904695:doString,[(149,111)(149,111)])
   link(onEvent2,14291296:doSort,[(96,118)(96,55)])
   link(onEvent3,1263652:doRead,[(83,125)(83,125)])
   link(onEvent4,1263652:doFor,[(75,132)(75,139)])
  }
  Add(StrList,14291296,112,7)
  {
   Point(doSort)
  }
  Add(GetDataEx,4937868,112,70)
  {
   link(Data,14291296:Count,[(125,63)(125,63)])
  }
  Add(PopupMenu,14801287,154,238)
  {
   Menu=#25:Дополнительная информация|15:Просмотр иконки|
   link(onClick,4638888:doEvent,[])
  }
END_SDK
Add(ChildGroupBox,12969953,154,105)
{
 link(onEvent1,15562963:doWork1,[])
 link(onEvent2,15562963:doWork2,[])
 link(onEvent3,15562963:doWork3,[])
 link(onEvent4,8353132:doWork3,[(305,132)(305,125)])
}
BEGIN_SDK
  Add(EditMulti,11027335,3,3)
  {
   EventCount=4
   WorkCount=1
   Width=426
   Height=375
   link(doWork1,4748272:doEvent1,[(24,9)(24,55)])
  }
  Add(GroupBox,956611,35,7)
  {
   Width=663
   Height=333
   Align=5
   Font=[Tahoma,8,1,8388608,204]
   Caption="Содержание SHA файла "
   Point(doVisible)
  }
  Add(Memo,16508717,98,42)
  {
   Left=160
   Top=160
   Align=5
   Color=15987699
   ScrollBars=3
   ReadOnly=0
  }
  Add(ArrayEnum,13802963,112,161)
  {
   link(onItem,3064045:doSearch,[])
   link(onEndEnum,11027335:onEvent3,[(153,174)(153,207)(268,207)(268,23)])
   link(Array,1812761:Var2,[])
  }
  Add(BlockFind,3064045,182,161)
  {
   IncludeBlock=1
   StartBlock="Add("
   EndBlock=","
   link(onSearch,11027335:onEvent1,[(258,167)(258,9)])
   link(Replace,16095000:Value,[(195,146)(195,146)])
  }
  Add(Hub,4748272,35,49)
  {
   OutCount=5
   link(onEvent1,11027335:onEvent2,[(79,55)(79,16)])
   link(onEvent2,16508717:doClear,[(89,62)(89,55)])
   link(onEvent3,16508717:doLoad,[(89,69)(89,76)])
   link(onEvent4,1650311:doRead,[(84,76)(84,111)])
   link(onEvent5,13802963:doEnum,[(77,83)(77,167)])
  }
  Add(Memory,16095000,189,98)
  {
   Default=Integer(0)
  }
  Add(BlockFind,16098270,182,49)
  {
   IncludeBlock=1
   StartBlock="Make("
   EndBlock=")"
   link(onSearch,9631815:doModify,[(261,55)(247,55)])
  }
  Add(ArrayRW,1650311,133,105)
  {
   Index=Integer(0)
   link(onRead,16098270:doSearch,[(173,111)(173,55)])
   link(Array,1812761:Var3,[(139,100)])
  }
  Add(GetDataEx,1812761,105,91)
  {
   link(Data,16508717:Array,[])
  }
  Add(StrCase,9631815,280,49)
  {
   Type=1
   link(onModify,11027335:onEvent4,[(384,55)(384,30)])
  }
END_SDK
Add(Hub,12535075,91,98)
{
 link(onEvent1,771386:doPart,[(138,104)(138,55)])
 link(onEvent2,12969953:doWork1,[(131,111)(131,111)])
}
Add(FilePart,771386,154,49)
{
 NameWOExt=1
 link(onName,9579598:doString,[(198,62)(198,62)])
}
Add(FormatStr,9579598,203,56)
{
 DataCount=1
 Mask="Анализ файла  %1 "
 link(onFString,15746400:doCaption,[])
}
Add(Version,15753844,42,49)
{
 Version="1.2"
 Description="Вывод статистики о SHA файле "
 InternalName="Statistika1 "
 E-mail="tad@zmail.ru"
}
Add(ChildGroupBox,8353132,329,105)
{
 link(onEvent2,5632042:doShellExec,[(375,118)(375,229)(32,229)(32,195)])
}
BEGIN_SDK
  Add(EditMulti,1454150,3,3)
  {
   EventCount=2
   WorkCount=3
   VarCount=1
   Width=650
   Height=501
   link(doWork1,5796048:doRead,[(21,9)(21,83)])
   link(doWork2,11569477:doEvent1,[(15,16)(15,202)])
   link(doWork3,2818555:doString,[(8,23)(8,139)])
   link(Var1,2290183:Var1,[(9,184)])
  }
  Add(GroupBox,354401,252,21)
  {
   Top=333
   Width=663
   Align=4
   Font=[Tahoma,8,1,8388608,204]
   Caption="Ввод пути к программе HiAsm"
   Point(doVisible)
  }
  Add(Button,1805623,28,21)
  {
   Left=10
   Top=20
   Caption="Обзор"
   link(onClick,7037463:doBrowse,[(65,27)(65,27)])
  }
  Add(Label,6701290,196,21)
  {
   Left=80
   Top=25
   Font=[Tahoma,8,1,8388736,204]
   Caption=""
  }
  Add(Browse,7037463,70,21)
  {
   link(onBrowse,4748784:doEvent1,[(110,27)(110,27)])
  }
  Add(Ini,5796048,119,77)
  {
   FileName="statistika.ini"
   Section="Base"
   Key="way"
   Type=1
   link(onResult,9332572:doWork3,[(179,83)])
   link(Value,1069332:Var1,[(146,65)])
  }
  Add(GetDataEx,1069332,189,56)
  {
   link(Data,6701290:Caption,[])
  }
  Add(Hub,4748784,119,21)
  {
   link(onEvent1,9332572:doWork2,[(175,27)])
   link(onEvent2,5796048:doWrite,[(167,34)(167,58)(109,58)(109,90)])
  }
  Add(HubEx,9332572,175,14)
  {
   link(onEvent,6701290:doText,[])
  }
  Add(SQLite_DB,3231149,161,217)
  {
   link(onOpen,4751054:doString,[(205,223)(205,265)])
   link(FileName,2290183:Var2,[])
  }
  Add(Hub,11569477,35,196)
  {
   OutCount=4
   link(onEvent2,13791059:doSplit,[(79,209)(79,202)])
   link(onEvent3,2468462:doString,[(240,216)(240,300)])
  }
  Add(StrPart,13791059,91,196)
  {
   Char=";"
   link(onPart,688993:doValue,[(147,209)(147,167)])
  }
  Add(Memory,688993,224,161)
  {
   link(onData,3231149:doOpen,[(267,167)(267,198)(151,198)(151,223)])
  }
  Add(FormatStr,4751054,217,259)
  {
   DataCount=1
   Mask="SELECT name, tab FROM elements WHERE id='%1';"
   link(onFString,13752338:doQuery,[(259,265)(259,299)(151,299)(151,314)])
   link(Str1,10482146:Data1,[(223,251)(230,251)])
  }
  Add(SQLite_Query,13752338,161,308)
  {
   link(onQuery,7923535:doStr,[])
   link(dbHandle,7919010:Data1,[])
  }
  Add(Memory,6682498,161,133)
  {
   link(onData,1454150:onEvent1,[(423,139)(423,9)])
  }
  Add(MT_String,7923535,210,308)
  {
   link(onResult,4517348:doSplit,[])
  }
  Add(StrPart,4517348,252,308)
  {
   Char=";"
   link(onSplit,9025697:doValue,[(296,314)(296,328)])
   link(onPart,6918125:doValue,[(352,321)(352,230)])
  }
  Add(FormatStr,2468462,413,294)
  {
   DataCount=4
   Mask="Информация о компоненте:\n\r\n\rid компонента - %1\n\rназвание компонента - %2\n\rнаименование группы - %3\n\rописание группы - %4 "
   link(onFString,9770012:doMessage,[])
   link(Str1,10482146:Data2,[(419,268)(237,268)])
   link(Str2,6918125:Value,[])
   link(Str3,15985935:Value,[(433,270)(574,270)(574,484)(594,484)])
   link(Str4,2736035:Value,[(440,284)(474,284)(474,481)(510,481)])
  }
  Add(Memory,6918125,420,224)
  {
  }
  Add(GetData,10482146,224,210)
  {
   link(Data,688993:Value,[])
  }
  Add(SQLite_Query,3348645,357,434)
  {
   link(onQuery,7957180:doStr,[])
   link(dbHandle,7919010:Data2,[(363,363)(174,363)])
  }
  Add(FormatStr,9310420,308,434)
  {
   DataCount=1
   Mask="SELECT name, info FROM groups WHERE pos='%1';"
   link(onFString,3348645:doQuery,[(352,440)(338,440)])
   link(Str1,9025697:Value,[(314,370)(314,370)])
  }
  Add(Memory,9025697,308,322)
  {
   link(onData,9310420:doString,[(350,328)(350,369)(256,369)(256,440)])
  }
  Add(GetDataEx,2290183,154,175)
  {
   link(Data,6682498:Value,[])
  }
  Add(GetData,7919010,161,259)
  {
   link(Data,3231149:dbHandle,[])
  }
  Add(StrPart,8272034,455,434)
  {
   Char=";"
   link(onSplit,2736035:doValue,[])
   link(onPart,15985935:doValue,[(516,447)(516,447)])
  }
  Add(MT_String,7957180,406,434)
  {
   link(onResult,8272034:doSplit,[])
  }
  Add(Memory,2736035,504,434)
  {
  }
  Add(Memory,15985935,588,441)
  {
  }
  Add(Message,9770012,483,294)
  {
   Caption="Дополнительная информация"
   Icon=4
   link(onMessage,3241560:doCompare,[])
  }
  Add(If_else,3241560,532,294)
  {
   Op2=String(1)
   link(onTrue,3231149:doClose,[(588,300)(588,204)(156,204)(156,230)])
  }
  Add(FormatStr,2818555,105,133)
  {
   Mask="%1\Elements\%2\Elements.db"
   link(onFString,6682498:doValue,[(173,139)(152,139)])
   link(Str1,1069332:Var2,[(111,112)(202,112)])
  }
  Add(Button,9923778,602,14)
  {
   Left=600
   Top=15
   Caption="Запуск "
   link(onClick,1454150:onEvent2,[(643,20)(643,16)])
  }
END_SDK
Add(ChildForm,30931,329,168)
{
 @Hint=#14:Дочерняя форма|
 link(Data1,8353132:Var1,[(335,156)(335,156)])
 link(Data2,15562963:Var1,[(342,146)(209,146)])
}
BEGIN_SDK
  Add(EditMulti,49448,3,3)
  {
   WorkCount=1
   DataCount=2
   Width=364
   Height=304
   link(doWork1,10523438:doEvent1,[(19,9)(19,132)])
  }
  Add(MainForm,74041,112,42)
  {
   Left=593
   Top=130
   Width=218
   Height=162
   Caption="Просмотр иконки"
   BorderStyle=3
   TaskBar=1
   Visible=1
   Point(doVisible)
  }
  Add(PictureStream,56052,259,252)
  {
   link(onLoad,71505:doLoad,[])
   link(FileName,9731411:Value,[])
  }
  Add(Memory,9731411,259,203)
  {
  }
  Add(Image,71505,315,252)
  {
   Left=80
   Top=35
   Width=50
   Height=45
  }
  Add(StrPart,3819897,98,140)
  {
   Char=";"
   link(onPart,15962802:doString,[(149,153)(149,153)])
   link(Str,49448:Data2,[(104,111)(16,111)])
  }
  Add(FormatStr,15962802,168,147)
  {
   Mask="%1.ico"
   link(onFString,12711586:doValue,[])
  }
  Add(Hub,10523438,28,126)
  {
   OutCount=5
   link(onEvent1,74041:doVisible,[(72,132)(72,76)])
   link(onEvent2,13071276:doReplace,[(79,139)(79,97)])
   link(onEvent3,3819897:doSplit,[(79,146)(79,146)])
   link(onEvent4,1771383:doStrCat,[(89,153)(89,209)])
   link(onEvent5,56052:doLoad,[(73,160)(73,258)])
  }
  Add(StrCat,1771383,217,203)
  {
   link(onStrCat,9731411:doValue,[])
   link(Str1,12345806:Value,[])
   link(Str2,12711586:Value,[(230,191)(237,191)])
  }
  Add(Replace,13071276,161,91)
  {
   SubStr="Elements.db"
   DestStr="icon\"
   link(onReplace,12345806:doValue,[])
   link(Str,49448:Data1,[(167,29)(9,29)])
  }
  Add(Memory,12345806,217,91)
  {
  }
  Add(Memory,12711586,231,147)
  {
  }
END_SDK
Add(WinExec,5632042,42,182)
{
 link(FileName,11501594:Var1,[])
}