mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
38 lines
1.7 KiB
ObjectPascal
38 lines
1.7 KiB
ObjectPascal
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;
|
|
{ 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;
|
|
|
|
{$CALLING DEFAULT}
|
|
|
|
implementation
|
|
|
|
end.
|
|
|