paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix ColorMapSeries painting failure in case of StepY=1

Browse Source 
git-svn-id: trunk@48594 -
This commit is contained in:
wp 2015-04-02 15:02:33 +00:00
parent 4df7f88aee
commit c95cc0db19
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tafuncseries.pas
View File

@ -1708,8 +1708,8 @@ begin
ADrawer.SetPenParams(psClear, clTAColor); ADrawer.SetPenParams(psClear, clTAColor);
end; end;
if StepX > 1 then scaled_stepX := Max(1, ADrawer.Scale(StepX)); scaled_stepX := IfThen(StepX > 1, Max(1, ADrawer.Scale(StepX)), 1);
if StepY > 1 then scaled_stepY := Max(1, ADrawer.Scale(StepY)); scaled_stepY := IfThen(StepY > 1, Max(1, ADrawer.Scale(StepY)), 1);
try try
pt.Y := (r.Top div scaled_stepY - 1) * scaled_stepY + offset.Y mod scaled_stepY; pt.Y := (r.Top div scaled_stepY - 1) * scaled_stepY + offset.Y mod scaled_stepY;