paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 11:29:35 +01: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

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

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