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

components: reduce hints in tachart package

Browse Source 
git-svn-id: trunk@17378 -
This commit is contained in:
paul 2008-11-14 02:10:29 +00:00
parent 0e7efda9d0
commit acf0fa16a8
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tagraph.pas
View File

@ -1775,8 +1775,6 @@ begin
end; end;
procedure TChart.DrawOnCanvas(Rect: TRect; ACanvas: TCanvas); procedure TChart.DrawOnCanvas(Rect: TRect; ACanvas: TCanvas);
var
tmpCanvas : TCanvas;
begin begin
PaintOnCanvas(ACanvas, Rect); PaintOnCanvas(ACanvas, Rect);
end; end;
@ -1787,8 +1785,6 @@ procedure TChart.DisplaySeries(ACanvas: TCanvas);
var var
i: Integer; i: Integer;
Serie: TChartSeries; Serie: TChartSeries;
Rgn: HRGN;
p: array[0..1] of TPoint;
begin begin
if FSeries.Count = 0 then exit; if FSeries.Count = 0 then exit;
@ -1827,8 +1823,8 @@ end;
procedure TChart.GetPointNextTo( procedure TChart.GetPointNextTo(
X, Y: Integer; var SerieNumberOut, PointNumberOut, XOut, YOut: Integer); X, Y: Integer; var SerieNumberOut, PointNumberOut, XOut, YOut: Integer);
var var
j, k, XPoint, YPoint, SerieNumber, PointNumber: Integer; XPoint, YPoint, SerieNumber, PointNumber: Integer;
Mini, Dist, Xg, Yg, XgOut, YgOut: Double; Mini, Dist, XgOut, YgOut: Double;
Serie: TComponent; Serie: TComponent;
TASerie: TSerie; TASerie: TSerie;
T1, T2: Double; T1, T2: Double;
@ -1863,7 +1859,7 @@ end;
procedure TChart.GetXPointNextTo( procedure TChart.GetXPointNextTo(
X, Y: Integer; var SerieNumberOut, PointNumberOut, XOut, YOut: Integer); X, Y: Integer; var SerieNumberOut, PointNumberOut, XOut, YOut: Integer);
var var
j, k, XPoint, YPoint, SerieNumber, PointNumber: Integer; XPoint, SerieNumber, PointNumber: Integer;
Mini, Dist, Xg, Yg: Double; Mini, Dist, Xg, Yg: Double;
Serie: TComponent; Serie: TComponent;
TASerie: TSerie; TASerie: TSerie;
@ -1896,8 +1892,8 @@ end;
procedure TChart.GetYPointNextTo( procedure TChart.GetYPointNextTo(
X, Y: Integer; var SerieNumberOut, PointNumberOut, XOut, YOut: Integer); X, Y: Integer; var SerieNumberOut, PointNumberOut, XOut, YOut: Integer);
var var
j, k, XPoint, YPoint, SerieNumber, PointNumber: Integer; XPoint, YPoint, SerieNumber, PointNumber: Integer;
Mini, Dist, Xg, Yg: Double; Mini, Dist: Double;
Serie: TComponent; Serie: TComponent;
TASerie: TSerie; TASerie: TSerie;
begin begin