[PATCH] Implement IHTMLStyle put_borderTopColor

[Alistair Leslie-Hughes]

---
 dlls/mshtml/htmlstyle.c |   20 ++++++++++++++++++--
 1 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/dlls/mshtml/htmlstyle.c b/dlls/mshtml/htmlstyle.c
index 7ca763f..8b66afa 100644
--- a/dlls/mshtml/htmlstyle.c
+++ b/dlls/mshtml/htmlstyle.c
@@ -1537,8 +1537,24 @@ static HRESULT WINAPI HTMLStyle_get_borderColor(IHTMLStyle *iface, BSTR *p)
 static HRESULT WINAPI HTMLStyle_put_borderTopColor(IHTMLStyle *iface, VARIANT v)
 {
     HTMLStyle *This = impl_from_IHTMLStyle(iface);
-    FIXME("(%p)->(v%d)\n", This, V_VT(&v));
-    return E_NOTIMPL;
+
+    TRACE("(%p)->(v%d)\n", This, V_VT(&v));
+
+    switch(V_VT(&v)) {
+    case VT_BSTR:
+        return set_style_attr(This, STYLEID_BORDER_TOP_COLOR, V_BSTR(&v), 0);
+    case VT_I4: {
+        WCHAR value[10];
+        static const WCHAR format[] = {'#','%','0','6','x',0};
+
+        wsprintfW(value, format, V_I4(&v));
+        return set_style_attr(This, STYLEID_BORDER_TOP_COLOR, value, 0);
+    }
+    default:
+        FIXME("unsupported vt %d\n", V_VT(&v));
+    }
+
+    return S_OK;
 }
 
 static HRESULT WINAPI HTMLStyle_get_borderTopColor(IHTMLStyle *iface, VARIANT *p)
-- 
1.7.1


--------------050405020600040807010800--