paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 20:42:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Canvas.GradientFill covers the same area as Canvas.FillRect (issue #13636)

Browse Source 
git-svn-id: trunk@19798 -
This commit is contained in:
vincents 2009-05-04 12:34:05 +00:00
parent 9f6417e73c
commit 040222e329
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/canvas.inc
View File

@ -430,7 +430,7 @@ begin
Count := ARect.Right - ARect.Left;
Changing;
for I := 0 to Count do
for I := 0 to Count-1 do
begin
Pen.Color := RGBToColor(RStart + (i * RDiff) div Count,
GStart + (i * GDiff) div Count,