paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 13:49:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Additional checks to prevent drawing of axis marks outside the axis range

Browse Source 
git-svn-id: trunk@31856 -
This commit is contained in:
ask 2011-08-03 15:28:06 +00:00
parent 89c458bc8d
commit b6c83f2721
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tachartaxis.pas
View File

@ -640,8 +640,9 @@ begin
if not Visible then exit;
v := IsVertical;
d := FHelper.FDrawer;
GetMarkValues(
TDoublePointBoolArr(AExtent.a)[v], TDoublePointBoolArr(AExtent.b)[v]);
FHelper.FValueMin := TDoublePointBoolArr(AExtent.a)[v];
FHelper.FValueMax := TDoublePointBoolArr(AExtent.b)[v];
GetMarkValues(FHelper.FValueMin, FHelper.FValueMax);
sz := Marks.Measure(d, not v, TickLength, FMarkValues);
FHelper.GetClipRange(rmin, rmax);
minc := MaxInt;

8
components/tachart/tachartaxisutils.pas
View File

@ -215,6 +215,8 @@ type
FScaledTickLength: Integer;
FStripeIndex: Cardinal;
FTransf: ICoordTransformer;
FValueMax: Double;
FValueMin: Double;
FZOffset: TPoint;
procedure BeginDrawing; virtual;
@ -297,6 +299,8 @@ begin
Result.FClipRect := FClipRect;
Result.FDrawer := FDrawer;
Result.FTransf := FTransf;
Result.FValueMax := FValueMax;
Result.FValueMin := FValueMin;
Result.FZOffset := FZOffset;
end;
@ -318,7 +322,9 @@ var
coord: Integer;
begin
coord := GraphToImage(AMark);
if not IsInClipRange(coord) then exit;
if
not IsInClipRange(coord) or not InRange(AMark, FValueMin, FValueMax)
then exit;
if FAxis.Grid.Visible then begin
FDrawer.Pen := FAxis.Grid;