Propose to expand TChart.Clone to set a new Parent and Owner
Original Reporter info from Mantis: mig-31
-
Reporter name:
Original Reporter info from Mantis: mig-31
- Reporter name:
Description:
Exits function TChart.Clone create a copy of existing TChart on the Parent with same Owner as original TChart.
Propose:
I propose to add a procedure TChart.Clone(AOwner,AParent : TComponent);
NewParent enables to show a copy of TChart on other TComponent.
NewOwner enables to copy TChart on Form1 to Form2.
Steps to reproduce:
procedure TChart.Clone(AOwner,AParent : TComponent);
var
ms: TMemoryStream;
cloned: TComponent = nil;
begin
ms := TMemoryStream.Create;
try
WriteComponentToStream(ms, Self);
ms.Seek(0, soBeginning);
ReadComponentFromBinaryStream(
ms, cloned, @FindComponentClass, AOwner, AParent, Owner);
finally
ms.Free;
end;
end;
Mantis conversion info:
- Mantis ID: 32365
- OS: All
- OS Build: All
- Platform: All
- Version: 1.8RC4
- Fixed in revision: 55780 (#84b6be4a)
- Target version: 1.8