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

TAChart: Improve workaround for issue #18549

Browse Source 
git-svn-id: trunk@30145 -
This commit is contained in:
ask 2011-04-03 09:09:42 +00:00
parent e962d7654e
commit 8a6c858e38
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tatypes.pas
View File

@ -121,11 +121,14 @@ type
TChartMarkAttachment = (maDefault, maEdge, maCenter);
{$IFNDEF fpdoc} // Workaround for issue #18549.
{ TGenericChartMarks }
{$IFNDEF fpdoc} // Workaround for issue #18549.
generic TGenericChartMarks<_TLabelBrush, _TLinkPen, _TFramePen> =
class(TChartElement)
{$ELSE}
TGenericChartMarks = class(TChartElement)
{$ENDIF}
private
procedure AddMargins(ADrawer: IChartDrawer; var ASize: TPoint);
function GetDistanceToCenter: Boolean;
@ -192,7 +195,6 @@ type
property LabelFont: TFont read FLabelFont write SetLabelFont;
property Visible default true;
end;
{$ENDIF}
TChartLinkPen = class(TChartPen)
published
@ -204,8 +206,10 @@ type
property Color default clYellow;
end;
{$IFNDEF fpdoc} // Workaround for issue #18549.
TCustomChartMarks =
specialize TGenericChartMarks<TChartLabelBrush, TChartLinkPen, TChartPen>;
{$ENDIF}
{ TChartMarks }