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

TAChart: Add TUserDrawnSeries class

Browse Source 
git-svn-id: trunk@21826 -
This commit is contained in:
ask 2009-09-22 16:56:09 +00:00
parent c826d70f2d
commit e14b665868
1 changed files with 59 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
components/tachart/taseries.pas
View File

@ -277,6 +277,31 @@ type
property ZPosition;
end;
TSeriesDrawEvent = procedure (ACanvas: TCanvas; const ARect: TRect) of object;
TSeriesUpdateBoundsEvent = procedure (var ABounds: TDoubleRect) of object;
{ TUserDrawnSeries }
TUserDrawnSeries = class(TCustomChartSeries)
private
FOnDraw: TSeriesDrawEvent;
FOnUpdateBounds: TSeriesUpdateBoundsEvent;
procedure SetOnDraw(AValue: TSeriesDrawEvent);
procedure SetOnUpdateBounds(AValue: TSeriesUpdateBoundsEvent);
protected
procedure UpdateBounds(var ABounds: TDoubleRect); override;
public
procedure Draw(ACanvas: TCanvas); override;
function IsEmpty: Boolean; override;
published
property Active default true;
property ZPosition;
published
property OnDraw: TSeriesDrawEvent read FOnDraw write SetOnDraw;
property OnUpdateBounds: TSeriesUpdateBoundsEvent
read FOnUpdateBounds write SetOnUpdateBounds;
end;
implementation
uses
@ -1171,12 +1196,46 @@ begin
end;
end;
{ TUserDrawnSeries }
procedure TUserDrawnSeries.Draw(ACanvas: TCanvas);
begin
if Assigned(FOnDraw) then
FOnDraw(ACanvas, FChart.ClipRect);
end;
function TUserDrawnSeries.IsEmpty: Boolean;
begin
Result := not Assigned(FOnDraw);
end;
procedure TUserDrawnSeries.SetOnDraw(AValue: TSeriesDrawEvent);
begin
if FOnDraw = AValue then exit;
FOnDraw := AValue;
UpdateParentChart;
end;
procedure TUserDrawnSeries.SetOnUpdateBounds(AValue: TSeriesUpdateBoundsEvent);
begin
if FOnUpdateBounds = AValue then exit;
FOnUpdateBounds := AValue;
UpdateParentChart;
end;
procedure TUserDrawnSeries.UpdateBounds(var ABounds: TDoubleRect);
begin
if Assigned(FOnUpdateBounds) then
FOnUpdateBounds(ABounds);
end;
initialization
RegisterSeriesClass(TLineSeries, 'Line series');
RegisterSeriesClass(TAreaSeries, 'Area series');
RegisterSeriesClass(TBarSeries, 'Bar series');
RegisterSeriesClass(TPieSeries, 'Pie series');
RegisterSeriesClass(TFuncSeries, 'Function series');
RegisterSeriesClass(TUserDrawnSeries, 'User-drawn series');
RegisterSeriesClass(TLine, 'Line');
end.