[JVCL-Checkins] dev/JVCL3/run JvSpeedbar.pas,1.50,1.51 - - Possible imporovement for XP run-time drawing

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12566/run

Modified Files:
	JvSpeedbar.pas 
Log Message:
- Possible imporovement for XP run-time drawing


Index: JvSpeedbar.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvSpeedbar.pas,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** JvSpeedbar.pas	27 Nov 2004 22:28:38 -0000	1.50
--- JvSpeedbar.pas	18 Dec 2004 12:03:58 -0000	1.51
***************
*** 2056,2059 ****
--- 2056,2060 ----
      InflateRect(Rect, -BevelSize, -BevelSize);
      inherited Paint;
+     Canvas.Brush.Color := Color;
      {$IFDEF JVCLThemesEnabled}
      if ThemeServices.ThemesEnabled and ParentBackground then
***************
*** 2061,2066 ****
        Canvas.Brush.Color := Parent.Brush.Color;
        DrawThemedBackground(Self, Canvas, Rect);
!     end;
!     {$ENDIF JVCLThemesEnabled}    
      if (FWallpaper.Graphic <> nil) and (FWallpaper.Width > 0) and
        (FWallpaper.Height > 0) then
--- 2062,2069 ----
        Canvas.Brush.Color := Parent.Brush.Color;
        DrawThemedBackground(Self, Canvas, Rect);
!     end
!     else
!     {$ENDIF JVCLThemesEnabled}
!       Canvas.FillRect(Rect);
      if (FWallpaper.Graphic <> nil) and (FWallpaper.Width > 0) and
        (FWallpaper.Height > 0) then