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

TAChart: Fix TLine bounds. Part of issue #13681

Browse Source 
git-svn-id: trunk@19923 -
This commit is contained in:
ask 2009-05-11 09:04:23 +00:00
parent 5f1f1c8897
commit 2ca478248b
1 changed files with 14 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
components/tachart/taseries.pas
View File

@ -185,6 +185,7 @@ type
published
property AreaLinesPen: TChartPen read FAreaLinesPen write FAreaLinesPen;
property AreaBrush: TBrush read FAreaBrush write SetAreaBrush;
property Depth;
property InvertedStairs: Boolean
read FInvertedStairs write SetInvertedStairs default false;
property SeriesColor;
@ -282,10 +283,10 @@ type
procedure SetPen(AValue: TPen);
procedure SetPos(AValue: Double);
procedure SetStyle(AValue: TLineStyle);
procedure Changed;
protected
function GetSeriesColor: TColor; override;
procedure SetSeriesColor(const AValue: TColor); override;
procedure UpdateBounds(var ABounds: TDoubleRect); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -929,32 +930,6 @@ end;
{ TLine }
procedure TLine.Changed;
begin
//FIXME: not the best way of doing this
{if Visible then begin
NBPointsMax:=NBPointsMax+1;
case LineStyle of
lsHorizontal:
begin
if Position<YMinSeries then YMinSeries:=Position;
if Position>YMaxSeries then YMaxSeries:=Position;
end;
lsVertical:
begin
if Position<XMinSeries then XMinSeries:=Position;
if Position>XMaxSeries then XMaxSeries:=Position;
end;
end;
end;
end;}
case LineStyle of
lsHorizontal: begin YGraphMin := FPosGraph; YGraphMax := FPosGraph; end;
lsVertical: begin XGraphMin := FPosGraph; XGraphMax := FPosGraph; end;
end;
UpdateParentChart;
end;
constructor TLine.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
@ -979,19 +954,29 @@ procedure TLine.SetStyle(AValue: TLineStyle);
begin
if FStyle = AValue then exit;
FStyle := AValue;
Changed;
UpdateParentChart;
end;
procedure TLine.UpdateBounds(var ABounds: TDoubleRect);
begin
case LineStyle of
lsHorizontal: UpdateMinMax(FPosGraph, ABounds.a.Y, ABounds.b.Y);
lsVertical: UpdateMinMax(FPosGraph, ABounds.a.X, ABounds.b.X);
end;
end;
procedure TLine.SetPos(AValue: Double);
begin
if FPosGraph = AValue then exit;
FPosGraph := AValue;
Changed;
UpdateParentChart;
end;
procedure TLine.SetSeriesColor(const AValue: TColor);
begin
if FPen.Color = AValue then exit;
FPen.Color := AValue;
UpdateParentChart;
end;
procedure TLine.Draw(ACanvas: TCanvas);