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

TAChart: Add TChartStyle.Text property

Browse Source 
git-svn-id: trunk@37526 -
This commit is contained in:
ask 2012-06-05 08:21:50 +00:00
parent 8d53e7ceb4
commit e930d4c8e4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tastyles.pas
View File

@ -31,11 +31,13 @@ type
FBrush: TBrush;
FPen: TPen;
FRepeatCount: Cardinal;
FText: String;
FUseBrush: Boolean;
FUsePen: Boolean;
procedure SetBrush(AValue: TBrush);
procedure SetPen(AValue: TPen);
procedure SetRepeatCount(AValue: Cardinal);
procedure SetText(AValue: String);
procedure SetUseBrush(AValue: Boolean);
procedure SetUsePen(AValue: Boolean);
procedure StyleChanged(ASender: TObject);
@ -52,6 +54,7 @@ type
property Pen: TPen read FPen write SetPen;
property RepeatCount: Cardinal
read FRepeatCount write SetRepeatCount default 1;
property Text: String read FText write SetText;
property UseBrush: Boolean read FUseBrush write SetUseBrush default true;
property UsePen: Boolean read FUsePen write SetUsePen default true;
end;
@ -176,6 +179,13 @@ begin
StyleChanged(Self);
end;
procedure TChartStyle.SetText(AValue: String);
begin
if FText = AValue then exit;
FText := AValue;
StyleChanged(Self);
end;
procedure TChartStyle.SetUseBrush(AValue: Boolean);
begin
if FUseBrush = AValue then exit;