diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-14 15:52:47 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-14 15:52:47 +0200 |
| commit | dec436a332ba7a86ab45063ae78f9006fd7e2aa5 (patch) | |
| tree | 74f205eecf5932148f99f94f43cf29c94b942b26 /src/corelib/gdi | |
| parent | 7ca8ec35f3f828112fafa34ad27fa1ea0cec5ce9 (diff) | |
| download | fpGUI-dec436a332ba7a86ab45063ae78f9006fd7e2aa5.tar.xz | |
GDI: minor change to IUnknown interface code for FPC 2.5.1 compatibility
Diffstat (limited to 'src/corelib/gdi')
| -rw-r--r-- | src/corelib/gdi/fpg_oledragdrop.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/corelib/gdi/fpg_oledragdrop.pas b/src/corelib/gdi/fpg_oledragdrop.pas index fa17ba67..e4e7b9ed 100644 --- a/src/corelib/gdi/fpg_oledragdrop.pas +++ b/src/corelib/gdi/fpg_oledragdrop.pas @@ -78,9 +78,9 @@ type FOnDragDrop: TfpgOLEDragDropEvent;
private
{ IInterface }
- function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
- function _AddRef: Integer; stdcall;
- function _Release: Integer; stdcall;
+ function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid: TGuid; out obj): LongInt; stdcall;
+ function _AddRef: longint; stdcall;
+ function _Release: longint; stdcall;
{ IDropTarget }
function DragEnter(const dataObj: IDataObject; grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult;StdCall;
function DragOver(grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult; stdcall;
@@ -776,17 +776,17 @@ begin Result := S_OK;
end;
-function TfpgOLEDropTarget._AddRef: Integer;
+function TfpgOLEDropTarget._AddRef: longint;
begin
Result := 1;
end;
-function TfpgOLEDropTarget._Release: Integer;
+function TfpgOLEDropTarget._Release: longint;
begin
Result := 1;
end;
-function TfpgOLEDropTarget.QueryInterface(const IID: TGUID; out Obj): HResult;
+function TfpgOLEDropTarget.QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid: TGuid; out obj): longint; stdcall;
begin
if GetInterface(IID, Obj) then
Result := 0
|