/
uwlxprototypes.pas
42 lines (33 loc) · 2.21 KB
/
uwlxprototypes.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
unit uwlxprototypes;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, WlxPlugin;
{$IFDEF MSWINDOWS}{$CALLING STDCALL}{$ELSE}{$CALLING CDECL}{$ENDIF}
type
{ Mandatory }
TListLoad = function (ParentWin:thandle;FileToLoad:pchar;ShowFlags:integer):thandle;
{ Optional }
TListLoadNext = function (ParentWin,PluginWin:thandle;FileToLoad:pchar;ShowFlags:integer):integer;
TListCloseWindow = procedure (ListWin:thandle);
TListGetDetectString = procedure (DetectString:pchar;maxlen:integer);
TListSearchText = function (ListWin:thandle;SearchString:pchar; SearchParameter:integer):integer;
TListSearchDialog = function (ListWin:thandle;FindNext:integer):integer;
TListSendCommand = function (ListWin:thandle;Command,Parameter:integer):integer;
TListPrint = function (ListWin:thandle;FileToPrint,DefPrinter:pchar; PrintFlags:integer;var Margins:trect):integer;
TListNotificationReceived = function (ListWin:thandle;Message,wParam,lParam:integer):integer;
TListSetDefaultParams = procedure (dps:pListDefaultParamStruct);
TListGetPreviewBitmap = function (FileToLoad:pchar;width,height:integer; contentbuf:pchar;contentbuflen:integer):hbitmap;
TListGetPreviewBitmapFile = function (FileToLoad:pchar;OutputPath:pchar;width,height:integer; contentbuf:pchar;contentbuflen:integer):pchar;
TListGetText = function (FileToLoad:pchar;contentbuf:pchar;contentbuflen:integer):pchar;
{ Unicode }
TListLoadW = function (ParentWin:thandle;FileToLoad:pwidechar;ShowFlags:integer):thandle;
TListLoadNextW = function (ParentWin,PluginWin:thandle;FileToLoad:pwidechar;ShowFlags:integer):integer;
TListSearchTextW = function (ListWin:thandle;SearchString:pwidechar; SearchParameter:integer):integer;
TListPrintW = function (ListWin:thandle;FileToPrint,DefPrinter:pwidechar; PrintFlags:integer;var Margins:trect):integer;
TListGetPreviewBitmapW = function (FileToLoad:pwidechar;width,height:integer; contentbuf:pchar;contentbuflen:integer):hbitmap;
TListGetPreviewBitmapFileW = function (FileToLoad:pwidechar;OutputPath:pwidechar;width,height:integer; contentbuf:pchar;contentbuflen:integer):pchar;
TListGetTextW = function(FileToLoad:pwidechar;contentbuf:pchar;contentbuflen:integer):pchar;
{$CALLING DEFAULT}
implementation
end.