* Fixed painting solid gradient

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1713 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-06-20 18:49:36 +00:00 · 2011-06-20 18:49:36 +00:00 · 5fb894cb27
commit 5fb894cb27
parent 497fdb0609
1 changed files with 1 additions and 0 deletions
--- a/components/spktoolbar/SpkGUITools/SpkGUITools.pas
+++ b/components/spktoolbar/SpkGUITools/SpkGUITools.pas
@ -2404,6 +2404,7 @@ begin
  case GradientKind of
    bkSolid:
      begin
+        ACanvas.Brush.Style := bsSolid;
        ACanvas.brush.color := ColorFrom;
        ACanvas.fillrect(Rect.ForWinAPI);
      end;