INSERT INTO "elements" VALUES(321,'PaintBox','Рисование',1,33,'');
INSERT INTO "elements" VALUES(322,'RGN_OutlinePicture','Контурный регион',5,15,NULL);

Add(MainForm,2953706,126,175)
{
 Width=698
 Height=510
}
Add(ChildGroupBox,13446297,126,126)
{
 link(onEvent1,14488523:doQuery,[])
}
BEGIN_SDK
  Add(EditMulti,13346047,21,21)
  {
   EventCount=1
   VarCount=1
   Width=538
   Height=312
   link(Var1,8598513:dbHandle,[(27,270)(384,270)])
  }
  Add(GroupBox,12673051,35,105)
  {
   Left=10
   Top=5
   Width=668
   Caption="Path to Elements.db"
  }
  Add(Button,11958215,329,175)
  {
   @Color=16766164
   Left=530
   Top=20
   Width=60
   Height=21
   Font=[Tahoma,9,1,0,204]
   TabOrder=-1
   Caption="Open"
   link(onClick,8598513:doOpen,[])
  }
  Add(Edit,11123252,378,133)
  {
   Left=80
   Top=20
   Width=445
   Color=15793151
   Font=[Tahoma,8,0,0,204]
   Text="Elements\Delphi\Elements.db"
   link(onChange,117125:doWrite,[(416,139)(416,76)(261,76)(261,97)])
  }
  Add(Button,10284059,147,252)
  {
   @Color=16766164
   Left=595
   Top=20
   Width=60
   Height=21
   Font=[Tahoma,9,1,0,204]
   TabOrder=-1
   Caption="Close"
   link(onClick,11969734:doWork2,[])
  }
  Add(SQLite_DB,8598513,378,175)
  {
   link(onOpen,13346047:onEvent1,[(484,181)(484,27)])
   link(onError,6373040:doWork,[])
   link(FileName,11123252:Text,[])
  }
  Add(Registry,117125,273,84)
  {
   HKey=1
   Key="software\hiasm_prog"
   Value="dbname"
   link(onRead,11123252:doText2,[(342,90)(342,146)])
  }
  Add(DropFile,16683987,273,133)
  {
   link(onDropFile,14004071:doWork2,[])
  }
  Add(HubEx,14004071,315,133)
  {
   link(onEvent,11123252:doText,[])
  }
  Add(Button,14099037,147,168)
  {
   @Color=16766164
   Left=5
   Top=20
   Width=65
   Height=21
   Font=[Tahoma,9,1,0,204]
   TabOrder=-1
   Caption="Browse"
   link(onClick,14393362:doEvent1,[])
  }
  Add(ODialog,2567534,273,175)
  {
   Filter="SQLite files|*.db|New Format|*.db3|All|*.*"
   FileName=""
   link(onExecute,14004071:doWork3,[(319,181)])
  }
  Add(Hub,15325790,322,252)
  {
   @Color=9342719
   OutCount=3
   link(onEvent2,8598513:doClose,[(367,265)(367,188)])
  }
  Add(LineBreakEx,6373040,420,182)
  {
   @Color=16748287
   Caption="Err"
  }
  Add(Hub,14393362,210,168)
  {
   @Color=9342719
   link(onEvent1,11969734:doWork1,[(235,174)])
   link(onEvent2,2567534:doExecute,[])
  }
  Add(HubEx,11969734,231,252)
  {
   link(onEvent,15325790:doEvent1,[])
  }
END_SDK
Add(StringTable,15840211,532,119)
{
 Left=10
 Top=70
 Width=670
 Height=395
 Columns=#8:Name=150|23:Hash in Elements.db=250|13:Hash Fact=250|
 Grid=0
 Point(Strings)
}
Add(SQLite_Query,14488523,175,126)
{
 SQL="SELECT name,hash from elements where substr(name,1,1)<>'*'"
 link(onQuery,16182981:doStr,[])
}
Add(MT_String,16182981,224,126)
{
 link(onResult,11238193:doValue,[])
}
Add(MultiStrPart,12911472,322,126)
{
 link(onSplit,8318242:doString,[])
}
Add(FormatStr,8318242,371,126)
{
 DataCount=1
 Mask="elements\delphi\code\hi%1.pas"
 link(onFString,14830115:doFileHashsum,[])
 link(Str1,12911472:Part1,[(377,114)(364,114)(364,168)(328,168)])
}
Add(Hashsum,14830115,420,119)
{
 link(onResult,5134326:doStrCatDlm,[])
}
Add(Memory,11238193,273,126)
{
 link(onData,12911472:doSplit,[])
}
Add(StrCatDelim,5134326,476,119)
{
 Delimiter=";"
 link(onStrCatDlm,15840211:doAdd,[])
 link(Str1,11238193:Value,[(482,107)(466,107)(466,177)(279,177)])
}