Déplacement Modification et suppression d`un TTabSheet

Version imprimable

07/06/2006, 08h36
kurul1

Déplacement Modification et suppression d`un TTabSheet

Bonjour à tous

Dans mon application, les utilisateurs doivent sélectionner une portion de courbe. Chaque portion
donne lieu a la création d'un onglet.

Ce que j'aimerais pouvoir faire, c'est :
- Changer l'ordre des onglets car on ne sélectionne pas forcément les portions dans l'odre.
- Supprimer un onglet lorsque l'utilisateur supprime une portion
- Modifier un onglet lorsque l'utilisateur modifie une portion

Avez vous des pistes ?

Merci d'avance de votre aide.

Salut kurul1,

Alors, pour tes question, dans l'ordre:
Code:

1 2 3 4 5 6 //défini l'index de l'onglet Index en NewIndex PageControl1->Pages[Index]->PageIndex = NewIndex; //supprime l'onglet Index, mais attention, pas de sucide de l'onglet delete PageControl1->Pages[Index];
Sinon, que veux-tu modifier sur l'onglet ?

Dans mon onglet j'ai différents affichages :

Deux graphiques et un Panel avec des informations. Voilà ce que je veux modifier.

Je veux égalements modifier le titre de l'onglet car dans le titre de l'onglet, il y a les bornes inférieur et supérieur de ma portion. Pour le titre il n'y a pas de problème pour modifier, c'est simplement le contenu qui me pose problème.

Pour la modification de l'odre, c'est en fait une inversion d'onglet que je voudrais faire.

donc si je suis ta méthode, ca devrais donné ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 // Je mémorise l'index du premier Onglet int PageIndex1 = PageControl->Pages[Index1]->PageIndex; // Je mémorise l'index du deuxième Onglet int PageIndex2 = PageControl->Pages[Index2]->PageIndex; // Je positionne le deuxième onglet à la place du premier PageControl->Pages[Index2]->PageIndex = PageIndex1; // Je positionne le premier onglet à la place du deuxième PageControl->Pages[Index1]->PageIndex = PageIndex2;

07/06/2006, 10h15
bandit boy
En fait, le truc c'est qu'il positionne tout seul la liste des onglet. Je m'explique si tu dis au dernier onglet de passer en premier, juste l'instruction
Code:

1 2 PageControl->Pages[Dernier]->PageIndex = 1;
suffit, il repositionne automatiquement le 1er en 2ème, le 2ème en 3ème ...

Sinon, pour modifier tes composants, ils sont créés dynamiquement ? Tes onglets aussi ?
07/06/2006, 10h24
kurul1
mes onglets sont créé dynamiquement a chaque fois que je sélectionne une portion.

je crée l'onglet et tous les composants qu'il comporte.

Etant donné que les portions ne sont pas créée forcément dans le bon ordre, je trie donc mes portions par ordre croissants dans la liste qui me sert a les mémoriser.

C'est pourquoi je désire faire des inversions d'onglets. puisque l'indice de la portion dans la liste doit correspondre a l'indice de l'onglet.

Cette inversion n'est pas forcément entre le premier et le dernier onglet, cela peux se faire entre deux onglets du milieu.

Concernant la positionnement du dernier en premier, tu fais une petite erreur car l'indice du premier c'est 0 et non 1.
Code:

1 2 PageControl->Pages[Dernier]->PageIndex = 0;
07/06/2006, 11h28
bandit boy

:oops: pardon
Mais le principe reste le même, et cela fonctionne.
Je ne sais pas comment tu as conçu tes onglets, personnellement j'ai été aidé par plusieurs personnes sur ce poste :
http://www.developpez.net/forums/sho...d.php?t=125441
J'ai retenu la soution de Henderson qui consiste à créer une class "Onglet" de ce fait, quand je créer un onglet, je sais ce qu'il y a dedans.
Il me suffit de créer un pointeur de la class créé pointant sur l'onglet que je souhaite modifier et j'ai accès a ses composants.
Henderson explique assez bien la méthode. Je pense que cela pourra t'aider.
07/06/2006, 11h39
kurul1
Je vais regarder ca merci de ton aide

En fait je me mélange les pinceau avec les indices
Code:

1 2 PageControl->Pages[Index]->PageControl = newIndex;
Index correspond a quoi ?
PageControl également ?

je suis un peu perdu là.
08/06/2006, 09h35
kurul1
Personne ne peut m'éclairer concernant les indices

Sinon bandit boy, j'essaye de créé une classe comme dans la méthode de Henderson mais j'ai une erreur a la compilation. Je dois oublié d'inclure un paquet mais je ne sais pas lequel.
Code:

1 2 3 4 5 6 7 #include <vcl.h> class TOnglet : public TTabSheet { ... };
Cela me met une erreur sur la ligne de déclaration de la classe me mettant :

Nom de type attendu

Pour moi l'index, c'est l'index de l'onglet :D , le numéro interne permettant de les classes: le 1er est à gauche, le dernier à droite lorsqu'ils sont visible.
PageControl, c'est le composant comprenant les TTabsheets (les onglets)

Pour ton problèmes, je ne sais pas trop, voilà mon code dans le .h
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 //------------------------------ class TForm1 : public TForm { __published: // IDE-managed Components TLabel *Label1; ... private: // User declarations public: // User declarations __fastcall TForm1(TComponent* Owner); }; //-------------------------------- class jPage1 : public TTabSheet { public : //Les pointeurs sur les objets à créer ici TEdit *Edit1; ... //fonctions __fastcall jPage1(TComponent *Owner, AnsiString N); __fastcall ~jPage1(); private: // Evennements void __fastcall Button1Click(TObject *Sender); ... }; extern PACKAGE TForm1 *Form1; ...
Quand j'ai ajouté ce code, je n'ai pas eu d'erreur venant d'un manque de paquet. Je ne sais pas trop d'ou peut venir ton problème. Si Henderson passe dans le coin, peut être qu'un professionnel :mrgreen: pourra répondre à tes attentes.

Sinon, donne un code plus complet, peut être que je serais inspiré.;)

En fait, moi j'ai créé ma classe dans des fichiers séparés

Onglet.h

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
#include <vcl.h>
 
class TOnglet : public TTabSheet
{
        public:
                // Panel pour le centre de pression
                TPanel * PanelCentrePression;
 
                // Image pour le graph du centre de pression
                TImage *ImageCentrePression;
 
                // Panel pour les composantes
                TPanel *PanelComposantes;
 
                // Image pour le graph des composantes
                TImage *ImageComposantes;
 
                // Panel pour les calculs
                TPanel *PanelCalcul;
 
                // Label pour l'affichages des titres
                TLabel *LabelTitres;
 
                // Label pour l'affichages des calculs
                TLabel *LabelCalcul;
 
 
                // Constructeur
                __fastcall TOnglet(TComponent *Owner, AnsiString C);
 
                // Destructeur
                __fastcall ~TOnglet();
};

Onglet.cpp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#include "Onglet.h"
 
// Constructeur
__fastcall TOnglet::TOnglet(TComponent *Owner, AnsiString C)
{
        // On affecte le PageControl de l'onglet
        if(Owner->ClassNameIs("TPageControl"))
        {
                PageControl =  (TPageControl*)Owner;
        }
 
        // On affecte le titre de l'onglet
        Caption = C;
}
 
// Destructeur
__fastcall TOngle::t~TOnglet()
{
 
}

Et j'ai donc l'erreur Nom de type attentu sur l'accolade d'ouverture de la classe

08/06/2006, 11h13
kurul1

J'ai inclu ma classe directement dans le fichier de la form de m'on application et là, je n'ai plus d'erreur.
08/06/2006, 11h23
bandit boy

Créé une application vide, regarde les .h inclus. Ajoute juste un PageControl et retourne dans ton .h, tu devrais voir apparaître une autre librairie (il les ajoute tout seul). C'est peut être celle-ci qu'il te manque.
Ce serait la librairie liée au composant te permettant de lui faire reconnaitre le TTabsheet
09/06/2006, 08h37
kurul1

Cela ne rajoute rien les include ne change pas.
09/06/2006, 09h12
kurul1

J'ai trouver c'est #include <ComCtrls.hpp>
09/06/2006, 11h13
bandit boy

Et avec cette modification, est ce que cela fonctionne?
14/06/2006, 08h48
kurul1

Avec cette modification, ca fonctionne nikel.

Par contre je n'arrive toujours pas à inverser deux onglets, cela ne marche pas.
14/06/2006, 09h44
bandit boy
Re,
Avec ce code, je déplace l'onglet courant vers la gauche, en gros je l'inverse avec son voisin de gauche.
Code:

1 2 3 PageControl1->Pages[PageControl1->ActivePageIndex]->PageIndex = PageControl1->Pages[PageControl1->ActivePageIndex]->PageIndex-1;
Ca devrait pouvoir t'aider

Voilà ma fonction pour inverser les onglets
Code:

1 2 3 4 5 6 7 8 9 10 // Méthode qui permet d'inverser deux onglets void TPrincipalForm::InverserOnglet(int Index1, int Index2) { // Je positionne le deuxième onglet à la place du premier PageControl->Pages[Index2]->PageIndex = Index1; // Je positionne le premier onglet à la place du deuxième PageControl->Pages[Index1 + 1]->PageIndex = Index2; }
Elle ne marche pas

Pour le deuxième je met Index1 + 1 car étant donné que je place le deuxième onglet a l'indice du premier, le premier se retrouve décalé de 1 vers la droite.

14/06/2006, 10h15
bandit boy

Positionne simplement un seul onglet ou tu le souhaites. Si tu places l'onglet 5 en 2, le 2ème deviendra tout seul 3, le 3ème 4, et ainsi de suite.
Ne fais qu'une commande, as tu testé la ligne que je t'ai donné?
14/06/2006, 10h23
kurul1

oui mais cela ne fait pas ce que je veux

Moi ce qui m'intéresse c'est que l'onglet 2 devienne le 5 et que le 5 devienne le 2.
14/06/2006, 10h39
bandit boy
Ok, alors en gros il te faut faire ca:
Code:

1 2 3 4 PageControl1->Pages[4]->PageIndex = 1; PageControl1->Pages[2]->PageIndex = 4;
Dans un premier temps, tu ramènes le plus éloigné à la place la plus petite (5 à 2) du coup le 5 devient 2 mais le 2 devient 3. Du coup, tu prends le 3 et le met en 5.
Il faut juste savoir que si tu modifies l'index d'un onglet et que la nouvelle place est déjà prise, celui qui est bougé est déplacé à droite, sauf si c'est le dernier (pour pas que PageCount soit modifié).

J'ai testé, et ca marche, après je pense que c'est ce que tu veux.
Si tu veux un truc plus général, j'y travail ...
14/06/2006, 10h43
kurul1

C'est exactement ce que j'ai fait dans ma fonction que j'ai décrite plus haut mais cela ne marche pas.
14/06/2006, 10h47
bandit boy

:koi:
Et ton Index1 est bien inférieur au 2, ou le 2 n'est pas le dernier ?

Je pige pas alors !!
Jte fais un truc qui fonctionne chez moi, et tu testeras.

Bon, voilà un code qui fonctionne chez moi:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
      if(Index1>Index2)
      {
          PageControl1->Pages[Index1]->PageIndex = Index2;
          PageControl1->Pages[Index2+1]->PageIndex = Index1;
      }
      else
      {
          PageControl1->Pages[Index2]->PageIndex = Index1;
          PageControl1->Pages[Index1+1]->PageIndex = Index2;
      }

J'ai essayé avec Index1 = 4 et Index2 = 1. Et ca marche bien. Si ca marche pas, dis moi ce que ca fais chez toi.

C'est bon ca marche. En fait je suis bète mais j'avais oublié de d'enlever le commentaire sur ma fonction.

Pour les index, Index1 est toujours inférieur a Index2.

Je stocke également des informations dans une liste qui est indexé exactement de la même manière que mes onglets.

donc quand j'inverse deux éléments de ma liste, j'inverse également les onglets correspondants.

J'ai une fonction de tri qui gère cela très bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
// Méthode qui permet de trier la liste des fenêtre
void TPrincipalForm::TrierLaListeDesFenetres(void)
{
        // Indice de la boucle principale
        int i = 0;
 
        // On balaye la liste des cibles
        while(i < ListeDesFenetres->Count)
        {
                // On balaye la liste des cibles à partir de l'indice de la première boucle
                for(int j = (i + 1); j < ListeDesFenetres->Count; j++)
                {
                        // On extrait la fenêtre d'indice i
                        TFenetre *FenetreI = (TFenetre *)(ListeDesFenetres->Items[i]);
 
                        // On extrait la fenetre d'indice j
                        TFenetre *FenetreJ = (TFenetre *)(ListeDesFenetres->Items[j]);
 
                        // Si le début de la fenêtre i est supérieur au
                        // début de la fenêtre j
                        if(FenetreI->Debut > FenetreJ->Debut)
                        {
                                // On inverse les deux fenêtres
                                ListeDesFenetres->Exchange(i, j);
 
                                // On inverse les onglets
                                InverserOnglet(i, j);
                        }
                }
 
                // On incrémente l'indice de boucle
                i++;
        }
}

En tout cas merci beaucoup pour ton aide.

14/06/2006, 11h57
bandit boy

;)