paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 05:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Replace TChartSeries.GetCoords procedure with GetGraphPoint function

Browse Source 
git-svn-id: trunk@21901 -
This commit is contained in:
ask 2009-09-27 16:07:43 +00:00
parent 33343e7d67
commit c3acc13054
3 changed files with 16 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/tacustomseries.pas
View File

@ -64,7 +64,7 @@ type
procedure AfterDraw; override;
procedure BeforeDraw; override;
function ColorOrDefault(AColor: TColor; ADefault: TColor = clTAColor): TColor;
procedure GetCoords(AIndex: Integer; out AG: TDoublePoint; out AI: TPoint);
function GetGraphPoint(AIndex: Integer): TDoublePoint;
function GetXMaxVal: Integer;
procedure UpdateBounds(var ABounds: TDoubleRect); override;
public
@ -278,11 +278,12 @@ begin
Result := DefaultFormattedMark(AIndex);
end;
procedure TChartSeries.GetCoords(
AIndex: Integer; out AG: TDoublePoint; out AI: TPoint);
function TChartSeries.GetGraphPoint(AIndex: Integer): TDoublePoint;
begin
AG := DoublePoint(Source[AIndex]^);
AI := ParentChart.GraphToImage(AG);
with Source[AIndex]^ do begin
Result.X := X;
Result.Y := Y;
end;
end;
function TChartSeries.GetSource: TCustomChartSource;

22
components/tachart/taseries.pas
View File

@ -311,8 +311,7 @@ type
implementation
uses
GraphMath, Math, PropEdits, Types,
TASources;
GraphMath, Math, PropEdits, Types;
{ TLineSeries }
@ -372,17 +371,17 @@ begin
ltNone: ;
ltFromPrevious:
for i := 0 to Count - 2 do
DrawLine(DoublePoint(Source[i]^), DoublePoint(Source[i + 1]^));
DrawLine(GetGraphPoint(i), GetGraphPoint(i + 1));
ltFromOrigin:
for i := 0 to Count - 1 do
DrawLine(ZeroDoublePoint, DoublePoint(Source[i]^));
DrawLine(ZeroDoublePoint, GetGraphPoint(i));
end;
DrawLabels(ACanvas, true);
if FShowPoints then
for i := 0 to Count - 1 do begin
a := DoublePoint(Source[i]^);
a := GetGraphPoint(i);
if not ParentChart.IsPointInViewPort(a) then continue;
ai := ParentChart.GraphToImage(a);
FPointer.Draw(ACanvas, ai, GetColor(i));
@ -670,15 +669,14 @@ 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);
g := GetGraphPoint(i);
with ParentChart do
if IsPointInViewPort(g) then
DrawLabel(ACanvas, i, pt, ADrawDown and (g.Y < 0));
DrawLabel(ACanvas, i, GraphToImage(g), ADrawDown and (g.Y < 0));
end;
end;
@ -792,7 +790,7 @@ begin
ACanvas.Brush.Assign(BarBrush);
for i := 0 to Count - 1 do begin
p := DoublePoint(Source[i]^);
p := GetGraphPoint(i);
w := CalcBarWidth(p.X, i);
graphBar := DoubleRect(p.X - w, 0, p.X + w, p.Y);
if not RectIntersectsRect(graphBar, ext2) then continue;
@ -812,7 +810,7 @@ begin
if not Marks.IsMarkLabelsVisible then exit;
for i := 0 to Count - 1 do begin
p := DoublePoint(Source[i]^);
p := GetGraphPoint(i);
if ParentChart.IsPointInViewPort(p) then
DrawLabel(ACanvas, i, ParentChart.GraphToImage(p), p.Y < 0);
end;
@ -1020,8 +1018,8 @@ begin
ymin := ParentChart.ClipRect.Bottom - 1;
for i := 0 to Count - 2 do begin
a := DoublePoint(Source[i]^);
b := DoublePoint(Source[i + 1]^);
a := GetGraphPoint(i);
b := GetGraphPoint(i + 1);
if a.X > b.X then begin
Exchange(a.X, b.X);
Exchange(a.Y, b.Y);

7
components/tachart/tasources.pas
View File

@ -191,7 +191,6 @@ type
read FPointsNumber write SetPointsNumber default 0;
end;
function DoublePoint(const ACoord: TChartDataItem): TDoublePoint; inline; overload;
procedure Register;
procedure SetDataItemDefaults(var AItem: TChartDataItem);
@ -218,12 +217,6 @@ type
procedure Insert(Index: Integer; const S: string); override;
end;
function DoublePoint(const ACoord: TChartDataItem): TDoublePoint;
begin
Result.X := ACoord.X;
Result.Y := ACoord.Y;
end;
procedure Register;
begin
RegisterComponents(