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

tachart: fix compilation with recent fpc generics change

Browse Source 
git-svn-id: trunk@28501 -
This commit is contained in:
paul 2010-11-26 14:45:05 +00:00
parent 9eb142f295
commit ec782c1a72
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tachartaxis.pas
View File

@ -42,10 +42,11 @@ type
property Style default psClear; property Style default psClear;
end; end;
TCustomChartAxisTitle = specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>;
{ TChartAxisTitle } { TChartAxisTitle }
TChartAxisTitle = class( TChartAxisTitle = class(TCustomChartAxisTitle)
specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>)
private private
FCaption: String; FCaption: String;
@ -83,10 +84,11 @@ type
property Style default psDot; property Style default psDot;
end; end;
TCustomChartAxisMarks = specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>;
{ TChartAxisMarks } { TChartAxisMarks }
TChartAxisMarks = class( TChartAxisMarks = class(TCustomChartAxisMarks)
specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>)
private private
FAtDataOnly: Boolean; FAtDataOnly: Boolean;
FDefaultSource: TIntervalChartSource; FDefaultSource: TIntervalChartSource;

4
components/tachart/tatypes.pas
View File

@ -183,10 +183,10 @@ type
property Color default clYellow; property Color default clYellow;
end; end;
TCustomChartMarks = specialize TGenericChartMarks<TChartLabelBrush, TChartLinkPen, TChartPen>;
{ TChartMarks } { TChartMarks }
TChartMarks = class( TChartMarks = class(TCustomChartMarks)
specialize TGenericChartMarks<TChartLabelBrush, TChartLinkPen, TChartPen>)
public public
constructor Create(AOwner: TCustomChart); constructor Create(AOwner: TCustomChart);
published published