Add(MainForm,3063237,182,196)
{
 Width=621
 Height=682
}
Add(MTStrTbl,15043066,224,196)
{
 Width=615
 Height=200
 Name="MTStrTbl"
}
Add(MST_DB,3396977,441,259)
{
 MSTControl="MTStrTbl"
}
Add(Button,9736692,182,259)
{
 Left=230
 Top=200
 Width=140
 TabOrder=-1
 Caption="Читать базу элементов"
 link(onClick,8751180:doEvent1,[])
}
Add(PointHint,613683,161,238)
{
 Info=#58:Пример чтения базы данных в таблицу и вывод в формате HTML|
 Transparent=0
 VAlign=0
 Width=344
 Height=179
}
Add(Registry,9358416,273,259)
{
 HKey=1
 Key="Software\hiasm"
 Value="InstallPath"
 NotEmpty=1
 link(onRead,13303169:doStrCat,[])
}
Add(StrCat,13303169,315,259)
{
 Str2="\Elements\Delphi\Elements.db"
 link(onStrCat,219028:doOpen,[])
}
Add(DS_SQLite,219028,357,259)
{
 Name="sqlite"
 WaitClose=0
 link(onOpen,7042543:doQuery,[])
}
Add(DSC_Query,7042543,399,259)
{
 SQL="SELECT * FROM elements;"
 DSManager="sqlite"
 link(onQuery,3396977:doAddRow,[])
 link(onColumns,3396977:doAddCols,[])
}
Add(WebBrowser,5959888,441,308)
{
 Top=225
 Width=615
 Height=250
 Point(doFromText)
}
Add(Memo,14045700,441,357)
{
 Left=-5
 Top=480
 Width=620
 Height=165
 ScrollBars=2
}
Add(Hub,8751180,231,259)
{
 link(onEvent1,9358416:doRead,[])
 link(onEvent2,13908231:doTabToHTML,[(262,272)(262,356)])
}
Add(MST_HTML,13908231,357,350)
{
 TitleText="Пример вывода таблицы MTStrTbl в формате HTML"
 TitleFont=[Arial Narrow,12,1,8388608,204]
 TitleBorderWeight=2
 TitleBackColor=65535
 NoteText="Сделано в HiAsm-e"
 NoteFont=[Arial Narrow,12,1,8388608,204]
 NoteBorderWeight=2
 NoteBackColor=12040191
 CodePage="windows-1251"
 MSTControl="MTStrTbl"
 link(onTabToHTML,10101583:doEvent1,[])
}
Add(Hub,10101583,406,350)
{
 link(onEvent1,5959888:doFromText,[(430,356)(430,342)])
 link(onEvent2,14045700:doText,[(430,363)(430,384)])
}