TChart (Wykresy)

0

Witam !
Mam problem ! Chciałbym aby po naciśnięciu jednego przycisku
"uruchomić" dwa wykresy równocześnie, tzn. Chart1 i chart2.
Jakoś mi to nie wychodzi, gdyż coś się " miesza ". Pomocy !

Cześć !

0
  1. Witamy na forum.
  2. Pisz jaśniej, co ci się "miesza", albo wklej tu kawałek kodu, albo spróbuj inaczej to wyjaśnić, ale tak abyśmy to zrozumieli.
  3. Pozdrawiam!
0

Np. taki kod !

procedure TForm2.FormCreate(Sender: TObject);
begin
With Chart1 do
begin
With Series3 do
Begin
Clear ;
Add( 40, 'I' , clRed ) ;
Add( 60, 'II', clRed ) ;
Add( 10000, 'III', clRed ) ;
..........
end;

With Series2 do
Begin
Clear ;
Add( 40, 'I' , claqua ) ;
Add( 60, 'II', claqua ) ;
Add( 10000, 'III', claqua ) ;
.........
end;

With Series1 do
Begin
Clear ;
Add( 40, 'I' , clSkyBlue ) ;
Add( 60, 'II', clSkyBlue ) ;
Add( 10000, 'III', clSkyBlue ) ;
............
end;
end;

With Chart2 do
begin

With Series3 do
Begin
Clear ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
end;

With Series2 do
Begin
Clear ;
Add( 40, 'I' , claqua) ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
end;

With Series1 do
Begin
Clear ;
Add( 40, 'I' , clSkyBlue ) ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
end;
end;

end;

end;

Pozdrowienia !

0

Albo wyświetlaj naprzemienie, albo wykorzystaj wątki.

1 użytkowników online, w tym zalogowanych: 0, gości: 1