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

TAChart: Update chart after a change of Transform.Enabled

Browse Source 
git-svn-id: trunk@24509 -
This commit is contained in:
ask 2010-04-08 13:15:10 +00:00
parent bc0ebc593b
commit e1e2609bb3
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tatransformations.pas
View File

@ -36,6 +36,7 @@ type
private private
FEnabled: Boolean; FEnabled: Boolean;
FTransformations: TChartAxisTransformations; FTransformations: TChartAxisTransformations;
procedure SetEnabled(AValue: Boolean);
procedure SetTransformations(AValue: TChartAxisTransformations); procedure SetTransformations(AValue: TChartAxisTransformations);
protected protected
procedure ReadState(Reader: TReader); override; procedure ReadState(Reader: TReader); override;
@ -58,7 +59,7 @@ type
property Transformations: TChartAxisTransformations property Transformations: TChartAxisTransformations
read FTransformations write SetTransformations; read FTransformations write SetTransformations;
published published
property Enabled: Boolean read FEnabled write FEnabled default true; property Enabled: Boolean read FEnabled write SetEnabled default true;
end; end;
TAxisTransformClass = class of TAxisTransform; TAxisTransformClass = class of TAxisTransform;
@ -325,6 +326,13 @@ begin
Transformations := Reader.Parent as TChartAxisTransformations; Transformations := Reader.Parent as TChartAxisTransformations;
end; end;
procedure TAxisTransform.SetEnabled(AValue: Boolean);
begin
if FEnabled = AValue then exit;
FEnabled := AValue;
Changed;
end;
procedure TAxisTransform.SetIndex(AValue: Integer); procedure TAxisTransform.SetIndex(AValue: Integer);
begin begin
with Transformations.List do with Transformations.List do