Piotr Caban : oleaut32: Execute OleCreatePropertyFrameIndirect in OleCreatePropertyFrame.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 9c9baf4da1de9146d4941f9a2b9712bab4e2eeae
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=9c9baf4da1de9146d4941f9a2b...

Author: Piotr Caban 
Date:   Mon Sep 27 12:02:48 2010 +0200

oleaut32: Execute OleCreatePropertyFrameIndirect in OleCreatePropertyFrame.

Based on patch written by Geoffrey Hausheer.

---

dlls/oleaut32/olepropframe.c |   20 ++++++++++++++++----
 1 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/dlls/oleaut32/olepropframe.c b/dlls/oleaut32/olepropframe.c
index b3e27d2..23bd9e0 100644
--- a/dlls/oleaut32/olepropframe.c
+++ b/dlls/oleaut32/olepropframe.c
@@ -1,6 +1,7 @@
 /*
  * Copyright 1999 Corel Corporation
  * Sean Langley
+ * Copyright 2010  Geoffrey Hausheer
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -44,8 +45,19 @@ HRESULT WINAPI OleCreatePropertyFrame(
         LPUNKNOWN* ppUnk, ULONG cPages, LPCLSID pPageClsID, LCID lcid,
         DWORD dwReserved, LPVOID pvReserved)
 {
-    FIXME("(%p,%d,%d,%s,%d,%p,%d,%p,%x,%d,%p), not implemented (olepro32.dll)\n",
-            hwndOwner, x, y, debugstr_w(lpszCaption), cObjects, ppUnk, cPages,
-            pPageClsID, (int)lcid, dwReserved, pvReserved);
-    return S_OK;
+    OCPFIPARAMS ocpf;
+
+    ocpf.cbStructSize =  sizeof(OCPFIPARAMS);
+    ocpf.hWndOwner    = hwndOwner;
+    ocpf.x            = x;
+    ocpf.y            = y;
+    ocpf.lpszCaption  = lpszCaption;
+    ocpf.cObjects     = cObjects;
+    ocpf.lplpUnk      = ppUnk;
+    ocpf.cPages       = cPages;
+    ocpf.lpPages      = pPageClsID;
+    ocpf.lcid         = lcid;
+    ocpf.dispidInitialProperty = 0;
+
+    return OleCreatePropertyFrameIndirect(&ocpf);
 }