paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 22:50:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* corrected IPrint and IOleCommandtarget to functions. Patch by Ludo, Mantis #22109

Browse Source 
git-svn-id: trunk@22613 -
This commit is contained in:
marco 2012-10-11 14:37:24 +00:00
parent 0562192fb9
commit aed4f10d67
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/winunits-base/src/activex.pp
View File

@ -1361,6 +1361,7 @@ TYPE
DVTARGETDEVICE = TagDVTARGETDEVICE;
PDVTARGETDEVICE = ^tagDVTARGETDEVICE;
PTAGDVTARGETDEVICE = PDVTARGETDEVICE;
LPCLIPFORMAT = ^TCLIPFORMAT;
TCLIPFORMAT = Word;
CLIPFORMAT = TCLIPFORMAT;
@ -3510,15 +3511,15 @@ type
IPrint = interface(IUnknown)
['{B722BCC9-4E68-101B-A2BC-00AA00404770}']
procedure SetInitialPageNum(nFirstPage:Integer);stdcall;
procedure GetPageInfo(out pnFirstPage:Integer;out pcPages:Integer);stdcall;
procedure RemotePrint(grfFlags:LongWord;var pptd:PDVTARGETDEVICE;var pppageset:PtagPAGESET;var pstgmOptions:tagRemSTGMEDIUM;pcallback:IContinueCallback;nFirstPage:Integer;out pcPagesPrinted:Integer;out pnLastPage:Integer);stdcall;
function SetInitialPageNum(nFirstPage:Integer):HRESULT;stdcall;
function GetPageInfo(out pnFirstPage:Integer;out pcPages:Integer):HRESULT;stdcall;
function RemotePrint(grfFlags:LongWord;var pptd:PtagDVTARGETDEVICE;var pppageset:PtagPAGESET;var pstgmOptions:tagRemSTGMEDIUM;pcallback:IContinueCallback;nFirstPage:Integer;out pcPagesPrinted:Integer;out pnLastPage:Integer):HRESULT;stdcall;
end;
IOleCommandTarget = interface(IUnknown)
['{B722BCCB-4E68-101B-A2BC-00AA00404770}']
procedure QueryStatus(var pguidCmdGroup:GUID;cCmds:LongWord;var prgCmds:_tagOLECMD;var pCmdText:_tagOLECMDTEXT);stdcall;
procedure Exec(var pguidCmdGroup:GUID;nCmdID:LongWord;nCmdexecopt:LongWord;var pvaIn:OleVariant;var pvaOut:OleVariant);stdcall;
function QueryStatus(var pguidCmdGroup:GUID;cCmds:LongWord;var prgCmds:_tagOLECMD;var pCmdText:_tagOLECMDTEXT):HRESULT;stdcall;
function Exec(var pguidCmdGroup:GUID;nCmdID:LongWord;nCmdexecopt:LongWord;var pvaIn:OleVariant;var pvaOut:OleVariant):HRESULT;stdcall;
end;
IContinueCallback = interface(IUnknown)