paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:39:31 +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;
end;
TCustomChartAxisTitle = specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>;
{ TChartAxisTitle }
TChartAxisTitle = class(
specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>)
TChartAxisTitle = class(TCustomChartAxisTitle)
private
FCaption: String;
@ -83,10 +84,11 @@ type
property Style default psDot;
end;
TCustomChartAxisMarks = specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>;
{ TChartAxisMarks }
TChartAxisMarks = class(
specialize TGenericChartMarks<TChartAxisBrush, TChartPen, TChartAxisFramePen>)
TChartAxisMarks = class(TCustomChartAxisMarks)
private
FAtDataOnly: Boolean;
FDefaultSource: TIntervalChartSource;

4
components/tachart/tatypes.pas
View File

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