From 0231a67f14fe845641852be2de1657da5207404c Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 1 Sep 2008 10:00:29 +0000
Subject: [PATCH] lcl, win32: formatting + misc

git-svn-id: trunk@16344 -
---
 lcl/include/customlabel.inc            |  2 +-
 lcl/interfaces/win32/win32callback.inc |  5 ++---
 lcl/interfaces/win32/win32object.inc   | 10 ++++++++--
 lcl/interfaces/win32/win32proc.pp      |  2 ++
 4 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/lcl/include/customlabel.inc b/lcl/include/customlabel.inc
index 691f5939de..0b725ee706 100644
--- a/lcl/include/customlabel.inc
+++ b/lcl/include/customlabel.inc
@@ -165,7 +165,7 @@ end;
 
 procedure TCustomLabel.TextChanged;
 begin
-  Invalidate;
+  invalidate;
   InvalidatePreferredSize;
   if (Parent<>nil) and Parent.AutoSize then
     Parent.AdjustSize;
diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index dc3e1edf65..d2ae3f2e41 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -19,7 +19,6 @@
 //  {$C+}
 //  {$DEFINE ASSERT_IS_ON}
 {$ENDIF}
-
 type
   TWinControlAccess = class(TWinControl);
   TCustomListViewAccess = class(TCustomListView);
@@ -1546,10 +1545,10 @@ begin
         end;
         
       // disable child windows of for example groupboxes, but not of forms
-      if assigned(lWinControl) and not (lWinControl is TCustomForm) then
+      if Assigned(lWinControl) and not (lWinControl is TCustomForm) then
         EnableChildWindows(lWinControl, WParam<>0);
 
-      If (lWinControl is TCustomFloatSpinEdit) then
+      if (lWinControl is TCustomFloatSpinEdit) then
         EnableFloatSpinEditBuddy(Window, WParam<>0);
       // ugly hack to give bitbtns a nice look
       // When no theming active, the internal image needs to be
diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 2c2242de93..61fac07277 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -110,11 +110,17 @@ begin
   //      Common controls only need to be initialized when used
   //      So they are initialized in the CreateHandle for common controls
   InitCommonControls;
-  ICC.dwSize := SizeOf(TINITCOMMONCONTROLSEX);
-  ICC.dwICC := ICC_DATE_CLASSES;
   if InitCommonControlsEx <> nil then
+  begin
+    ICC.dwSize := SizeOf(TINITCOMMONCONTROLSEX);
+
+    ICC.dwICC := ICC_DATE_CLASSES;
     InitCommonControlsEx(@ICC);
 
+    ICC.dwICC := ICC_UPDOWN_CLASS;
+    InitCommonControlsEx(@ICC);
+  end;
+
   // Create parent of all windows, 'button on taskbar'
   {$ifdef WindowsUnicodeSupport}
   if UnicodeEnabledOS then
diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp
index c047e34557..272c44e839 100644
--- a/lcl/interfaces/win32/win32proc.pp
+++ b/lcl/interfaces/win32/win32proc.pp
@@ -404,6 +404,8 @@ begin
   $03E7: Result := 'WM_DDE_POKE';
   $03E8: Result := 'WM_DDE_EXECUTE or WM_DDE_LAST';
   $0400: Result := 'WM_USER';
+  $0469: Result := 'UDM_SETBUDDY';
+  $046A: Result := 'UDM_GETBUDDY';
   $102C: Result := 'LVM_GETITEMSTATE';
   $8000: Result := 'WM_APP';
   Else