narcis wrote:Hi HMI,
No, they shouldn't. Are you experiencing any problem in that aspect?
No, not Problems. But I experience this behaviour and want a
explanation about this because I'm curious. Thats what I wanted to
explain in this thread^^
I try to explain it again. This is my Copy procedure in my TCustomChart:
Code: Select all
procedure TKoordSys3D.copy(p_koordSys: TKoordSys3D);
var l_temp_height, l_temp_width, l_temp_top, l_temp_left, l_i : integer;
begin
l_temp_height := Height;
l_temp_width := Width;
l_temp_top := Top;
l_temp_left := Left;
Assign(p_koordSys);
Height := l_temp_height;
Width := l_temp_width;
Top := l_temp_top;
Left := l_temp_left;
removeAllSeries();
for l_i := 0 to p_koordSys.SeriesCount - 1 do
begin
AddSeries(CloneChartSeries(p_koordSys[l_i]));
if p_koordSys[l_i].Visible then
Series[l_i].Visible := true
else
begin
Series[l_i].Visible := false;
showmessage('blöubbbb');
end;
end;
end;
And here I create a new Form,also in my TCustomChart, as you'll see:
(I pass my TCustomChart via the create procedure)
Code: Select all
procedure TKoordSys3D.MyOnclick(p_sender:TObject);
begin
Frmgraphwindow2d := TFrmgraphwindow2d.create(self);
Frmgraphwindow2d.ShowModal();
copy(Frmgraphwindow2d.c_kSys3D); [b]// This is the secound call of the copy-procedure[/b]
Frmgraphwindow2d.Free();
end;
And this is the part where the copy procedure is called the first time:
And here is, when
Code: Select all
constructor TFrmgraphwindow2d.create(p_AOwner: TComponent);
begin
inherited create(p_AOwner);
c_kSys3D := TKoordSys3D.create(self);
c_kSys3D.copy(TKoordSys3D(p_AOwner));
c_kSys3D.Parent := self;
c_kSys3D.Visible := true;
c_kSys3D.Width := 600;
c_kSys3D.Height := 600;
c_kSys3D.Left := 0;
c_kSys3D.top := 75;
c_kSys3D.enableOnClick(false);
teeCom_details.Panel := c_kSys3D;
end;
Though, if I use removeAllSeries, there is no problem.
But if I use freeAllSeries there is only on Series left after
closing the Form(when the copy-procedure is called the secound time)
Hopefully now the case is clearer^^
Kind regards and a nice evening,
HMI