From 9c9baf4da1de9146d4941f9a2b9712bab4e2eeae Mon Sep 17 00:00:00 2001
From: Piotr Caban <piotr@codeweavers.com>
Date: Mon, 27 Sep 2010 12:02:48 +0200
Subject: [PATCH] oleaut32: Execute OleCreatePropertyFrameIndirect in
 OleCreatePropertyFrame.

Based on patch written by Geoffrey Hausheer.
---
 dlls/oleaut32/olepropframe.c | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/dlls/oleaut32/olepropframe.c b/dlls/oleaut32/olepropframe.c
index b3e27d224f0..23bd9e0de3a 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);
 }