pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fixed painting solid gradient

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1713 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-06-20 18:49:36 +00:00
parent 497fdb0609
commit 5fb894cb27
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/spktoolbar/SpkGUITools/SpkGUITools.pas
View File

@ -2404,6 +2404,7 @@ begin
case GradientKind of case GradientKind of
bkSolid: bkSolid:
begin begin
ACanvas.Brush.Style := bsSolid;
ACanvas.brush.color := ColorFrom; ACanvas.brush.color := ColorFrom;
ACanvas.fillrect(Rect.ForWinAPI); ACanvas.fillrect(Rect.ForWinAPI);
end; end;