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

TAChart: Add overloaded Clone method to set a new parent and owner (issue #0032365). Patch by user mig-31.

Browse Source 
git-svn-id: trunk@55780 -
This commit is contained in:
wp 2017-09-03 11:33:08 +00:00
parent b1ddbb8f12
commit 84b6be4a64
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tagraph.pas
View File

@ -322,7 +322,8 @@ type
public
procedure AddSeries(ASeries: TBasicChartSeries);
procedure ClearSeries;
function Clone: TChart;
function Clone: TChart; overload;
function Clone(ANewOwner, ANewParent: TComponent): TChart; overload;
procedure CopyToClipboardBitmap;
procedure DeleteSeries(ASeries: TBasicChartSeries);
procedure DisableRedrawing;
@ -599,6 +600,11 @@ begin
end;
function TChart.Clone: TChart;
begin
Result := Clone(Owner, Parent);
end;
function TChart.Clone(ANewOwner, ANewParent: TComponent): TChart;
var
ms: TMemoryStream;
cloned: TComponent = nil;
@ -608,7 +614,7 @@ begin
WriteComponentToStream(ms, Self);
ms.Seek(0, soBeginning);
ReadComponentFromBinaryStream(
ms, cloned, @FindComponentClass, Owner, Parent, Owner);
ms, cloned, @FindComponentClass, ANewOwner, ANewParent, Owner);
Result := cloned as TChart;
finally
ms.Free;