paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:59:17 +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; FBrush: TBrush;
FPen: TPen; FPen: TPen;
FRepeatCount: Cardinal; FRepeatCount: Cardinal;
FText: String;
FUseBrush: Boolean; FUseBrush: Boolean;
FUsePen: Boolean; FUsePen: Boolean;
procedure SetBrush(AValue: TBrush); procedure SetBrush(AValue: TBrush);
procedure SetPen(AValue: TPen); procedure SetPen(AValue: TPen);
procedure SetRepeatCount(AValue: Cardinal); procedure SetRepeatCount(AValue: Cardinal);
procedure SetText(AValue: String);
procedure SetUseBrush(AValue: Boolean); procedure SetUseBrush(AValue: Boolean);
procedure SetUsePen(AValue: Boolean); procedure SetUsePen(AValue: Boolean);
procedure StyleChanged(ASender: TObject); procedure StyleChanged(ASender: TObject);
@ -52,6 +54,7 @@ type
property Pen: TPen read FPen write SetPen; property Pen: TPen read FPen write SetPen;
property RepeatCount: Cardinal property RepeatCount: Cardinal
read FRepeatCount write SetRepeatCount default 1; read FRepeatCount write SetRepeatCount default 1;
property Text: String read FText write SetText;
property UseBrush: Boolean read FUseBrush write SetUseBrush default true; property UseBrush: Boolean read FUseBrush write SetUseBrush default true;
property UsePen: Boolean read FUsePen write SetUsePen default true; property UsePen: Boolean read FUsePen write SetUsePen default true;
end; end;
@ -176,6 +179,13 @@ begin
StyleChanged(Self); StyleChanged(Self);
end; end;
procedure TChartStyle.SetText(AValue: String);
begin
if FText = AValue then exit;
FText := AValue;
StyleChanged(Self);
end;
procedure TChartStyle.SetUseBrush(AValue: Boolean); procedure TChartStyle.SetUseBrush(AValue: Boolean);
begin begin
if FUseBrush = AValue then exit; if FUseBrush = AValue then exit;