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

TAChart: Move notificaction mechanism from TCustomChartSource to its new parent TBasicChartSource.

Browse Source 
git-svn-id: trunk@51599 -
This commit is contained in:
wp 2016-02-11 21:00:47 +00:00
parent 602ffd06d0
commit 69e99f6102
1 changed files with 55 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
components/tachart/tacustomsource.pas
View File

@ -128,6 +128,21 @@ type
function ToImage(AX: Double): Integer; inline;
end;
TBasicChartSource = class(TComponent)
strict private
FBroadcaster: TBroadcaster;
FUpdateCount: Integer;
strict protected
procedure Notify;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure BeginUpdate;
procedure EndUpdate; virtual;
function IsUpdating: Boolean; inline;
property Broadcaster: TBroadcaster read FBroadcaster;
end;
TCustomChartSource = class;
TCustomChartSourceEnumerator = class
@ -142,16 +157,14 @@ type
property Current: PChartDataItem read GetCurrent;
end;
TCustomChartSource = class(TComponent)
TCustomChartSource = class(TBasicChartSource)
strict private
FBroadcaster: TBroadcaster;
FUpdateCount: Integer;
procedure SortValuesInRange(
var AValues: TChartValueTextArray; AStart, AEnd: Integer);
strict protected
FExtent: TDoubleRect;
FExtentIsValid: Boolean;
FUpdateCount: Integer;
FValuesTotal: Double;
FValuesTotalIsValid: Boolean;
FYCount: Cardinal;
@ -161,17 +174,13 @@ type
function GetLink(AIndex: Integer): PChartLinkItem; virtual; abstract;
function GetLinkCount: Integer; virtual; abstract;
procedure InvalidateCaches;
procedure Notify;
procedure SetYCount(AValue: Cardinal); virtual; abstract;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
public
procedure AfterDraw; virtual;
procedure BeforeDraw; virtual;
procedure BeginUpdate;
procedure EndUpdate; virtual;
function IsUpdating: Boolean; inline;
public
class procedure CheckFormat(const AFormat: String);
function Extent: TDoubleRect; virtual;
@ -190,7 +199,6 @@ type
function XOfMax: Double;
function XOfMin: Double;
property Broadcaster: TBroadcaster read FBroadcaster;
property Count: Integer read GetCount;
property Item[AIndex: Integer]: PChartDataItem read GetItem; default;
property Link[AIndex: Integer]: PChartLinkItem read GetLink;
@ -449,6 +457,44 @@ begin
YList[AIndex - 1] := AValue;
end;
{ TBaisChartSource }
constructor TBasicChartSource.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FBroadcaster := TBroadcaster.Create;
end;
destructor TBasicChartSource.Destroy;
begin
FreeAndNil(FBroadcaster);
inherited Destroy;
end;
procedure TBasicChartSource.BeginUpdate;
begin
Inc(FUpdateCount);
end;
procedure TBasicChartSource.EndUpdate;
begin
Dec(FUpdateCount);
if FUpdateCount > 0 then exit;
Notify;
end;
function TBasicChartSource.IsUpdating: Boolean; inline;
begin
Result := FUpdateCount > 0;
end;
procedure TBasicChartSource.Notify;
begin
if not IsUpdating then
FBroadcaster.Broadcast(Self);
end;
{ TChartSourceBuffer }
procedure TChartSourceBuffer.AddFirst(const AItem: TChartDataItem);
@ -596,11 +642,6 @@ begin
// empty
end;
procedure TCustomChartSource.BeginUpdate;
begin
Inc(FUpdateCount);
end;
class procedure TCustomChartSource.CheckFormat(const AFormat: String);
begin
Format(AFormat, [0.0, 0.0, '', 0.0, 0.0]);
@ -609,16 +650,9 @@ end;
constructor TCustomChartSource.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FBroadcaster := TBroadcaster.Create;
FYCount := 1;
end;
destructor TCustomChartSource.Destroy;
begin
FreeAndNil(FBroadcaster);
inherited;
end;
procedure TCustomChartSource.EndUpdate;
begin
Dec(FUpdateCount);
@ -761,17 +795,6 @@ begin
Result := false;
end;
function TCustomChartSource.IsUpdating: Boolean; inline;
begin
Result := FUpdateCount > 0;
end;
procedure TCustomChartSource.Notify;
begin
if not IsUpdating then
FBroadcaster.Broadcast(Self);
end;
procedure TCustomChartSource.SortValuesInRange(
var AValues: TChartValueTextArray; AStart, AEnd: Integer);
var