paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some Delphi incompabilities as described here: http://www.lazarus.freepascal.org/index.php/topic,7118.msg33371

Browse Source 
git-svn-id: trunk@13449 -
This commit is contained in:
florian 2009-07-26 10:30:45 +00:00
parent e4161d1d3a
commit 96d650fceb
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2924,9 +2924,9 @@ TYPE
Function GetTypeComp(OUT ppTComp: ITypeComp):HResult;StdCall;
{$ifndef Call_as}
Function GetDocumentation(index: WINT; OUT pBstrName: WideString; OUT pBstrDocString: WideString; OUT pdwHelpContext: DWORD; OUT pBstrHelpFile: WideString):HResult;StdCall;
Function GetDocumentation(index: WINT; pBstrName: PWideString; pBstrDocString: PWideString; pdwHelpContext: PDWORD; pBstrHelpFile: PWideString):HResult;StdCall;
{$else}
Function GetDocumentation(index: WINT; refPtrFlags: DWORD; OUT pBstrName: WideString; OUT pBstrDocString: WideString; OUT pdwHelpContext: DWORD; OUT pBstrHelpFile: WideString):HResult;StdCall;
Function GetDocumentation(index: WINT; refPtrFlags: DWORD; pBstrName: PWideString; pBstrDocString: PWideString; pdwHelpContext: PDWORD; pBstrHelpFile: PWideString):HResult;StdCall;
{$endif}
{$ifndef Call_as}

5
packages/winunits-base/src/comconst.pp
View File

@ -23,7 +23,10 @@ unit comconst;
SOleError = 'OLE error %.8x';
SVarNotObject = 'Variant does not reference an automation object';
SDCOMNotInstalled = 'DCOM not installed';
SNoCloseActiveServer1 = 'NoCloseActiveServer1';
SNoCloseActiveServer2 = 'NoCloseActiveServer2';
SAutomationWarning = 'COM Automation Warning';
implementation
end.