win32: don't override TrackBar WM_NOTIFY handler result in the lcl default handler (trackbar bg is transparent now)

git-svn-id: trunk@17090 -

lcl/comctrls.pp

@@ -1663,6 +1663,7 @@ type
     procedure UpdateSelection;
   protected
     procedure ApplyChanges;
+    procedure CNNotify(var Message: TLMessage); message CN_NOTIFY;
     procedure DoChange(var msg); message LM_CHANGED;
     class function GetControlClassDefaultSize: TPoint; override;
     procedure InitializeWnd; override;

lcl/include/trackbar.inc

@@ -297,6 +297,16 @@ begin
     TWSTrackBarClass(WidgetSetClass).ApplyChanges(Self);
 end;
 
+procedure TCustomTrackBar.CNNotify(var Message: TLMessage);
+begin
+  if ThemeServices.ThemesEnabled then
+  begin
+    // dont call default handler
+  end
+  else
+    inherited;
+end;
+
 {------------------------------------------------------------------------------
   Method: TCustomTrackBar.DoChange
   Params:  Msg  (longint = LM_CHANGE)

lcl/interfaces/win32/win32callback.inc

@@ -1627,17 +1627,6 @@ begin
       LMessage.Result := DLGC_WANTALLKEYS;
       WinProcess := false;
     end;
-{
-    * TODO: make it work... icon does not show up yet, so better disable it
-    WM_GETICON:
-    begin
-      if WindowInfo^.WinControl is TCustomForm then
-      begin
-        LMessage.Result := TCustomForm(WindowInfo^.WinControl).GetIconHandle;
-        WinProcess := false;
-      end;
-    end;
-}
     WM_GETMINMAXINFO:
       SetMinMaxInfo(PMINMAXINFO(LParam)^);
     WM_HSCROLL:

lcl/interfaces/win32/win32winapi.inc

@@ -343,8 +343,8 @@ begin
     end;
   else
     if TLMessage(Message).Msg >= WM_USER then
-    with TLMessage(Message) do
-      Result := CallDefaultWindowProc(Handle, Msg, WParam, LParam);
+      with TLMessage(Message) do
+        Result := CallDefaultWindowProc(Handle, Msg, WParam, LParam);
   end;
 end;