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

Merged revision(s) 51676 #dea4ec5cee from trunk:

Browse Source 
TAChart: Remove hints and warnings (issue #0029709)
........

git-svn-id: branches/fixes_1_6@52011 -
This commit is contained in:
maxim 2016-03-21 21:23:58 +00:00
parent 20b0781512
commit cc3b879102
4 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartaxis.pas
View File

@ -351,7 +351,7 @@ end;
function TChartMinorAxis.GetMarks: TChartMinorAxisMarks;
begin
Result := TChartMinorAxisMarks(inherited Marks);
end;
end{%H-}; // to silence the compiler warning of impossible inherited inside inline proc
function TChartMinorAxis.GetMarkValues(AMin, AMax: Double): TChartValueTextArray;
var
@ -562,7 +562,7 @@ end;
function TChartAxis.GetMarks: TChartAxisMarks;
begin
Result := TChartAxisMarks(inherited Marks);
end;
end{%H-}; // to silence the compiler warning of impossible inherited inside inline proc
procedure TChartAxis.GetMarkValues;
var
@ -1005,7 +1005,7 @@ end;
function TChartAxisList.Add: TChartAxis; inline;
begin
Result := TChartAxis(inherited Add);
end;
end{%H-};
constructor TChartAxisList.Create(AOwner: TCustomChart);
begin

2
components/tachart/tachartteechart.pas
View File

@ -172,7 +172,7 @@ function THorizBarSeries.AddXY(
AX, AY: Double; AXLabel: String; AColor: TChartColor): Integer;
begin
Result := inherited AddXY(AY, AX, AXLabel, AColor);
end;
end{%H-}; // to silence the compiler warning of impossible inline of inherited method
constructor THorizBarSeries.Create(AOwner: TComponent);
begin

2
components/tachart/tachartutils.pas
View File

@ -566,7 +566,7 @@ end;
procedure THistory.DeleteOld(ACount: Integer);
begin
FCount -= ACount;
Move(FData[ACount], FData[0], SizeOf(FData[0]) * FCount);
Move(FData[ACount], FData[0], SizeInt(FCount) * SizeOf(FData[0]));
end;
function THistory.GetCapacity: Cardinal;

14
components/tachart/tadiagram.pas
View File

@ -73,6 +73,8 @@ type
procedure Add(ADecorator: IDiaDecorator);
public
constructor Create(AOwner: TDiaObject);
procedure Changed(ASender: TDiaObject); override;
procedure Notify(ASender: TDiaObject); override;
property Owner: TDiaObject read FOwner;
function GetEnumerator: TDiaDecoratorEnumerator;
end;
@ -454,11 +456,23 @@ begin
FOwner := AOwner;
end;
procedure TDiaDecoratorList.Changed(ASender: TDiaObject);
begin
// Remove compiler warning of abstract method
Unused(ASender);
end;
function TDiaDecoratorList.GetEnumerator: TDiaDecoratorEnumerator;
begin
Result := TDiaDecoratorEnumerator.Create(Self);
end;
procedure TDiaDecoratorList.Notify(ASender: TDiaObject);
begin
// Remove compiler warning of abstract method
Unused(ASender);
end;
{ TDiaDecorator }
constructor TDiaDecorator.Create(AOwner: TDiaDecoratorList);