Add(SimpleForm,2953706,35,133)
{
 Width=394
 Height=273
 Point(Handle)
 link(onCreate,9796038:doString,[])
}
Add(InlineCode,11784788,378,196)
{
 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,1967927:Handle,[])
}
Add(Button,8427120,315,196)
{
 Left=15
 Top=25
 Width=75
 Caption="Save"
 link(onClick,11784788:doExportPDF,[])
}
Add(FormatStr,9796038,273,133)
{
 Mask="%1;"%2""
 link(onFString,1967927:doAdd,[])
 link(Str1,12823509:Value,[])
 link(Str2,8755437:Text,[(286,111)(335,111)])
}
Add(StrList,8755437,329,56)
{
 Strings=#500:aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa|
}
Add(Memory,12823509,273,56)
{
 Default=String(1)
}
Add(SDialog,2267733,182,182)
{
 Filter="Табличный документ (*.csv)|*.csv"
 Title="Сохранение"
 FileName="Табличный документ.csv"
 link(onExecute,1967927:doSave,[(317,188)(317,160)])
}
Add(Button,6866471,112,182)
{
 Left=15
 Top=55
 Width=75
 Caption="Save .csv"
 link(onClick,2267733:doExecute,[])
}
Add(StringTable,1967927,364,133)
{
 Left=110
 Top=25
 Width=265
 Height=200
 Columns=#4:Name|5:Value|
 Point(Handle)
 Point(doSave)
}