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

TAChart: Extracted TBasicPointSeries.DrawLabels method

Browse Source 
git-svn-id: trunk@18893 -
This commit is contained in:
ask 2009-03-04 12:58:01 +00:00
parent fe8286820e
commit 49c1f81e65
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/tachart/taseries.pas
View File

@ -141,6 +141,7 @@ type
procedure DrawLabel(
ACanvas: TCanvas; AIndex: Integer; const ADataPoint: TPoint;
ADown: Boolean);
procedure DrawLabels(ACanvas: TCanvas; ADrawDown: Boolean);
end;
{ TBarSeries }
@ -783,13 +784,7 @@ begin
GetCoords(Count - 1, g1, i1);
DrawPoint;
if not Marks.IsMarkLabelsVisible then exit;
for i := 0 to Count - 1 do begin
GetCoords(i, g1, i1);
with ParentChart do
if IsPointInViewPort(g1) then
DrawLabel(ACanvas, i, i1, g1.Y < 0);
end;
DrawLabels(ACanvas, true);
end;
@ -1156,6 +1151,21 @@ begin
Marks.DrawLabel(ACanvas, labelRect, labelText);
end;
procedure TBasicPointSeries.DrawLabels(ACanvas: TCanvas; ADrawDown: Boolean);
var
g: TDoublePoint;
pt: TPoint;
i: Integer;
begin
if not Marks.IsMarkLabelsVisible then exit;
for i := 0 to Count - 1 do begin
GetCoords(i, g, pt);
with ParentChart do
if IsPointInViewPort(g) then
DrawLabel(ACanvas, i, pt, ADrawDown and (g.Y < 0));
end;
end;
procedure TBasicPointSeries.UpdateMargins(ACanvas: TCanvas; var AMargins: TRect);
var
h: Integer;
@ -1625,12 +1635,7 @@ begin
DrawPart;
end;
if not Marks.IsMarkLabelsVisible then exit;
for i := 0 to Count - 1 do begin
GetCoords(i, g1, i1);
if ParentChart.IsPointInViewPort(g1) then
DrawLabel(ACanvas, i, i1, false);
end;
DrawLabels(ACanvas, false);
end;
procedure TAreaSeries.DrawLegend(ACanvas: TCanvas; const ARect: TRect);