From 5fb894cb276bb9276bf8bbbd4e79c3718c41b6e9 Mon Sep 17 00:00:00 2001 From: blikblum Date: Mon, 20 Jun 2011 18:49:36 +0000 Subject: [PATCH] * Fixed painting solid gradient git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1713 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/spktoolbar/SpkGUITools/SpkGUITools.pas | 1 + 1 file changed, 1 insertion(+) diff --git a/components/spktoolbar/SpkGUITools/SpkGUITools.pas b/components/spktoolbar/SpkGUITools/SpkGUITools.pas index 331aa66ef..ee06e2661 100644 --- 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;