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

TAChart: Simplified syntax for adding a new item to TChartStyles by code.

Browse Source 
git-svn-id: trunk@58574 -
This commit is contained in:
wp 2018-07-19 12:48:57 +00:00
parent 17e457c8df
commit 12d731ca1f
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tastyles.pas
View File

@ -93,6 +93,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
public
function Add: TChartStyle;
procedure Apply(ADrawer: IChartDrawer; AIndex: Cardinal); overload;
function StyleByIndex(AIndex: Cardinal): TChartStyle;
property Broadcaster: TBroadcaster read FBroadcaster;
@ -256,6 +257,11 @@ end;
{ TChartStyles }
function TChartStyles.Add: TChartStyle;
begin
Result := TChartStyle(FStyles.Add);
end;
procedure TChartStyles.Apply(ADrawer: IChartDrawer; AIndex: Cardinal);
var
style: TChartStyle;