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

TAChart: Remove Offset and Scale properties from Axis,

Browse Source 
since they are superceded by Transformation.

git-svn-id: trunk@23241 -
This commit is contained in:
ask 2009-12-23 15:04:08 +00:00
parent 4f2de1c04c
commit 96170987f3
1 changed files with 12 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
components/tachart/tachartaxis.pas
View File

@ -118,9 +118,7 @@ type
FAlignment: TChartAxisAlignment;
FGrid: TChartAxisPen;
FInverted: Boolean;
FOffset: Double;
FOnMarkToText: TChartAxisMarkToTextEvent;
FScale: Double;
FTickColor: TColor;
FTickLength: Integer;
FTitle: TChartAxisTitle;
@ -130,9 +128,7 @@ type
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);
@ -164,8 +160,6 @@ type
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;
@ -204,7 +198,7 @@ type
implementation
uses
Math;
LResources, Math;
const
FONT_SLOPE_VERTICAL = 45 * 10;
@ -283,7 +277,6 @@ begin
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);
@ -552,13 +545,6 @@ begin
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;
@ -566,15 +552,6 @@ begin
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;
@ -745,5 +722,16 @@ begin
Changed;
end;
procedure SkipObsoleteAxisProperties;
const
TRANSFORM_NOTE = 'Obsolete, use Transformation instead';
begin
RegisterPropertyToSkip(TChartAxis, 'Offset', TRANSFORM_NOTE, '');
RegisterPropertyToSkip(TChartAxis, 'Scale', TRANSFORM_NOTE, '');
end;
initialization
SkipObsoleteAxisProperties;
end.