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

TAChart: Sort class members

Browse Source 
git-svn-id: trunk@20221 -
This commit is contained in:
ask 2009-05-26 02:59:54 +00:00
parent 7ee8494e64
commit e80e98c3cc
1 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
components/tachart/taseries.pas
View File

@ -95,11 +95,11 @@ type
private private
FPrevLabelRect: TRect; FPrevLabelRect: TRect;
protected protected
procedure UpdateMargins(ACanvas: TCanvas; var AMargins: TRect); override;
procedure DrawLabel( procedure DrawLabel(
ACanvas: TCanvas; AIndex: Integer; const ADataPoint: TPoint; ACanvas: TCanvas; AIndex: Integer; const ADataPoint: TPoint;
ADown: Boolean); ADown: Boolean);
procedure DrawLabels(ACanvas: TCanvas; ADrawDown: Boolean); procedure DrawLabels(ACanvas: TCanvas; ADrawDown: Boolean);
procedure UpdateMargins(ACanvas: TCanvas; var AMargins: TRect); override;
end; end;
{ TBarSeries } { TBarSeries }
@ -113,9 +113,9 @@ type
procedure ExamineAllBarSeries(out ATotalNumber, AMyPos: Integer); procedure ExamineAllBarSeries(out ATotalNumber, AMyPos: Integer);
procedure SetAdjustBarWidth(AValue: Boolean); procedure SetAdjustBarWidth(AValue: Boolean);
procedure SetBarWidthPercent(Value: Integer);
procedure SetBarBrush(Value: TBrush); procedure SetBarBrush(Value: TBrush);
procedure SetBarPen(Value: TPen); procedure SetBarPen(Value: TPen);
procedure SetBarWidthPercent(Value: Integer);
protected protected
procedure DrawLegend(ACanvas: TCanvas; const ARect: TRect); override; procedure DrawLegend(ACanvas: TCanvas; const ARect: TRect); override;
function GetSeriesColor: TColor; override; function GetSeriesColor: TColor; override;
@ -159,14 +159,14 @@ type
TAreaSeries = class(TBasicPointSeries) TAreaSeries = class(TBasicPointSeries)
private private
FAreaLinesPen: TChartPen;
FAreaBrush: TBrush; FAreaBrush: TBrush;
FStairs: Boolean; FAreaLinesPen: TChartPen;
FInvertedStairs: Boolean; FInvertedStairs: Boolean;
FStairs: Boolean;
procedure SetAreaBrush(Value: TBrush); procedure SetAreaBrush(Value: TBrush);
procedure SetStairs(Value: Boolean);
procedure SetInvertedStairs(Value: Boolean); procedure SetInvertedStairs(Value: Boolean);
procedure SetStairs(Value: Boolean);
protected protected
procedure DrawLegend(ACanvas: TCanvas; const ARect: TRect); override; procedure DrawLegend(ACanvas: TCanvas; const ARect: TRect); override;
function GetSeriesColor: TColor; override; function GetSeriesColor: TColor; override;
@ -177,8 +177,8 @@ type
procedure Draw(ACanvas: TCanvas); override; procedure Draw(ACanvas: TCanvas); override;
published published
property AreaLinesPen: TChartPen read FAreaLinesPen write FAreaLinesPen;
property AreaBrush: TBrush read FAreaBrush write SetAreaBrush; property AreaBrush: TBrush read FAreaBrush write SetAreaBrush;
property AreaLinesPen: TChartPen read FAreaLinesPen write FAreaLinesPen;
property Depth; property Depth;
property InvertedStairs: Boolean property InvertedStairs: Boolean
read FInvertedStairs write SetInvertedStairs default false; read FInvertedStairs write SetInvertedStairs default false;
@ -204,15 +204,14 @@ type
private private
FOnDrawPointer: TSeriesPointerDrawEvent; FOnDrawPointer: TSeriesPointerDrawEvent;
FPointer: TSeriesPointer; FPointer: TSeriesPointer;
FStyle: TPenStyle;
FSeriesColor: TColor; FSeriesColor: TColor;
FShowPoints: Boolean;
FShowLines: Boolean; FShowLines: Boolean;
FShowPoints: Boolean;
FStyle: TPenStyle;
procedure SetShowPoints(Value: Boolean);
procedure SetShowLines(Value: Boolean);
procedure SetPointer(Value: TSeriesPointer); procedure SetPointer(Value: TSeriesPointer);
procedure SetShowLines(Value: Boolean);
procedure SetShowPoints(Value: Boolean);
protected protected
procedure AfterAdd; override; procedure AfterAdd; override;
function GetNearestPoint( function GetNearestPoint(
@ -226,21 +225,21 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Draw(ACanvas: TCanvas); override; procedure Draw(ACanvas: TCanvas); override;
function GetColor(AIndex: Integer): TColor;
procedure GetMax(out X, Y: Double);
procedure GetMin(out X, Y: Double);
function GetXImgValue(AIndex: Integer): Integer;
function GetXMax: Double;
function GetXMin: Double;
function GetXValue(AIndex: Integer): Double; function GetXValue(AIndex: Integer): Double;
function GetYImgValue(AIndex: Integer): Integer;
function GetYMax: Double;
function GetYMin: Double;
function GetYValue(AIndex: Integer): Double; function GetYValue(AIndex: Integer): Double;
procedure SetColor(AIndex: Integer; AColor: TColor);
procedure SetXValue(AIndex: Integer; AValue: Double); inline; procedure SetXValue(AIndex: Integer; AValue: Double); inline;
procedure SetYValue(AIndex: Integer; AValue: Double); inline; procedure SetYValue(AIndex: Integer; AValue: Double); inline;
function GetXImgValue(AIndex: Integer): Integer; public
function GetYImgValue(AIndex: Integer): Integer;
procedure GetMin(out X, Y: Double);
procedure GetMax(out X, Y: Double);
function GetXMin: Double;
function GetXMax: Double;
function GetYMin: Double;
function GetYMax: Double;
procedure SetColor(AIndex: Integer; AColor: TColor);
function GetColor(AIndex: Integer): TColor;
procedure BeginUpdate; procedure BeginUpdate;
procedure EndUpdate; procedure EndUpdate;
published published
@ -264,9 +263,9 @@ type
TLine = class(TBasicLineSeries) TLine = class(TBasicLineSeries)
private private
FLineStyle: TLineStyle;
FPen: TPen; FPen: TPen;
FPosGraph: Double; // Graph coordinates of line FPosGraph: Double; // Graph coordinates of line
FLineStyle: TLineStyle;
FUseBounds: Boolean; FUseBounds: Boolean;
procedure SetLineStyle(AValue: TLineStyle); procedure SetLineStyle(AValue: TLineStyle);
@ -333,8 +332,8 @@ type
published published
property Active default true; property Active default true;
property Extent: TChartExtent read FExtent write SetExtent; property Extent: TChartExtent read FExtent write SetExtent;
property Pen: TChartPen read FPen write SetPen;
property OnCalculate: TFuncCalculateEvent read FOnCalculate write SetOnCalculate; property OnCalculate: TFuncCalculateEvent read FOnCalculate write SetOnCalculate;
property Pen: TChartPen read FPen write SetPen;
property ShowInLegend; property ShowInLegend;
property Step: TFuncSeriesStep read FStep write SetStep default 2; property Step: TFuncSeriesStep read FStep write SetStep default 2;
property Title; property Title;