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

TAChart: Add TBarSeries.ZeroLevel property

Browse Source 
git-svn-id: trunk@27031 -
This commit is contained in:
ask 2010-08-08 06:37:15 +00:00
parent 2cbeb8a186
commit edd774a031
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/tachart/taseries.pas
View File

@ -74,12 +74,15 @@ type
FBarBrush: TBrush;
FBarPen: TPen;
FBarWidthPercent: Integer;
FZeroLevel: Double;
function CalcBarWidth(AX: Double; AIndex: Integer): Double;
function IsZeroLevelStored: boolean;
procedure SetBarBrush(Value: TBrush);
procedure SetBarPen(Value: TPen);
procedure SetBarWidthPercent(Value: Integer);
procedure SetSeriesColor(AValue: TColor);
procedure SetZeroLevel(AValue: Double);
protected
procedure GetLegendItems(AItems: TChartLegendItems); override;
function GetSeriesColor: TColor; override;
@ -101,6 +104,8 @@ type
read GetSeriesColor write SetSeriesColor default clTAColor;
property Source;
property UseReticule;
property ZeroLevel: Double
read FZeroLevel write SetZeroLevel stored IsZeroLevelStored;
end;
{ TPieSeries }
@ -890,9 +895,9 @@ begin
p := FGraphPoints[i - FLoBound];
w := CalcBarWidth(GetGraphPointX(i), i);
if IsRotated then
graphBar := DoubleRect(AxisToGraphX(0), p.Y - w, p.X, p.Y + w)
graphBar := DoubleRect(AxisToGraphX(ZeroLevel), p.Y - w, p.X, p.Y + w)
else
graphBar := DoubleRect(p.X - w, AxisToGraphY(0), p.X + w, p.Y);
graphBar := DoubleRect(p.X - w, AxisToGraphY(ZeroLevel), p.X + w, p.Y);
if not RectIntersectsRect(graphBar, ext2) then continue;
with imageBar do begin
@ -917,7 +922,7 @@ var
begin
Result := inherited Extent;
if IsEmpty then exit;
UpdateMinMax(0, Result.a.Y, Result.b.Y);
UpdateMinMax(ZeroLevel, Result.a.Y, Result.b.Y);
// Show first and last bars fully.
x := GetGraphPointX(0);
Result.a.X := Min(Result.a.X, x - CalcBarWidth(x, 0));
@ -935,6 +940,11 @@ begin
Result := FBarBrush.Color;
end;
function TBarSeries.IsZeroLevelStored: boolean;
begin
Result := ZeroLevel <> 0.0;
end;
procedure TBarSeries.SetBarBrush(Value: TBrush);
begin
FBarBrush.Assign(Value);
@ -957,6 +967,13 @@ begin
FBarBrush.Color := AValue;
end;
procedure TBarSeries.SetZeroLevel(AValue: Double);
begin
if FZeroLevel = AValue then exit;
FZeroLevel := AValue;
UpdateParentChart;
end;
{ TPieSeries }
function TPieSeries.AddPie(Value: Double; Text: String; Color: TColor): Longint;