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

TAChart: Add overloaded Clone method to set a new parent and owner Issue

Browse Source 
git-svn-id: branches/fixes_1_8@55809 -
This commit is contained in:
mattias 2017-09-08 17:48:40 +00:00
parent 60bf5ef8da
commit 5c538243c2
1 changed files with 8 additions and 2 deletions

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;