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

TAChart: Remove unused GetNewColor and GetRectangle helpers.

Browse Source 
git-svn-id: trunk@22088 -
This commit is contained in:
ask 2009-10-09 15:20:13 +00:00
parent 90089bdbaa
commit 9d3143eed4
1 changed files with 4 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/tachart/tagraph.pas
View File

@ -200,8 +200,9 @@ type
procedure SetChildOrder(Child: TComponent; Order: Integer); override;
public // Helpers for series drawing
function GetNewColor: TColor;
function GetRectangle: TRect;
procedure DrawLineHoriz(ACanvas: TCanvas; AY: Integer);
procedure DrawLineVert(ACanvas: TCanvas; AX: Integer);
procedure DrawOnCanvas(Rect: TRect; ACanvas: TCanvas); deprecated;
function IsPointInViewPort(const AP: TDoublePoint): Boolean;
public
@ -209,9 +210,6 @@ type
procedure ClearSeries;
procedure CopyToClipboardBitmap;
procedure DeleteSeries(ASeries: TBasicChartSeries);
procedure DrawLineHoriz(ACanvas: TCanvas; AY: Integer);
procedure DrawLineVert(ACanvas: TCanvas; AX: Integer);
procedure DrawOnCanvas(Rect: TRect; ACanvas: TCanvas);
procedure PaintOnCanvas(ACanvas: TCanvas; ARect: TRect);
procedure SaveToBitmapFile(const AFileName: String); inline;
procedure SaveToFile(AClass: TRasterImageClass; const AFileName: String);
@ -753,7 +751,7 @@ begin
try
Result.Width := Width;
Result.Height := Height;
PaintOnCanvas(Result.Canvas, GetRectangle);
PaintOnCanvas(Result.Canvas, Rect(0, 0, Width, Height));
except
Result.Free;
raise;
@ -940,33 +938,6 @@ begin
FOnDrawReticule(Self, ASeriesIndex, AIndex, AImg, AData);
end;
function TChart.GetNewColor: TColor;
var
i, j: Integer;
ColorFound: Boolean;
begin
for i := 1 to High(Colors) do begin
ColorFound := false;
for j := 0 to SeriesCount - 1 do begin
if Series[j].SeriesColor = Colors[i] then
ColorFound := true;
end;
if not ColorFound then begin
Result := Colors[i];
exit;
end;
end;
Result := RGB(Random(255), Random(255), Random(255));
end;
function TChart.GetRectangle: TRect;
begin
Result.Left := 0;
Result.Top := 0;
Result.Right := Width;
Result.Bottom := Height;
end;
procedure TChart.SetLegend(Value: TChartLegend);
begin
FLegend.Assign(Value);