//Reads Values from Chart1 on the other procedure
//Minx:=ExtensaoGrafico1.a.x; //These 2 lines here return -1 1
//Maxx:=ExtensaoGrafico1.b.x;
if (Chart1.LogicalExtent.a.x>-10) and (Chart1.LogicalExtent.b.x<10) then //Check if "exists" Chart1->Default
begin
ShowMessage('Aplicados valores xx do Gráfico 2');
Minx:=Chart2.LogicalExtent.a.x;
Maxx:=Chart2.LogicalExtent.b.x;
end
else
begin
Minx:=Chart1.LogicalExtent.a.x;
Maxx:=Chart1.LogicalExtent.b.x;
end;
//Miny:=Chart2.LogicalExtent.a.y; //These 2 lines return -1 1
//Maxy:=Chart2.LogicalExtent.b.y;
ExtensaoGrafico2.a.x:= Minx;
ExtensaoGrafico2.a.y:= Chart2.LogicalExtent.a.y;
ExtensaoGrafico2.b.x:= Maxx;
ExtensaoGrafico2.b.y:= Chart2.LogicalExtent.b.y;
Chart2.LogicalExtent:= ExtensaoGrafico2;