Discussion :

[drake56]

Bonjour à tous,

Sur ma page d'accueil, j'utilise des TJvXPBar qui intègre les différentes options du menu cependant tous les utilisateurs n'auront pas accès à toute les options (géré par des droits) donc certains éléments sont non visibles cependant ça laisse des trous sur la page d'accueil.
Donc je souhaiterai si possible, modifier le positionnement des TJvXPBar dès qu'un élément est non visible.
Pouvez-vous m'aider ?

Merci d'avance

[ShaiLeTroll]

C'est le problème de partir d'une barre créée en DesignTime et de cacher en RunTime
le plus efficace étant de tout créer au RunTime en fonction des habilitations !
Lors du change de session, tu détruis tout et tu recrées tout !

Dans l'application que je maintiens (je le découvre ce matin, j'avais encore jamais regardé cette partie, je travaille dans un tout autre module), le comportement est celui que tu souhaites
cela instancie les TToolButton à la volée et les ajoutent via InsertControl dans le TToolBar et modifie Width à chaque ajout

Je n'ai pas de code (même en C++) à te fournir, c'est un vrai foutoir et cela ne te parlerait pas, mes prédécesseurs ont réinventé la roue carrée par méconnaissance de la RTL\VCL

[drake56]

Merci pour ta réponse, je t'avoue que j'ai pas tout compris car ta réponse est très technique, je vais regarder du côté d'InsertControl

[ShaiLeTroll]

Pour un TToolButton \ TToolBar
Habilites c'est une liste d'objet contenant tes droits, une TStringList peut être un début
Les ToolBar sont dans un TControlBar, tu peux jouer Left et peut-être même les Anchors
Chaque ToolBar est identifié par une Category, une chaine pouvant être le nom de la ToolBar
Chaque ToolButton est identifié par un ID, le tag ....

Je te laisse trouver les équivalents JEDI VCL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
for i := 0 to Habilites.Count - 1 do
begin
  tb := FindComponent(Habilites[i].CategoryToolBarName); 
  if Assigned(tb) then
  begin
    btn := TToolButton.Create(nil);
    btn.Caption := Habilites[i].ButtonCaption;  
    btn.Tag := Habilites[i].ID;
    btn.OnClick := TooButtonClickEventHandler; // Le Tag permettra de trouver l'Hability, une méthode virtuelle Execute ou une Action associé pourrait être une méthode élégante
    ToolBar.InsertControl(btn);
end;

Il faudra faire un code de vidange

[drake56]

Merci mais ta proposition me renvoie vers un menu classique, tu pourras voir en pièce jointe un aperçu du menu.
Ce que je souhaiterai si c'est possible, c'est si la partie Gestion de Devis est non visible que la partie centrale de réparation remonte et ne pas avoir un trou entre les 2.

[ShaiLeTroll]

Mes propos sont aussi applicables à un TCategoryPanelGroup ou TCategoryButtons qui serait le plus proche de ce TJvXPBar, ce dernier ressemble à un TOutlookBar à l'époque de D5

Tous ces composants se ressemblent, ils ont forcément les méthodes d'Ajout de Category et l'ajout de Button au sein d'une Category

Justement j'ai aidé un collègue sur TCategoryButtons, même comportement que toi
l'idée fut d'avoir un TCategoryButtons complet et un TCategoryButtons vide
Lors de l'authentication, le second TCategoryButtons était complètement vidé et l'on recopiait le contenu du premier TCategoryButtons

Avoir deux TCategoryButtons était plus simple pour créer via le Builder que de tout créer à la main !
Une grosse flemme, en plus cela permet de mieux visualiser ce qui existe dans le menu que de tout avoir dans code, pas élégant mais pratique

Les deux TCategoryButtons étant lié à la même TImageList et la même TActionList

Dans le code de mon collègue, cela gère un seul bouton par category, je le modifie approximativement pour gérer un nombre variable de bouton

Code c++ :

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
  CategoryButtons2->Assign(CategoryButtons1); // Taille + Categories mais pas ButtonItem
 
  // Copie des Buttons
  for (int iCat = 0; iCat < CategoryButtons1->Categories->Count; iCat++)
  {
    TButtonCollection* BtnLst = CategoryButtons2->Categories->Items[iCat]->Items;
    for (int jBtn = 0; iBtn < BtnLst->Count; iBtn++)
    {
      if (IsActionHabilite(BtnLst->Items[iBtn]->Action))
      {
        TButtonItem *Item = new TButtonItem(BtnLst);
        Item->Assign(BtnLst->Items[iBtn]);
        Item->Action = BtnLst->Items[iBtn]->Action;
      }
    }
  }

Les category sans button peuvent être supprimer via

Code :

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

CategoryButtons2->Categories->Delete(ItemIndex);

voir l'image pour une idée du résultat
à gauche, le TCategoryButtons contenant tous les menus
à droite, le TCategoryButtons vide dans lequel on affecte

[drake56]

Merci pour toutes ses précisions et cet exemple, je regarde ça attentivement à priori ça correspond bien à ce que j'attends (si je peux espacer mes sous menus et ne pas les collés comme dans l'application de ton collègue)

[SergioMaster]

Je n'ai pas contrôlé à fond , mais pour les JVXPBars les propriétés visible et align (alTop) sont utilisables .

Si dans le cas exposé tu ne veux pas afficher le jvXPBar 'Devis' , il te suffit de le rendre invisible , si le jvXPBar en dessous à la propriété align=alTop , il remontera tout seul à l'intérieur du jvXPContainer

ps. il manque un 't' a gestion

[drake56]

Bonjour,

Merci pour ta réponse mais je n'utilise pas de container parce que sinon ils sont empilés et il n'y a pas d'espaces entre mes sous-menus ce qui présentent - bien et fait beaucoup + "entassé".

[SergioMaster]

oui , les espaces , je n'y avais pas pensé (c'est pour cela que je n'utilise pas jvXPBars mais plutôt les TJVNavxxxxx) , cependant rien n'empêche d'ajouter dans le container (qui n'est ni plus ni moins qu'un panel amélioré) des panels servant de séparateurs

[drake56]

Bonne idée en effet merci pour les panels séparateurs mais le problème c'est que j'ai 2 colonnes de menu donc si je mets du alTop celui qui peut tout voir ne verra pas tout le menu