paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 18:39:52 +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; function TChartMinorAxis.GetMarks: TChartMinorAxisMarks;
begin begin
Result := TChartMinorAxisMarks(inherited Marks); 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; function TChartMinorAxis.GetMarkValues(AMin, AMax: Double): TChartValueTextArray;
var var
@ -562,7 +562,7 @@ end;
function TChartAxis.GetMarks: TChartAxisMarks; function TChartAxis.GetMarks: TChartAxisMarks;
begin begin
Result := TChartAxisMarks(inherited Marks); Result := TChartAxisMarks(inherited Marks);
end; end{%H-}; // to silence the compiler warning of impossible inherited inside inline proc
procedure TChartAxis.GetMarkValues; procedure TChartAxis.GetMarkValues;
var var
@ -1005,7 +1005,7 @@ end;
function TChartAxisList.Add: TChartAxis; inline; function TChartAxisList.Add: TChartAxis; inline;
begin begin
Result := TChartAxis(inherited Add); Result := TChartAxis(inherited Add);
end; end{%H-};
constructor TChartAxisList.Create(AOwner: TCustomChart); constructor TChartAxisList.Create(AOwner: TCustomChart);
begin begin

2
components/tachart/tachartteechart.pas
View File

@ -172,7 +172,7 @@ function THorizBarSeries.AddXY(
AX, AY: Double; AXLabel: String; AColor: TChartColor): Integer; AX, AY: Double; AXLabel: String; AColor: TChartColor): Integer;
begin begin
Result := inherited AddXY(AY, AX, AXLabel, AColor); 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); constructor THorizBarSeries.Create(AOwner: TComponent);
begin begin

2
components/tachart/tachartutils.pas
View File

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

14
components/tachart/tadiagram.pas
View File

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