From 662b1d25d0e78601afbb2441297277c5dbcd5a3f Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 15 Jun 2009 13:46:04 +0000 Subject: [PATCH] 2009-06-15 15:45 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/legacy.prg + Added legacy CREATEOLEOBJECT() call support. (untested) --- harbour/ChangeLog | 5 +++++ harbour/contrib/hbwin/legacy.prg | 3 +++ 2 files changed, 8 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index db979873c6..e8e24347c5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,11 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-06-15 15:45 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * contrib/hbwin/legacy.prg + + Added legacy CREATEOLEOBJECT() call support. + (untested) + 2009-06-15 15:41 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * utils/hbmk2/hbmk2.prg + Added skip=yes|no option support to .hbc files. diff --git a/harbour/contrib/hbwin/legacy.prg b/harbour/contrib/hbwin/legacy.prg index 9a7a1433fc..794946c8bf 100644 --- a/harbour/contrib/hbwin/legacy.prg +++ b/harbour/contrib/hbwin/legacy.prg @@ -113,6 +113,9 @@ FUNCTION GetActiveObject( xOle, cIID ) RETURN o +FUNCTION CreateOLEObject( ... ) + RETURN win_P2N( __OleCreateObject( ... ) ) + CREATE CLASS Win32Prn FROM WIN_PRN ENDCLASS