paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 07:22:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Respect Marks.OverlapPolicy when drawing axis marks

Browse Source 
git-svn-id: trunk@25033 -
This commit is contained in:
ask 2010-04-28 14:29:01 +00:00
parent 0f37f9e39d
commit 7937d63b39
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tachartaxis.pas
View File

@ -360,8 +360,13 @@ procedure TChartAxis.Draw(
ACanvas: TCanvas; const AExtent: TDoubleRect;
const ATransf: ICoordTransformer; var ARect: TRect);
var
prevLabelRect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);
procedure DrawLabelAndTick(const ALabelRect, ATickRect: TRect; const AText: String);
begin
if Marks.IsLabelHiddenDueToOverlap(prevLabelRect, ALabelRect) then exit;
ACanvas.Pen.Color := TickColor;
ACanvas.Pen.Style := psSolid;
ACanvas.Pen.Mode := pmCopy;