Missing message TCM_SETPADDING implemented

[BiGgUn]

Changelog:
  Implemented message TCM_SETPADDING

Index: dlls/comctl32/tab.c
===================================================================
RCS file: /home/wine/wine/dlls/comctl32/tab.c,v
retrieving revision 1.78
diff -u -r1.78 tab.c
--- dlls/comctl32/tab.c 17 Mar 2003 04:43:26 -0000 1.78
+++ dlls/comctl32/tab.c 26 Apr 2003 09:17:59 -0000
@@ -80,8 +80,6 @@
  * Positioning constants
  */
 #define SELECTED_TAB_OFFSET     2
-#define HORIZONTAL_ITEM_PADDING 6
-#define VERTICAL_ITEM_PADDING   3
 #define ROUND_CORNER_SIZE       2
 #define DISPLAY_AREA_PADDINGX   2
 #define DISPLAY_AREA_PADDINGY   2
@@ -95,6 +93,12 @@
 #define TAB_GetInfoPtr(hwnd) ((TAB_INFO *)GetWindowLongA(hwnd,0))
 
 /******************************************************************************
+ * Positioning variables
+ */
+USHORT HORIZONTAL_ITEM_PADDING = 6;
+USHORT VERTICAL_ITEM_PADDING   = 3;
+
+/******************************************************************************
  * Hot-tracking timer constants
  */
 #define TAB_HOTTRACK_TIMER            1
@@ -258,6 +262,14 @@
     return 0;
 }
 
+static LRESULT
+TAB_SetPadding (HWND hwnd, WPARAM wParam, LPARAM lParam)
+{
+    HORIZONTAL_ITEM_PADDING = LOWORD(lParam);
+    VERTICAL_ITEM_PADDING = HIWORD(lParam);
+    return 0;
+}
+
 /******************************************************************************
  * TAB_InternalGetItemRect
  *
@@ -3075,8 +3087,7 @@
       return 0;
 
     case TCM_SETPADDING:
-      FIXME("Unimplemented msg TCM_SETPADDING\n");
-      return 0;
+     return TAB_SetPadding (hwnd, wParam, lParam);
 
     case TCM_GETROWCOUNT:
       return TAB_GetRowCount(hwnd);