Add(InlineCode,11784788,567,357)
{
 WorkPoints=#11:doExportPDF|
 DataPoints=#8:HandleLV|7:FilePDF|7:StrText|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|0:|4:type|28: THiAsmClass = class(TDebug)|13:   private   |0:|9:   public|0:|18:   lvHwnd:Longint;|16:   fname:string;|22:   HandleLV:THI_Event;|21:   FilePDF:THI_Event;|21:   StrText:THI_Event;|6:      |49:   procedure doExportPDF(var dt:TData; idx:Word);|0:|5: end;|1: |79:procedure ExportListView(hwnd:THandle; name:PChar); stdcall external 'elv.dll';|0:|14:implementation|0:|0:|0:|58:procedure THiAsmClass.doExportPDF(var dt:TData; idx:Word);|5:begin|38:  lvHwnd := ReadInteger(dt, HandleLV);|19:  //_debug(lvHwnd);|32:  ExportListView(lvHwnd,'demo');|4:end;|0:|4:end.|
 link(HandleLV,663176:Handle,[])
}
Add(Button,8427120,224,266)
{
 Left=15
 Top=10
 link(onClick,11780011:doFor,[])
}
Add(For,11780011,301,266)
{
 link(onEvent,2051297:doOpen,[])
 link(onStop,11784788:doExportPDF,[(355,279)(355,363)])
}
Add(SQLite_Query,10515015,434,266)
{
 SQL="SELECT \r\ndata1 AS Дата,\r\nvrem1 AS Время,\r\notk1 AS От_кого,\r\notk2 AS Банк_спис,\r\nsumm2 AS Сумма_на_счёте,\r\nsumm1 AS Сумма_пер,\r\nkom1 AS Кому,\r\nkom2 AS Банк_получ,\r\nsumm3 AS Сумма_на_счёте,\r\nprim1 AS Дополнение\r\nFROM note"
 link(onQuery,10205519:doStr,[])
 link(onColumns,13622445:doEnum,[(482,279)(482,314)])
}
Add(MT_String,10205519,497,266)
{
 link(onResult,663176:doAdd,[])
}
Add(MT_Enum,13622445,497,308)
{
 link(onItem,663176:doAddColumn,[(541,314)(541,307)])
}
Add(StringTable,663176,553,266)
{
 Top=47
 Width=761
 Height=324
 Align=4
 StrDelimiter="\9"
 Grid=0
 ClearAll=0
 Redaction=1
 Point(doAddColumn)
 Point(Handle)
}
Add(SQLite_DB,2051297,378,266)
{
 FileName="D:\\Сайты\\Проба\\Пр1\\Органик\\notebook3.db"
 link(onOpen,10515015:doQuery,[])
}