mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-27 21:00:23 +02:00
TAChart: Extract TAChartAxis unit
git-svn-id: trunk@23216 -
This commit is contained in:
ask
parent
82cba50749
commit
388cebcf91
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -2137,6 +2137,7 @@ components/tachart/fpdoc/talegend.xml svneol=native#text/plain
|
||||
components/tachart/fpdoc/taseries.xml svneol=native#text/plain
|
||||
components/tachart/fpdoc/tasources.xml svneol=native#text/plain
|
||||
components/tachart/fpdoc/tatypes.xml svneol=native#text/plain
|
||||
components/tachart/tachartaxis.pas svneol=native#text/pascal
|
||||
components/tachart/tachartlazaruspkg.lpk svneol=native#text/plain
|
||||
components/tachart/tachartlazaruspkg.pas svneol=native#text/plain
|
||||
components/tachart/tachartutils.pas svneol=native#text/plain
|
||||
|
||||
614
components/tachart/tachartaxis.pas
Normal file
614
components/tachart/tachartaxis.pas
Normal file
@ -0,0 +1,614 @@
|
||||
{
|
||||
|
||||
Axises for TAChart series.
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
Authors: Alexander Klenin
|
||||
|
||||
}
|
||||
unit TAChartAxis;
|
||||
|
||||
{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, Graphics, SysUtils, Types,
|
||||
TATypes, TAChartUtils;
|
||||
|
||||
type
|
||||
|
||||
{ TChartAxisTitle }
|
||||
|
||||
TChartAxisTitle = class(TChartElement)
|
||||
private
|
||||
FCaption: String;
|
||||
FDistance: TChartDistance;
|
||||
FFont: TFont;
|
||||
|
||||
procedure SetCaption(AValue: String);
|
||||
procedure SetDistance(AValue: TChartDistance);
|
||||
procedure SetFont(AValue: TFont);
|
||||
public
|
||||
constructor Create(AOwner: TCustomChart);
|
||||
destructor Destroy; override;
|
||||
|
||||
public
|
||||
procedure Assign(Source: TPersistent); override;
|
||||
published
|
||||
property Caption: String read FCaption write SetCaption;
|
||||
property Distance: TChartDistance
|
||||
read FDistance write SetDistance default DEF_TITLE_DISTANCE;
|
||||
property Font: TFont read FFont write SetFont;
|
||||
property Visible default false;
|
||||
end;
|
||||
|
||||
ICoordTransformer = interface
|
||||
['{6EDA0F9F-ED59-4CA6-BA68-E247EB88AE3D}']
|
||||
function XGraphToImage(AX: Double): Integer;
|
||||
function YGraphToImage(AY: Double): Integer;
|
||||
end;
|
||||
|
||||
TChartAxisAlignment = (calLeft, calTop, calRight, calBottom);
|
||||
TChartAxisMargins = array [TChartAxisAlignment] of Integer;
|
||||
TChartAxisMarkToTextEvent =
|
||||
procedure (var AText: String; AMark: Double) of object;
|
||||
|
||||
TChartAxisPen = class(TChartPen)
|
||||
published
|
||||
property Style default psDot;
|
||||
end;
|
||||
|
||||
{ TChartAxis }
|
||||
|
||||
TChartAxis = class(TCollectionItem)
|
||||
private
|
||||
FSize: Integer;
|
||||
FTitleSize: Integer;
|
||||
function GetMarks(AMin, AMax: Double): TDoubleDynArray;
|
||||
private
|
||||
FAlignment: TChartAxisAlignment;
|
||||
FGrid: TChartAxisPen;
|
||||
FInverted: Boolean;
|
||||
FOffset: Double;
|
||||
FOnMarkToText: TChartAxisMarkToTextEvent;
|
||||
FScale: Double;
|
||||
FTickColor: TColor;
|
||||
FTickLength: Integer;
|
||||
FTitle: TChartAxisTitle;
|
||||
FVisible: Boolean;
|
||||
|
||||
procedure SetAlignment(AValue: TChartAxisAlignment);
|
||||
procedure SetGrid(AValue: TChartAxisPen);
|
||||
procedure SetInverted(AValue: Boolean);
|
||||
procedure SetOffset(AValue: Double);
|
||||
procedure SetOnMarkToText(const AValue: TChartAxisMarkToTextEvent);
|
||||
procedure SetScale(AValue: Double);
|
||||
procedure SetTickColor(AValue: TColor);
|
||||
procedure SetTickLength(AValue: Integer);
|
||||
procedure SetTitle(AValue: TChartAxisTitle);
|
||||
procedure SetVisible(const AValue: Boolean);
|
||||
|
||||
procedure StyleChanged(ASender: TObject);
|
||||
protected
|
||||
function GetDisplayName: string; override;
|
||||
public
|
||||
constructor Create(ACollection: TCollection); override;
|
||||
destructor Destroy; override;
|
||||
public
|
||||
procedure Assign(Source: TPersistent); override;
|
||||
procedure Draw(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
const ATransf: ICoordTransformer; var ARect: TRect);
|
||||
procedure DrawTitle(
|
||||
ACanvas: TCanvas; const ACenter: TPoint; var ARect: TRect);
|
||||
function IsVertical: Boolean; inline;
|
||||
function MarkToText(AMark: Double): String;
|
||||
function MarkToTextDefault(AMark: Double): String;
|
||||
procedure Measure(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
var AMargins: TChartAxisMargins);
|
||||
|
||||
published
|
||||
property Alignment: TChartAxisAlignment read FAlignment write SetAlignment;
|
||||
property Grid: TChartAxisPen read FGrid write SetGrid;
|
||||
// Inverts the axis scale from increasing to decreasing.
|
||||
property Inverted: boolean read FInverted write SetInverted default false;
|
||||
property Offset: Double read FOffset write SetOffset;
|
||||
property Scale: Double read FScale write SetScale;
|
||||
property TickColor: TColor read FTickColor write SetTickColor default clBlack;
|
||||
property TickLength: Integer
|
||||
read FTickLength write SetTickLength default DEF_TICK_LENGTH;
|
||||
property Title: TChartAxisTitle read FTitle write SetTitle;
|
||||
property Visible: Boolean read FVisible write SetVisible default true;
|
||||
published
|
||||
property OnMarkToText: TChartAxisMarkToTextEvent
|
||||
read FOnMarkToText write SetOnMarkToText;
|
||||
end;
|
||||
|
||||
{ TChartAxisList }
|
||||
|
||||
TChartAxisList = class(TCollection)
|
||||
private
|
||||
FChart: TCustomChart;
|
||||
function GetAxes(AIndex: Integer): TChartAxis;
|
||||
protected
|
||||
function GetOwner: TPersistent; override;
|
||||
public
|
||||
constructor Create(AOwner: TCustomChart);
|
||||
public
|
||||
function Add: TChartAxis; inline;
|
||||
function GetAxis(AIndex: Integer): TChartAxis;
|
||||
procedure SetAxis(AIndex: Integer; AValue: TChartAxis);
|
||||
|
||||
property Axes[AIndex: Integer]: TChartAxis read GetAxes; default;
|
||||
property BottomAxis: TChartAxis index 1 read GetAxis write SetAxis;
|
||||
property LeftAxis: TChartAxis index 2 read GetAxis write SetAxis;
|
||||
end;
|
||||
|
||||
function SideByAlignment(
|
||||
var ARect: TRect; AAlignment: TChartAxisAlignment; ADelta: Integer): Integer;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Math;
|
||||
|
||||
const
|
||||
FONT_SLOPE_VERTICAL = 45 * 10;
|
||||
|
||||
function SideByAlignment(
|
||||
var ARect: TRect; AAlignment: TChartAxisAlignment; ADelta: Integer): Integer;
|
||||
var
|
||||
a: TChartAxisMargins absolute ARect;
|
||||
begin
|
||||
Result := a[AAlignment];
|
||||
if AAlignment in [calLeft, calTop] then
|
||||
ADelta := -ADelta;
|
||||
a[AAlignment] += ADelta;
|
||||
end;
|
||||
|
||||
{ TChartAxisTitle }
|
||||
|
||||
procedure TChartAxisTitle.Assign(Source: TPersistent);
|
||||
begin
|
||||
if Source is TChartAxisTitle then
|
||||
with TChartAxisTitle(Source) do begin
|
||||
FCaption := Caption;
|
||||
FFont.Assign(Font);
|
||||
end;
|
||||
inherited Assign(Source);
|
||||
end;
|
||||
|
||||
constructor TChartAxisTitle.Create(AOwner: TCustomChart);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FDistance := DEF_TITLE_DISTANCE;
|
||||
InitHelper(FFont, TFont);
|
||||
end;
|
||||
|
||||
destructor TChartAxisTitle.Destroy;
|
||||
begin
|
||||
FFont.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TChartAxisTitle.SetCaption(AValue: String);
|
||||
begin
|
||||
FCaption := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxisTitle.SetDistance(AValue: TChartDistance);
|
||||
begin
|
||||
if FDistance = AValue then exit;
|
||||
FDistance := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxisTitle.SetFont(AValue: TFont);
|
||||
begin
|
||||
FFont.Assign(AValue);
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
{ TChartAxis }
|
||||
|
||||
procedure TChartAxis.Assign(Source: TPersistent);
|
||||
begin
|
||||
if Source is TChartAxis then
|
||||
with TChartAxis(Source) do begin
|
||||
FGrid.Assign(Grid);
|
||||
FInverted := Inverted;
|
||||
FTitle.Assign(Title);
|
||||
end;
|
||||
//inherited Assign(Source);
|
||||
end;
|
||||
|
||||
constructor TChartAxis.Create(ACollection: TCollection);
|
||||
begin
|
||||
inherited Create(ACollection);
|
||||
FGrid := TChartAxisPen.Create;
|
||||
FGrid.OnChange := @StyleChanged;
|
||||
FGrid.Style := psDot;
|
||||
FScale := 1.0;
|
||||
FTickColor := clBlack;
|
||||
FTickLength := DEF_TICK_LENGTH;
|
||||
FTitle := TChartAxisTitle.Create(ACollection.Owner as TCustomChart);
|
||||
FVisible := true;
|
||||
end;
|
||||
|
||||
destructor TChartAxis.Destroy;
|
||||
begin
|
||||
FTitle.Free;
|
||||
FGrid.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TChartAxis.Draw(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
const ATransf: ICoordTransformer; var ARect: TRect);
|
||||
|
||||
procedure DrawXMark(AY: Integer; AMark: Double);
|
||||
var
|
||||
x, dy: Integer;
|
||||
sz: TSize;
|
||||
markText: String;
|
||||
begin
|
||||
x := ATransf.XGraphToImage((AMark - Offset) / Scale);
|
||||
|
||||
if Grid.Visible then begin
|
||||
ACanvas.Pen.Assign(Grid);
|
||||
ACanvas.Brush.Style := bsClear;
|
||||
ACanvas.Line(
|
||||
x, ATransf.YGraphToImage(AExtent.a.Y),
|
||||
x, ATransf.YGraphToImage(AExtent.b.Y));
|
||||
end;
|
||||
|
||||
ACanvas.Pen.Color := TickColor;
|
||||
ACanvas.Pen.Style := psSolid;
|
||||
ACanvas.Pen.Mode := pmCopy;
|
||||
ACanvas.Line(x, AY - TickLength, x, AY + TickLength);
|
||||
|
||||
//ACanvas.Brush.Assign(FGraphBrush);
|
||||
//ACanvas.Brush.Color := Color;
|
||||
markText := MarkToText(AMark);
|
||||
sz := ACanvas.TextExtent(markText);
|
||||
if Alignment = calTop then
|
||||
dy := -TickLength - 1 - sz.cy
|
||||
else
|
||||
dy := TickLength + 1;
|
||||
ACanvas.TextOut(x - sz.cx div 2, AY + dy, markText);
|
||||
end;
|
||||
|
||||
procedure DrawYMark(AX: Integer; AMark: Double);
|
||||
var
|
||||
dx, y: Integer;
|
||||
markText: String;
|
||||
sz: TSize;
|
||||
begin
|
||||
y := ATransf.YGraphToImage((AMark - Offset) / Scale);
|
||||
|
||||
if Grid.Visible then begin
|
||||
ACanvas.Pen.Assign(Grid);
|
||||
ACanvas.Brush.Style := bsClear;
|
||||
ACanvas.Line(
|
||||
ATransf.XGraphToImage(AExtent.a.X), y,
|
||||
ATransf.XGraphToImage(AExtent.b.X), y);
|
||||
end;
|
||||
|
||||
ACanvas.Pen.Color := TickColor;
|
||||
ACanvas.Pen.Style := psSolid;
|
||||
ACanvas.Pen.Mode := pmCopy;
|
||||
ACanvas.Line(AX - TickLength, y, AX + TickLength, y);
|
||||
|
||||
//ACanvas.Brush.Assign(FGraphBrush);
|
||||
//ACanvas.Brush.Color := Color;
|
||||
markText := MarkToText(AMark);
|
||||
sz := ACanvas.TextExtent(markText);
|
||||
if Alignment = calLeft then
|
||||
dx := -TickLength - 1 - sz.cx
|
||||
else
|
||||
dx := TickLength + 1;
|
||||
ACanvas.TextOut(AX + dx, y - sz.cy div 2, markText)
|
||||
end;
|
||||
|
||||
procedure DoDraw(AMin, AMax: Double);
|
||||
var
|
||||
i, coord: Integer;
|
||||
marks: TDoubleDynArray;
|
||||
begin
|
||||
if AMin = AMax then exit;
|
||||
marks := GetMarks(AMin, AMax);
|
||||
coord := SideByAlignment(ARect, Alignment, FSize);
|
||||
for i := 0 to High(marks) do
|
||||
if IsVertical then
|
||||
DrawYMark(coord, marks[i])
|
||||
else
|
||||
DrawXMark(coord, marks[i]);
|
||||
end;
|
||||
|
||||
begin
|
||||
if not Visible then exit;
|
||||
if IsVertical then
|
||||
DoDraw(AExtent.a.Y, AExtent.b.Y)
|
||||
else
|
||||
DoDraw(AExtent.a.X, AExtent.b.X);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.DrawTitle(
|
||||
ACanvas: TCanvas; const ACenter: TPoint; var ARect: TRect);
|
||||
var
|
||||
p: TPoint;
|
||||
sz: TSize;
|
||||
pbf: TPenBrushFontRecall;
|
||||
begin
|
||||
if not Visible or (FTitleSize = 0) then exit;
|
||||
// FIXME: Angle assumed to be either ~0 or ~90 degrees
|
||||
pbf := TPenBrushFontRecall.Create(ACanvas, [pbfFont]);
|
||||
try
|
||||
ACanvas.Font := Title.Font;
|
||||
sz := ACanvas.TextExtent(Title.Caption);
|
||||
if Title.Font.Orientation >= FONT_SLOPE_VERTICAL then begin
|
||||
Exchange(sz.cx, sz.cy);
|
||||
sz.cy := -sz.cy;
|
||||
end;
|
||||
p.X := ACenter.X - sz.cx div 2;
|
||||
p.Y := ACenter.Y - sz.cy div 2;
|
||||
case Alignment of
|
||||
calLeft: p.X := ARect.Left - FTitleSize;
|
||||
calTop: p.Y := ARect.Top - FTitleSize;
|
||||
calRight: p.X := ARect.Right + Title.Distance;
|
||||
calBottom: p.Y := ARect.Bottom + Title.Distance;
|
||||
end;
|
||||
ACanvas.TextOut(p.X, p.Y, Title.Caption);
|
||||
finally
|
||||
pbf.Free;
|
||||
end;
|
||||
SideByAlignment(ARect, Alignment, FTitleSize);
|
||||
end;
|
||||
|
||||
function TChartAxis.GetDisplayName: string;
|
||||
const
|
||||
SIDE_NAME: array [TChartAxisAlignment] of String =
|
||||
('Left', 'Top', 'Right', 'Bottom');
|
||||
VISIBLE_NAME: array [Boolean] of String = (' Hidden', '');
|
||||
INVERTED_NAME: array [Boolean] of String = ('', ' Inverted');
|
||||
CAPTION_FMT = ' (%s)';
|
||||
begin
|
||||
Result :=
|
||||
SIDE_NAME[Alignment] + VISIBLE_NAME[Visible] + INVERTED_NAME[Inverted];
|
||||
if Title.Caption <> '' then
|
||||
Result += Format(CAPTION_FMT, [Title.Caption]);
|
||||
end;
|
||||
|
||||
function TChartAxis.GetMarks(AMin, AMax: Double): TDoubleDynArray;
|
||||
begin
|
||||
AMin := AMin * Scale + Offset;
|
||||
AMax := AMax * Scale + Offset;
|
||||
if AMin > AMax then
|
||||
Exchange(AMin, AMax);
|
||||
Result := GetIntervals(AMin, AMax, Inverted);
|
||||
end;
|
||||
|
||||
function TChartAxis.IsVertical: Boolean; inline;
|
||||
begin
|
||||
Result := Alignment in [calLeft, calRight];
|
||||
end;
|
||||
|
||||
function TChartAxis.MarkToText(AMark: Double): String;
|
||||
begin
|
||||
Result := MarkToTextDefault(AMark);
|
||||
if Assigned(FOnMarkToText) then
|
||||
FOnMarkToText(Result, AMark);
|
||||
end;
|
||||
|
||||
function TChartAxis.MarkToTextDefault(AMark: Double): String;
|
||||
const
|
||||
EPSILON = 1e-16;
|
||||
begin
|
||||
if Abs(AMark) <= EPSILON then AMark := 0;
|
||||
Result := Trim(FloatToStr(AMark));
|
||||
end;
|
||||
|
||||
procedure TChartAxis.Measure(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
var AMargins: TChartAxisMargins);
|
||||
|
||||
var
|
||||
digitSize: TSize;
|
||||
|
||||
procedure CalcVertSize;
|
||||
var
|
||||
i, maxWidth: Integer;
|
||||
marks: TDoubleDynArray;
|
||||
begin
|
||||
if AExtent.a.Y = AExtent.b.Y then exit;
|
||||
maxWidth := 0;
|
||||
marks := GetMarks(AExtent.a.Y, AExtent.b.Y);
|
||||
for i := 0 to High(marks) do
|
||||
maxWidth := Max(ACanvas.TextWidth(MarkToText(marks[i])), maxWidth);
|
||||
// CalculateTransformationCoeffs changes axis interval, so it is possibile
|
||||
// that a new mark longer then existing ones is introduced.
|
||||
// That will change marks width and reduce view area,
|
||||
// requiring another call to CalculateTransformationCoeffs...
|
||||
// So punt for now and just reserve space for extra digit unconditionally.
|
||||
FSize := maxWidth + digitSize.cx + TickLength;
|
||||
end;
|
||||
|
||||
procedure CalcHorSize;
|
||||
begin
|
||||
if AExtent.a.X = AExtent.b.X then exit;
|
||||
FSize := digitSize.cy + TickLength;
|
||||
end;
|
||||
|
||||
procedure CalcTitleSize;
|
||||
var
|
||||
d: Integer;
|
||||
sz: TSize;
|
||||
pbf: TPenBrushFontRecall;
|
||||
begin
|
||||
if not Title.Visible or (Title.Caption = '') then exit;
|
||||
pbf := TPenBrushFontRecall.Create(ACanvas, [pbfFont]);
|
||||
try
|
||||
ACanvas.Font := Title.Font;
|
||||
sz := ACanvas.TextExtent(Title.Caption);
|
||||
finally
|
||||
pbf.Free;
|
||||
end;
|
||||
if (Title.Font.Orientation < FONT_SLOPE_VERTICAL) = IsVertical then
|
||||
d := sz.cx
|
||||
else
|
||||
d := sz.cy;
|
||||
FTitleSize := d + Title.Distance;
|
||||
end;
|
||||
|
||||
const
|
||||
SOME_DIGIT = '0';
|
||||
begin
|
||||
FSize := 0;
|
||||
FTitleSize := 0;
|
||||
if not Visible then exit;
|
||||
digitSize := ACanvas.TextExtent(SOME_DIGIT);
|
||||
if IsVertical then
|
||||
CalcVertSize
|
||||
else
|
||||
CalcHorSize;
|
||||
CalcTitleSize;
|
||||
AMargins[Alignment] += FSize + FTitleSize;
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetAlignment(AValue: TChartAxisAlignment);
|
||||
begin
|
||||
if FAlignment = AValue then exit;
|
||||
FAlignment := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetGrid(AValue: TChartAxisPen);
|
||||
begin
|
||||
FGrid.Assign(AValue);
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetInverted(AValue: Boolean);
|
||||
begin
|
||||
FInverted := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetOffset(AValue: Double);
|
||||
begin
|
||||
if FOffset = AValue then exit;
|
||||
FOffset := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetOnMarkToText(const AValue: TChartAxisMarkToTextEvent);
|
||||
begin
|
||||
if FOnMarkToText = AValue then exit;
|
||||
FOnMarkToText := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetScale(AValue: Double);
|
||||
begin
|
||||
if FScale = AValue then exit;
|
||||
FScale := AValue;
|
||||
if FScale = 0.0 then
|
||||
FScale := 1.0;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetTickColor(AValue: TColor);
|
||||
begin
|
||||
if FTickColor = AValue then exit;
|
||||
FTickColor := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetTickLength(AValue: Integer);
|
||||
begin
|
||||
if FTickLength = AValue then exit;
|
||||
FTickLength := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetTitle(AValue: TChartAxisTitle);
|
||||
begin
|
||||
FTitle.Assign(AValue);
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetVisible(const AValue: Boolean);
|
||||
begin
|
||||
if FVisible = AValue then exit;
|
||||
FVisible := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.StyleChanged(ASender: TObject);
|
||||
begin
|
||||
Unused(ASender);
|
||||
(Collection.Owner as TCustomChart).Invalidate;
|
||||
end;
|
||||
|
||||
const
|
||||
AXIS_INDEX: array [1..2] of TChartAxisAlignment = (calBottom, calLeft);
|
||||
|
||||
{ TChartAxisList }
|
||||
|
||||
function TChartAxisList.Add: TChartAxis; inline;
|
||||
begin
|
||||
Result := TChartAxis(inherited Add);
|
||||
end;
|
||||
|
||||
constructor TChartAxisList.Create(AOwner: TCustomChart);
|
||||
begin
|
||||
inherited Create(TChartAxis);
|
||||
FChart := AOwner;
|
||||
end;
|
||||
|
||||
function TChartAxisList.GetAxes(AIndex: Integer): TChartAxis;
|
||||
begin
|
||||
Result := TChartAxis(Items[AIndex]);
|
||||
end;
|
||||
|
||||
function TChartAxisList.GetAxis(AIndex: Integer): TChartAxis;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
for i := 0 to Count - 1 do
|
||||
if Axes[i].Alignment = AXIS_INDEX[AIndex] then
|
||||
exit(Axes[i]);
|
||||
Result := nil;
|
||||
end;
|
||||
|
||||
function TChartAxisList.GetOwner: TPersistent;
|
||||
begin
|
||||
Result := FChart;
|
||||
end;
|
||||
|
||||
procedure TChartAxisList.SetAxis(AIndex: Integer; AValue: TChartAxis);
|
||||
var
|
||||
a: TChartAxis;
|
||||
begin
|
||||
a := GetAxis(AIndex);
|
||||
if a = nil then
|
||||
a := Add;
|
||||
a.Assign(AValue);
|
||||
a.FAlignment := AXIS_INDEX[AIndex];
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -20,7 +20,7 @@
|
||||
for details about the copyright.
|
||||
"/>
|
||||
<Version Major="1"/>
|
||||
<Files Count="9">
|
||||
<Files Count="10">
|
||||
<Item1>
|
||||
<Filename Value="taseries.pas"/>
|
||||
<UnitName Value="TASeries"/>
|
||||
@ -61,6 +61,10 @@
|
||||
<Filename Value="TALegend.pas"/>
|
||||
<UnitName Value="TALegend"/>
|
||||
</Item9>
|
||||
<Item10>
|
||||
<Filename Value="tachartaxis.pas"/>
|
||||
<UnitName Value="TAChartAxis"/>
|
||||
</Item10>
|
||||
</Files>
|
||||
<LazDoc Paths="$(LazarusDir)/components/tachart/fpdoc/"/>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
|
||||
@ -2,13 +2,13 @@
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit TAChartLazarusPkg;
|
||||
unit tachartlazaruspkg;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
TASeries, TAGraph, TAChartUtils, TASeriesEditor, TATypes, TASources,
|
||||
TADbSource, TACustomSeries, TALegend, LazarusPackageIntf;
|
||||
TASeries, TAGraph, TAChartUtils, TASeriesEditor, TATypes, TASources,
|
||||
TADbSource, TACustomSeries, TALegend, TAChartAxis, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
@ -30,7 +30,7 @@ interface
|
||||
uses
|
||||
LCLIntF, LCLType, LResources,
|
||||
SysUtils, Classes, Controls, Graphics, Dialogs,
|
||||
TAChartUtils, TATypes, TALegend;
|
||||
TAChartUtils, TATypes, TALegend, TAChartAxis;
|
||||
|
||||
type
|
||||
TChart = class;
|
||||
|
||||
@ -28,7 +28,7 @@ unit TATypes;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Graphics, Controls, FPCanvas, Types,
|
||||
Classes, SysUtils, Graphics, Controls, FPCanvas,
|
||||
TAChartUtils;
|
||||
|
||||
const
|
||||
@ -105,132 +105,6 @@ type
|
||||
property Visible default false;
|
||||
end;
|
||||
|
||||
{ TChartAxisTitle }
|
||||
|
||||
TChartAxisTitle = class(TChartElement)
|
||||
private
|
||||
FCaption: String;
|
||||
FDistance: TChartDistance;
|
||||
FFont: TFont;
|
||||
|
||||
procedure SetCaption(AValue: String);
|
||||
procedure SetDistance(AValue: TChartDistance);
|
||||
procedure SetFont(AValue: TFont);
|
||||
public
|
||||
constructor Create(AOwner: TCustomChart);
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Assign(Source: TPersistent); override;
|
||||
published
|
||||
property Caption: String read FCaption write SetCaption;
|
||||
property Distance: TChartDistance
|
||||
read FDistance write SetDistance default DEF_TITLE_DISTANCE;
|
||||
property Font: TFont read FFont write SetFont;
|
||||
property Visible default false;
|
||||
end;
|
||||
|
||||
ICoordTransformer = interface
|
||||
['{6EDA0F9F-ED59-4CA6-BA68-E247EB88AE3D}']
|
||||
function XGraphToImage(AX: Double): Integer;
|
||||
function YGraphToImage(AY: Double): Integer;
|
||||
end;
|
||||
|
||||
TChartAxisAlignment = (calLeft, calTop, calRight, calBottom);
|
||||
TChartAxisMargins = array [TChartAxisAlignment] of Integer;
|
||||
TChartAxisMarkToTextEvent =
|
||||
procedure (var AText: String; AMark: Double) of object;
|
||||
|
||||
TChartAxisPen = class(TChartPen)
|
||||
published
|
||||
property Style default psDot;
|
||||
end;
|
||||
|
||||
{ TChartAxis }
|
||||
|
||||
TChartAxis = class(TCollectionItem)
|
||||
private
|
||||
FSize: Integer;
|
||||
FTitleSize: Integer;
|
||||
function GetMarks(AMin, AMax: Double): TDoubleDynArray;
|
||||
private
|
||||
FAlignment: TChartAxisAlignment;
|
||||
FGrid: TChartAxisPen;
|
||||
FInverted: Boolean;
|
||||
FOffset: Double;
|
||||
FOnMarkToText: TChartAxisMarkToTextEvent;
|
||||
FScale: Double;
|
||||
FTickColor: TColor;
|
||||
FTickLength: Integer;
|
||||
FTitle: TChartAxisTitle;
|
||||
FVisible: Boolean;
|
||||
|
||||
procedure SetAlignment(AValue: TChartAxisAlignment);
|
||||
procedure SetGrid(AValue: TChartAxisPen);
|
||||
procedure SetInverted(AValue: Boolean);
|
||||
procedure SetOffset(AValue: Double);
|
||||
procedure SetOnMarkToText(const AValue: TChartAxisMarkToTextEvent);
|
||||
procedure SetScale(AValue: Double);
|
||||
procedure SetTickColor(AValue: TColor);
|
||||
procedure SetTickLength(AValue: Integer);
|
||||
procedure SetTitle(AValue: TChartAxisTitle);
|
||||
procedure SetVisible(const AValue: Boolean);
|
||||
|
||||
procedure StyleChanged(ASender: TObject);
|
||||
protected
|
||||
function GetDisplayName: string; override;
|
||||
public
|
||||
constructor Create(ACollection: TCollection); override;
|
||||
destructor Destroy; override;
|
||||
public
|
||||
procedure Assign(Source: TPersistent); override;
|
||||
procedure Draw(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
const ATransf: ICoordTransformer; var ARect: TRect);
|
||||
procedure DrawTitle(
|
||||
ACanvas: TCanvas; const ACenter: TPoint; var ARect: TRect);
|
||||
function IsVertical: Boolean; inline;
|
||||
function MarkToText(AMark: Double): String;
|
||||
function MarkToTextDefault(AMark: Double): String;
|
||||
procedure Measure(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
var AMargins: TChartAxisMargins);
|
||||
published
|
||||
property Alignment: TChartAxisAlignment read FAlignment write SetAlignment;
|
||||
property Grid: TChartAxisPen read FGrid write SetGrid;
|
||||
// Inverts the axis scale from increasing to decreasing.
|
||||
property Inverted: boolean read FInverted write SetInverted default false;
|
||||
property Offset: Double read FOffset write SetOffset;
|
||||
property Scale: Double read FScale write SetScale;
|
||||
property TickColor: TColor read FTickColor write SetTickColor default clBlack;
|
||||
property TickLength: Integer
|
||||
read FTickLength write SetTickLength default DEF_TICK_LENGTH;
|
||||
property Title: TChartAxisTitle read FTitle write SetTitle;
|
||||
property Visible: Boolean read FVisible write SetVisible default true;
|
||||
published
|
||||
property OnMarkToText: TChartAxisMarkToTextEvent
|
||||
read FOnMarkToText write SetOnMarkToText;
|
||||
end;
|
||||
|
||||
{ TChartAxisList }
|
||||
|
||||
TChartAxisList = class(TCollection)
|
||||
private
|
||||
FChart: TCustomChart;
|
||||
function GetAxes(AIndex: Integer): TChartAxis;
|
||||
protected
|
||||
function GetOwner: TPersistent; override;
|
||||
public
|
||||
constructor Create(AOwner: TCustomChart);
|
||||
public
|
||||
function Add: TChartAxis; inline;
|
||||
function GetAxis(AIndex: Integer): TChartAxis;
|
||||
procedure SetAxis(AIndex: Integer; AValue: TChartAxis);
|
||||
|
||||
property Axes[AIndex: Integer]: TChartAxis read GetAxes; default;
|
||||
property BottomAxis: TChartAxis index 1 read GetAxis write SetAxis;
|
||||
property LeftAxis: TChartAxis index 2 read GetAxis write SetAxis;
|
||||
end;
|
||||
|
||||
TChartLinkPen = class(TChartPen)
|
||||
published
|
||||
property Color default clWhite;
|
||||
@ -367,28 +241,8 @@ type
|
||||
property Bottom: TChartDistance index 4 read GetValue write SetValue default DEF_MARGIN;
|
||||
end;
|
||||
|
||||
function SideByAlignment(
|
||||
var ARect: TRect; AAlignment: TChartAxisAlignment; ADelta: Integer): Integer;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Math;
|
||||
|
||||
const
|
||||
FONT_SLOPE_VERTICAL = 45 * 10;
|
||||
|
||||
function SideByAlignment(
|
||||
var ARect: TRect; AAlignment: TChartAxisAlignment; ADelta: Integer): Integer;
|
||||
var
|
||||
a: TChartAxisMargins absolute ARect;
|
||||
begin
|
||||
Result := a[AAlignment];
|
||||
if AAlignment in [calLeft, calTop] then
|
||||
ADelta := -ADelta;
|
||||
a[AAlignment] += ADelta;
|
||||
end;
|
||||
|
||||
{ TChartPen }
|
||||
|
||||
procedure TChartPen.Assign(Source: TPersistent);
|
||||
@ -520,391 +374,6 @@ begin
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
{ TChartAxisTitle }
|
||||
|
||||
procedure TChartAxisTitle.Assign(Source: TPersistent);
|
||||
begin
|
||||
if Source is TChartAxisTitle then
|
||||
with TChartAxisTitle(Source) do begin
|
||||
FCaption := Caption;
|
||||
FFont.Assign(Font);
|
||||
end;
|
||||
inherited Assign(Source);
|
||||
end;
|
||||
|
||||
constructor TChartAxisTitle.Create(AOwner: TCustomChart);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FDistance := DEF_TITLE_DISTANCE;
|
||||
InitHelper(FFont, TFont);
|
||||
end;
|
||||
|
||||
destructor TChartAxisTitle.Destroy;
|
||||
begin
|
||||
FFont.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TChartAxisTitle.SetCaption(AValue: String);
|
||||
begin
|
||||
FCaption := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxisTitle.SetDistance(AValue: TChartDistance);
|
||||
begin
|
||||
if FDistance = AValue then exit;
|
||||
FDistance := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxisTitle.SetFont(AValue: TFont);
|
||||
begin
|
||||
FFont.Assign(AValue);
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
{ TChartAxis }
|
||||
|
||||
procedure TChartAxis.Assign(Source: TPersistent);
|
||||
begin
|
||||
if Source is TChartAxis then
|
||||
with TChartAxis(Source) do begin
|
||||
FGrid.Assign(Grid);
|
||||
FInverted := Inverted;
|
||||
FTitle.Assign(Title);
|
||||
end;
|
||||
//inherited Assign(Source);
|
||||
end;
|
||||
|
||||
constructor TChartAxis.Create(ACollection: TCollection);
|
||||
begin
|
||||
inherited Create(ACollection);
|
||||
FGrid := TChartAxisPen.Create;
|
||||
FGrid.OnChange := @StyleChanged;
|
||||
FGrid.Style := psDot;
|
||||
FScale := 1.0;
|
||||
FTickColor := clBlack;
|
||||
FTickLength := DEF_TICK_LENGTH;
|
||||
FTitle := TChartAxisTitle.Create(ACollection.Owner as TCustomChart);
|
||||
FVisible := true;
|
||||
end;
|
||||
|
||||
destructor TChartAxis.Destroy;
|
||||
begin
|
||||
FTitle.Free;
|
||||
FGrid.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TChartAxis.Draw(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
const ATransf: ICoordTransformer; var ARect: TRect);
|
||||
|
||||
procedure DrawXMark(AY: Integer; AMark: Double);
|
||||
var
|
||||
x, dy: Integer;
|
||||
sz: TSize;
|
||||
markText: String;
|
||||
begin
|
||||
x := ATransf.XGraphToImage((AMark - Offset) / Scale);
|
||||
|
||||
if Grid.Visible then begin
|
||||
ACanvas.Pen.Assign(Grid);
|
||||
ACanvas.Brush.Style := bsClear;
|
||||
ACanvas.Line(
|
||||
x, ATransf.YGraphToImage(AExtent.a.Y),
|
||||
x, ATransf.YGraphToImage(AExtent.b.Y));
|
||||
end;
|
||||
|
||||
ACanvas.Pen.Color := TickColor;
|
||||
ACanvas.Pen.Style := psSolid;
|
||||
ACanvas.Pen.Mode := pmCopy;
|
||||
ACanvas.Line(x, AY - TickLength, x, AY + TickLength);
|
||||
|
||||
//ACanvas.Brush.Assign(FGraphBrush);
|
||||
//ACanvas.Brush.Color := Color;
|
||||
markText := MarkToText(AMark);
|
||||
sz := ACanvas.TextExtent(markText);
|
||||
if Alignment = calTop then
|
||||
dy := -TickLength - 1 - sz.cy
|
||||
else
|
||||
dy := TickLength + 1;
|
||||
ACanvas.TextOut(x - sz.cx div 2, AY + dy, markText);
|
||||
end;
|
||||
|
||||
procedure DrawYMark(AX: Integer; AMark: Double);
|
||||
var
|
||||
dx, y: Integer;
|
||||
markText: String;
|
||||
sz: TSize;
|
||||
begin
|
||||
y := ATransf.YGraphToImage((AMark - Offset) / Scale);
|
||||
|
||||
if Grid.Visible then begin
|
||||
ACanvas.Pen.Assign(Grid);
|
||||
ACanvas.Brush.Style := bsClear;
|
||||
ACanvas.Line(
|
||||
ATransf.XGraphToImage(AExtent.a.X), y,
|
||||
ATransf.XGraphToImage(AExtent.b.X), y);
|
||||
end;
|
||||
|
||||
ACanvas.Pen.Color := TickColor;
|
||||
ACanvas.Pen.Style := psSolid;
|
||||
ACanvas.Pen.Mode := pmCopy;
|
||||
ACanvas.Line(AX - TickLength, y, AX + TickLength, y);
|
||||
|
||||
//ACanvas.Brush.Assign(FGraphBrush);
|
||||
//ACanvas.Brush.Color := Color;
|
||||
markText := MarkToText(AMark);
|
||||
sz := ACanvas.TextExtent(markText);
|
||||
if Alignment = calLeft then
|
||||
dx := -TickLength - 1 - sz.cx
|
||||
else
|
||||
dx := TickLength + 1;
|
||||
ACanvas.TextOut(AX + dx, y - sz.cy div 2, markText)
|
||||
end;
|
||||
|
||||
procedure DoDraw(AMin, AMax: Double);
|
||||
var
|
||||
i, coord: Integer;
|
||||
marks: TDoubleDynArray;
|
||||
begin
|
||||
if AMin = AMax then exit;
|
||||
marks := GetMarks(AMin, AMax);
|
||||
coord := SideByAlignment(ARect, Alignment, FSize);
|
||||
for i := 0 to High(marks) do
|
||||
if IsVertical then
|
||||
DrawYMark(coord, marks[i])
|
||||
else
|
||||
DrawXMark(coord, marks[i]);
|
||||
end;
|
||||
|
||||
begin
|
||||
if not Visible then exit;
|
||||
if IsVertical then
|
||||
DoDraw(AExtent.a.Y, AExtent.b.Y)
|
||||
else
|
||||
DoDraw(AExtent.a.X, AExtent.b.X);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.DrawTitle(
|
||||
ACanvas: TCanvas; const ACenter: TPoint; var ARect: TRect);
|
||||
var
|
||||
p: TPoint;
|
||||
sz: TSize;
|
||||
pbf: TPenBrushFontRecall;
|
||||
begin
|
||||
if not Visible or (FTitleSize = 0) then exit;
|
||||
// FIXME: Angle assumed to be either ~0 or ~90 degrees
|
||||
pbf := TPenBrushFontRecall.Create(ACanvas, [pbfFont]);
|
||||
try
|
||||
ACanvas.Font := Title.Font;
|
||||
sz := ACanvas.TextExtent(Title.Caption);
|
||||
if Title.Font.Orientation >= FONT_SLOPE_VERTICAL then begin
|
||||
Exchange(sz.cx, sz.cy);
|
||||
sz.cy := -sz.cy;
|
||||
end;
|
||||
p.X := ACenter.X - sz.cx div 2;
|
||||
p.Y := ACenter.Y - sz.cy div 2;
|
||||
case Alignment of
|
||||
calLeft: p.X := ARect.Left - FTitleSize;
|
||||
calTop: p.Y := ARect.Top - FTitleSize;
|
||||
calRight: p.X := ARect.Right + Title.Distance;
|
||||
calBottom: p.Y := ARect.Bottom + Title.Distance;
|
||||
end;
|
||||
ACanvas.TextOut(p.X, p.Y, Title.Caption);
|
||||
finally
|
||||
pbf.Free;
|
||||
end;
|
||||
SideByAlignment(ARect, Alignment, FTitleSize);
|
||||
end;
|
||||
|
||||
function TChartAxis.GetDisplayName: string;
|
||||
const
|
||||
SIDE_NAME: array [TChartAxisAlignment] of String =
|
||||
('Left', 'Top', 'Right', 'Bottom');
|
||||
VISIBLE_NAME: array [Boolean] of String = (' Hidden', '');
|
||||
INVERTED_NAME: array [Boolean] of String = ('', ' Inverted');
|
||||
CAPTION_FMT = ' (%s)';
|
||||
begin
|
||||
Result :=
|
||||
SIDE_NAME[Alignment] + VISIBLE_NAME[Visible] + INVERTED_NAME[Inverted];
|
||||
if Title.Caption <> '' then
|
||||
Result += Format(CAPTION_FMT, [Title.Caption]);
|
||||
end;
|
||||
|
||||
function TChartAxis.GetMarks(AMin, AMax: Double): TDoubleDynArray;
|
||||
begin
|
||||
AMin := AMin * Scale + Offset;
|
||||
AMax := AMax * Scale + Offset;
|
||||
if AMin > AMax then
|
||||
Exchange(AMin, AMax);
|
||||
Result := GetIntervals(AMin, AMax, Inverted);
|
||||
end;
|
||||
|
||||
function TChartAxis.IsVertical: Boolean; inline;
|
||||
begin
|
||||
Result := Alignment in [calLeft, calRight];
|
||||
end;
|
||||
|
||||
function TChartAxis.MarkToText(AMark: Double): String;
|
||||
begin
|
||||
Result := MarkToTextDefault(AMark);
|
||||
if Assigned(FOnMarkToText) then
|
||||
FOnMarkToText(Result, AMark);
|
||||
end;
|
||||
|
||||
function TChartAxis.MarkToTextDefault(AMark: Double): String;
|
||||
const
|
||||
EPSILON = 1e-16;
|
||||
begin
|
||||
if Abs(AMark) <= EPSILON then AMark := 0;
|
||||
Result := Trim(FloatToStr(AMark));
|
||||
end;
|
||||
|
||||
procedure TChartAxis.Measure(
|
||||
ACanvas: TCanvas; const AExtent: TDoubleRect;
|
||||
var AMargins: TChartAxisMargins);
|
||||
|
||||
var
|
||||
digitSize: TSize;
|
||||
|
||||
procedure CalcVertSize;
|
||||
var
|
||||
i, maxWidth: Integer;
|
||||
marks: TDoubleDynArray;
|
||||
begin
|
||||
if AExtent.a.Y = AExtent.b.Y then exit;
|
||||
maxWidth := 0;
|
||||
marks := GetMarks(AExtent.a.Y, AExtent.b.Y);
|
||||
for i := 0 to High(marks) do
|
||||
maxWidth := Max(ACanvas.TextWidth(MarkToText(marks[i])), maxWidth);
|
||||
// CalculateTransformationCoeffs changes axis interval, so it is possibile
|
||||
// that a new mark longer then existing ones is introduced.
|
||||
// That will change marks width and reduce view area,
|
||||
// requiring another call to CalculateTransformationCoeffs...
|
||||
// So punt for now and just reserve space for extra digit unconditionally.
|
||||
FSize := maxWidth + digitSize.cx + TickLength;
|
||||
end;
|
||||
|
||||
procedure CalcHorSize;
|
||||
begin
|
||||
if AExtent.a.X = AExtent.b.X then exit;
|
||||
FSize := digitSize.cy + TickLength;
|
||||
end;
|
||||
|
||||
procedure CalcTitleSize;
|
||||
var
|
||||
d: Integer;
|
||||
sz: TSize;
|
||||
pbf: TPenBrushFontRecall;
|
||||
begin
|
||||
if not Title.Visible or (Title.Caption = '') then exit;
|
||||
pbf := TPenBrushFontRecall.Create(ACanvas, [pbfFont]);
|
||||
try
|
||||
ACanvas.Font := Title.Font;
|
||||
sz := ACanvas.TextExtent(Title.Caption);
|
||||
finally
|
||||
pbf.Free;
|
||||
end;
|
||||
if (Title.Font.Orientation < FONT_SLOPE_VERTICAL) = IsVertical then
|
||||
d := sz.cx
|
||||
else
|
||||
d := sz.cy;
|
||||
FTitleSize := d + Title.Distance;
|
||||
end;
|
||||
|
||||
const
|
||||
SOME_DIGIT = '0';
|
||||
begin
|
||||
FSize := 0;
|
||||
FTitleSize := 0;
|
||||
if not Visible then exit;
|
||||
digitSize := ACanvas.TextExtent(SOME_DIGIT);
|
||||
if IsVertical then
|
||||
CalcVertSize
|
||||
else
|
||||
CalcHorSize;
|
||||
CalcTitleSize;
|
||||
AMargins[Alignment] += FSize + FTitleSize;
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetAlignment(AValue: TChartAxisAlignment);
|
||||
begin
|
||||
if FAlignment = AValue then exit;
|
||||
FAlignment := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetGrid(AValue: TChartAxisPen);
|
||||
begin
|
||||
FGrid.Assign(AValue);
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetInverted(AValue: Boolean);
|
||||
begin
|
||||
FInverted := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetOffset(AValue: Double);
|
||||
begin
|
||||
if FOffset = AValue then exit;
|
||||
FOffset := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetOnMarkToText(const AValue: TChartAxisMarkToTextEvent);
|
||||
begin
|
||||
if FOnMarkToText = AValue then exit;
|
||||
FOnMarkToText := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetScale(AValue: Double);
|
||||
begin
|
||||
if FScale = AValue then exit;
|
||||
FScale := AValue;
|
||||
if FScale = 0.0 then
|
||||
FScale := 1.0;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetTickColor(AValue: TColor);
|
||||
begin
|
||||
if FTickColor = AValue then exit;
|
||||
FTickColor := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetTickLength(AValue: Integer);
|
||||
begin
|
||||
if FTickLength = AValue then exit;
|
||||
FTickLength := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetTitle(AValue: TChartAxisTitle);
|
||||
begin
|
||||
FTitle.Assign(AValue);
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.SetVisible(const AValue: Boolean);
|
||||
begin
|
||||
if FVisible = AValue then exit;
|
||||
FVisible := AValue;
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TChartAxis.StyleChanged(ASender: TObject);
|
||||
begin
|
||||
Unused(ASender);
|
||||
(Collection.Owner as TCustomChart).Invalidate;
|
||||
end;
|
||||
|
||||
{ TChartMarks }
|
||||
|
||||
procedure TChartMarks.Assign(Source: TPersistent);
|
||||
@ -1226,52 +695,5 @@ begin
|
||||
StyleChanged(Self);
|
||||
end;
|
||||
|
||||
const
|
||||
AXIS_INDEX: array [1..2] of TChartAxisAlignment = (calBottom, calLeft);
|
||||
|
||||
{ TChartAxisList }
|
||||
|
||||
function TChartAxisList.Add: TChartAxis; inline;
|
||||
begin
|
||||
Result := TChartAxis(inherited Add);
|
||||
end;
|
||||
|
||||
constructor TChartAxisList.Create(AOwner: TCustomChart);
|
||||
begin
|
||||
inherited Create(TChartAxis);
|
||||
FChart := AOwner;
|
||||
end;
|
||||
|
||||
function TChartAxisList.GetAxes(AIndex: Integer): TChartAxis;
|
||||
begin
|
||||
Result := TChartAxis(Items[AIndex]);
|
||||
end;
|
||||
|
||||
function TChartAxisList.GetAxis(AIndex: Integer): TChartAxis;
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
for i := 0 to Count - 1 do
|
||||
if Axes[i].Alignment = AXIS_INDEX[AIndex] then
|
||||
exit(Axes[i]);
|
||||
Result := nil;
|
||||
end;
|
||||
|
||||
function TChartAxisList.GetOwner: TPersistent;
|
||||
begin
|
||||
Result := FChart;
|
||||
end;
|
||||
|
||||
procedure TChartAxisList.SetAxis(AIndex: Integer; AValue: TChartAxis);
|
||||
var
|
||||
a: TChartAxis;
|
||||
begin
|
||||
a := GetAxis(AIndex);
|
||||
if a = nil then
|
||||
a := Add;
|
||||
a.Assign(AValue);
|
||||
a.FAlignment := AXIS_INDEX[AIndex];
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user