paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 02:12:35 +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 = class(TComponent)
protected
public
function Dispatch(
AChart: TChart; AEventId: TChartToolEventId;
AShift: TShiftState; APoint: TPoint): Boolean; virtual; abstract; overload;
@ -413,7 +413,8 @@ begin
end;
end;
procedure RegisterSeriesClass(ASeriesClass: TSeriesClass; const ACaption: string);
procedure RegisterSeriesClass(
ASeriesClass: TSeriesClass; const ACaption: String);
begin
if SeriesClassRegistry.IndexOfObject(TObject(ASeriesClass)) < 0 then
SeriesClassRegistry.AddObject(ACaption, TObject(ASeriesClass));
@ -1031,11 +1032,8 @@ begin
end;
procedure TChart.PaintOnCanvas(ACanvas: TCanvas; ARect: TRect);
var
drawer: IChartDrawer;
begin
drawer := TCanvasDrawer.Create(ACanvas);
Draw(drawer, ARect);
Draw(TCanvasDrawer.Create(ACanvas), ARect);
end;
procedure TChart.PrepareAxis(ADrawer: IChartDrawer);

2
components/tachart/tatools.pas
View File

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