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

TAChart: Minor style fixes

Browse Source 
git-svn-id: trunk@30526 -
This commit is contained in:
ask 2011-05-02 12:08:44 +00:00
parent 70ab11beed
commit 88604dfc35
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tagraph.pas
View File

@ -108,7 +108,7 @@ type
{ TBasicChartToolset } { TBasicChartToolset }
TBasicChartToolset = class(TComponent) TBasicChartToolset = class(TComponent)
protected public
function Dispatch( function Dispatch(
AChart: TChart; AEventId: TChartToolEventId; AChart: TChart; AEventId: TChartToolEventId;
AShift: TShiftState; APoint: TPoint): Boolean; virtual; abstract; overload; AShift: TShiftState; APoint: TPoint): Boolean; virtual; abstract; overload;
@ -413,7 +413,8 @@ begin
end; end;
end; end;
procedure RegisterSeriesClass(ASeriesClass: TSeriesClass; const ACaption: string); procedure RegisterSeriesClass(
ASeriesClass: TSeriesClass; const ACaption: String);
begin begin
if SeriesClassRegistry.IndexOfObject(TObject(ASeriesClass)) < 0 then if SeriesClassRegistry.IndexOfObject(TObject(ASeriesClass)) < 0 then
SeriesClassRegistry.AddObject(ACaption, TObject(ASeriesClass)); SeriesClassRegistry.AddObject(ACaption, TObject(ASeriesClass));
@ -1031,11 +1032,8 @@ begin
end; end;
procedure TChart.PaintOnCanvas(ACanvas: TCanvas; ARect: TRect); procedure TChart.PaintOnCanvas(ACanvas: TCanvas; ARect: TRect);
var
drawer: IChartDrawer;
begin begin
drawer := TCanvasDrawer.Create(ACanvas); Draw(TCanvasDrawer.Create(ACanvas), ARect);
Draw(drawer, ARect);
end; end;
procedure TChart.PrepareAxis(ADrawer: IChartDrawer); procedure TChart.PrepareAxis(ADrawer: IChartDrawer);

2
components/tachart/tatools.pas
View File

@ -326,9 +326,9 @@ type
procedure MouseMove(APoint: TPoint); override; procedure MouseMove(APoint: TPoint); override;
published published
property ActiveCursor; property ActiveCursor;
property OnHint: TChartToolHintEvent read FOnHint write FOnHint;
property UseDefaultHintText: Boolean property UseDefaultHintText: Boolean
read FUseDefaultHintText write FUseDefaultHintText default true; read FUseDefaultHintText write FUseDefaultHintText default true;
property OnHint: TChartToolHintEvent read FOnHint write FOnHint;
end; end;
{ TReticuleTool } { TReticuleTool }