Discussion :

[tchimou]

Bonjour à tous!
voici , j'ai un probleme avec mon composant PageControl.
Mon composant PageControl a trois feuilles (Tabsheet) et à côté de ce composant, j'ai trois composant TDBChart ; chaque TBDChart donne un graphique selon que l'onglet du PageControl change . J'ai supperposé les TDBChart les uns sur les autres.
- Dans le premier onglet , je calcule les recettes et j'affiche le graphique des recettes dans un TBDChart.
- Dans le second onglet , je calcule les entrees de caisse et j'affiche aussi le graphique correspondant
- dans les troisième onglet , je calcule les sorties et j'affiche le graphique .
ce qui dit , lorsque je passe d'un onglet à l'autre , je voudrais voir le graphique correspondant.

au prealable, j'ai mis dans l'evenement OnShow de la form TDBChart des recettes à visible = true et les autres à visible = false afin de voir lorsque la feuille s'ouvre les recettes et le graphique.

mais j'ai fait ceci ensuite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
begin
   if Pagecontrol1.ActivePage = Tabsheet1 then
   begin
    ChartRecette.Visible:=True;
   end;
 
   if Pagecontrol1.ActivePage = Tabsheet2 then
   begin
    ChartEntree.Visible:=True;
   end;
 
  if Pagecontrol1.ActivePage = Tabsheet3 then
   begin
    ChartSortie.Visible:=True;
   end;
end;

lorsque j'execute ce code, lorsque je passe d'un onglet à l'autre, ça marche; mais lorsque je reviens sur un onglet que j'ai deja vu et que je voudrais de nouveau voir , le TDBChart ne change pas, il reste sur le dernier TDBChart vu.
je ne sais comment pallier à cela.
Merci de votre aide.

[evarisnea]

la solution va te faire sourire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
begin
   //cacher tous les charts
   ChartRecette.Visible:=False;
   ChartEntree.Visible:=False;
   ChartSortie.Visible:=False;
   //afficher uniquement le chart adéquat
   if Pagecontrol1.ActivePage = Tabsheet1 then
    ChartRecette.Visible:=True
   else if Pagecontrol1.ActivePage = Tabsheet2 then
    ChartEntree.Visible:=True
   else 
    ChartSortie.Visible:=True;
end;

ou encore, en supposant que Tabsheet1,2 et 3 ont respectivement pour index de page 0, 1 et 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
begin
   //cacher tous les charts
   ChartRecette.Visible:=False;
   ChartEntree.Visible:=False;
   ChartSortie.Visible:=False;
   //afficher uniquement le chart adéquat
   case Pagecontrol1.ActivePageIndex of
     0: ChartRecette.Visible:=True
     1: ChartEntree.Visible:=True
     2: ChartSortie.Visible:=True;
   end;
end;

voilà, tu comprends à présent pourquoi ça ne marche pas.

[ProgD]

Je croie que c'est juste un problème de rafrechissment vous devez alors essayé de mêtre la propriété AutoRfresh=True;

[aliwassem]

qu'est ce que je pense comme ProgD il faut desactiver le TBDChart et l'activer ou le Table qui le connect , ou un refrech.

[aliwassem]

Desole..............

[tchimou]

Merci pour votre aide à tous!
j'ai essayé le code d'evarisnea , mais il ne me donne que le premier TDBChart, et je crois que c'est parce que dans l'evenement OnShow de la form , j'ai mis ChartRecette.Visible:=True; et les autres à visible=false;
ce qui dit , lorsque je lance mon application , il se trouve par defaut sur ChartRecette, mais lorsque je change d'onglet , il y a rien , même pas un Chart, et lorsque je reviens sur le premier onglet , je vois le ChartRecette.
j'ai même mis les propriétés AutoRefresh de ces TDBChart à true dans l'evenement Onchange du PageControl, mais toujours rien qui marche normalement.
Merci pour votre aide.

[didier2020]

Le meme code mais sans conditions...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 ChartRecette.Visible:=(Pagecontrol1.ActivePage = Tabsheet1);
 ChartEntree.Visible:=(Pagecontrol1.ActivePage = Tabsheet2);
 ChartSortie.Visible:=(Pagecontrol1.ActivePage = Tabsheet3);

au début , le code peut paraitre pas tres lisible mais maintenant je préfere ça a des conditions

[tchimou]

Merci Didier2020 pour ta solution, mais ça donne toujours la même chose; savoir le premier TDBChart , le ChartRecette seulement , donc lorsque je change d'onglet , je ne vois rien. lorsque je reviens sur le premier onglet , je vois le ChartRecette , mais lorsque je vais sur un autre onglet , je ne vois rien.
Vraiment je ne sais pas comment regler cette situation.
Merci pour votre aide

[aityahia]

je suis tous a fait d'accord avec evernissa il faut cacher les autres Dbchart pour afficher celui voulour cars il faut pas oublier qu'il sont superposer essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DbChart2.BringToFront;

[tchimou]

Merci pour le code, j'ai essayé , toujours le même resultat que les fois dernières.

[evarisnea]

@ aityahia : c'est bien evarisnea et non evernissa puisque l'on cache tous les autres charts pour n'en afficher qu'un seul, BringToFront n'est pas trop nécessaire je trouve.
@ didier2020 : ton code est plus lisible que le mien, je l'adopte pour l'exemple que je poste
@ tchimou : le titre des charts est il quand même affiché malgré tout ?
voici un projet basique qui fonctionne.

[aityahia]

oui c'est vrai que c'est pas nécéssaire dans ton exemple, mais si il opte a utiliser bringToFrint il na pas a cahcer les autres DbChart il aura une seul ligne de commande pour chaque DbChart.

le DbChart en premier plan cache tous les autres alors il faut juste remonter en surface le DbChart Voulu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
 begin
  Case Pagecontrol1..ActivePageIndex of
     0 : ChartRecette.BringToFront;
     1 : ChartEntree.BringToFront;
     2 : ChartSortie.BringToFront;
   end;
end;

[evarisnea]

oui c'est vrai que c'est pas nécéssaire dans ton exemple, mais si il opte a utiliser bringToFrint il na pas a cahcer les autres DbChart il aura une seul ligne de commande pour chaque DbChart.

le DbChart en premier plan cache tous les autres alors il faut juste remonter en surface le DbChart Voulu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Procedure TStatistiqueForm.PageControl1Change(Sender: TObject);
 begin
  Case Pagecontrol1..ActivePageIndex of
     0 : ChartRecette.BringToFront;
     1 : ChartEntree.BringToFront;
     2 : ChartSortie.BringToFront;
   end;
end;

c'est vrai

[tchimou]

Merci à tous!
je viens de trouver l'erreur;au fait , j'avais deposé mes TDBChart les uns sur les autres, alors le premier reagissait comme un contenaire et prenait à lui seul les autres TDBChart, donc c'est ce qui faisait que je ne voyais qu'un seul malgré toutes les solutions que je recevais de votre part.
J'ai donc mis mes TDBChart sur ma form , et après seulement je les ai superposé, et là , j'ai repris le premier post d'evarisnea, et tout marche à merveille.
Merci pour votre aide à tous.