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

TAChart: Minor style fixes

Browse Source 
git-svn-id: trunk@32687 -
This commit is contained in:
ask 2011-10-05 03:43:10 +00:00
parent 7f7d57f048
commit 26c0ae0c8a
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/tachartaxisutils.pas
View File

@ -86,8 +86,8 @@ type
TCustomChartAxisMarks = class(TBasicChartAxisMarks) TCustomChartAxisMarks = class(TBasicChartAxisMarks)
strict private strict private
FDefaultSource: TIntervalChartSource;
FDefaultListener: TListener; FDefaultListener: TListener;
FDefaultSource: TIntervalChartSource;
FStripes: TChartStyles; FStripes: TChartStyles;
procedure SetStripes(AValue: TChartStyles); procedure SetStripes(AValue: TChartStyles);
strict protected strict protected
@ -195,14 +195,16 @@ type
{ TAxisDrawHelper } { TAxisDrawHelper }
TAxisDrawHelper = class TAxisDrawHelper = class
strict private
FPrevLabelPoly: TPointArray;
strict protected strict protected
procedure BarZ(AX1, AY1, AX2, AY2: Integer); inline; procedure BarZ(AX1, AY1, AX2, AY2: Integer); inline;
procedure InternalAxisLine(
APen: TChartPen; const AStart, AEnd: TPoint; AAngle: Double);
procedure DrawLabel(ALabelCenter: TPoint; const AText: String); inline; procedure DrawLabel(ALabelCenter: TPoint; const AText: String); inline;
procedure DrawLabelAndTick( procedure DrawLabelAndTick(
ACoord, AFixedCoord: Integer; const AText: String); virtual; abstract; ACoord, AFixedCoord: Integer; const AText: String); virtual; abstract;
procedure GridLine(ACoord: Integer); virtual; abstract; procedure GridLine(ACoord: Integer); virtual; abstract;
procedure InternalAxisLine(
APen: TChartPen; const AStart, AEnd: TPoint; AAngle: Double);
function IsInClipRange(ACoord: Integer): Boolean; function IsInClipRange(ACoord: Integer): Boolean;
procedure LineZ(AP1, AP2: TPoint); inline; procedure LineZ(AP1, AP2: TPoint); inline;
function TryApplyStripes: Boolean; inline; function TryApplyStripes: Boolean; inline;
@ -212,7 +214,6 @@ type
FClipRect: ^TRect; FClipRect: ^TRect;
FDrawer: IChartDrawer; FDrawer: IChartDrawer;
FPrevCoord: Integer; FPrevCoord: Integer;
FPrevLabelPoly: TPointArray;
FScaledTickLength: Integer; FScaledTickLength: Integer;
FStripeIndex: Cardinal; FStripeIndex: Cardinal;
FTransf: ICoordTransformer; FTransf: ICoordTransformer;
@ -237,7 +238,7 @@ type
{ TAxisDrawHelperX } { TAxisDrawHelperX }
TAxisDrawHelperX = class(TAxisDrawHelper) TAxisDrawHelperX = class(TAxisDrawHelper)
protected strict protected
procedure DrawLabelAndTick( procedure DrawLabelAndTick(
ACoord, AFixedCoord: Integer; const AText: String); override; ACoord, AFixedCoord: Integer; const AText: String); override;
procedure GridLine(ACoord: Integer); override; procedure GridLine(ACoord: Integer); override;
@ -252,7 +253,7 @@ type
{ TAxisDrawHelperY } { TAxisDrawHelperY }
TAxisDrawHelperY = class(TAxisDrawHelper) TAxisDrawHelperY = class(TAxisDrawHelper)
protected strict protected
procedure DrawLabelAndTick( procedure DrawLabelAndTick(
ACoord, AFixedCoord: Integer; const AText: String); override; ACoord, AFixedCoord: Integer; const AText: String); override;
procedure GridLine(ACoord: Integer); override; procedure GridLine(ACoord: Integer); override;
@ -307,7 +308,7 @@ end;
constructor TAxisDrawHelper.Create; constructor TAxisDrawHelper.Create;
begin begin
inherited; inherited; // Empty -- just to enforce a virtual constructor.
end; end;
procedure TAxisDrawHelper.DrawLabel(ALabelCenter: TPoint; const AText: String); procedure TAxisDrawHelper.DrawLabel(ALabelCenter: TPoint; const AText: String);