Discussion :

[f6dqm1]

Bonjour
Je cherche à créer deux mainmenu (mainmenu1 et mainmenu2) avec chacun leur propres menuItem.
C'est simplement pour pouvoir manipuler les deux mainmenu de façon différente (ownerdraw à false pour l'un et ownerdraw à true pour l'autre).
Ca n'offre pas de difficultés pour les créer avec Delphi7.
Le seul gros problème c'est que je ne vois que la barre de mainmenu1 et je ne vois pas la barre de mainmenu2
Je m'imaginais (peut-être à tort) que les deux barres de menus allaient apparaitre l'une en dessous de l'autre ou l'une à côté de l'autre mais pas du tout.
Pourtant tous les items du mainmenu2 ont la propriété visible à true.
Peut-être qu'il n'est pas possible d'avoir deux mainmenu différents affichés en même temps avec Delphi ?
A moins que l'on puisse mettre la propriété OwnerDraw à true pour un seul menuitem du mainmenu, ce qui simplifierait mon problème mais ça ne semble pas possible. Et mettre OwnerDraw à true pour un mainmenu fait perdre toutes les marques de check !!! Pas facile à manipuler ces menus !

[pascalCH]

bonjour,

l'affichage des deux en même temps ne sera pas possible, par contre, swapper les deux menus reste simple :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Menu11Click(Sender: TObject);
begin
  Self.Menu := MainMenu2;
end;
 
procedure TForm1.Menu21Click(Sender: TObject);
begin
  Self.Menu := MainMenu1;
end;

[f6dqm1]

Merci pour la réponse, malheureusement celà ne répond pas tout à fait à mon problème.
J'aurais bien aimé voir mes deux barres de menus en même temps sur la fiche.
J'ai cru comprendre qu'on pouvait par des paramêtres système mettre la propriété OwnerDrawn à true pour un seul menuItem d'un mainmenu.
Quelqu'un a t-il déjà vu ça ?

[ShaiLeTroll]

Tu ne peux avoir qu'un seul MainMenu car il faut l'associer à la fenêtre

Tu peux mettre à la place une TToolBar avec des boutons comme on le voit dans Delphi, Notepad++, les anciens Excel, IE11 ...
en fait comme dans toutes applications qui a besoin d'une seconde barre de menu !

[anapurna]

salut

tu as la methode OnDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean)

que tu peut utiliser pour modifier ou pas ton item de menu

[f6dqm1]

Bsr
La méthode OndrawItem permet effectivement de modifier l'aspect d'un item du mainmenu à condition de mettre la propriété Ownerdraw du mainmenu à true (on ne peut pas le faire uniquement pour un item particulier avec Delphi comme cela est possible dans VB ou C++) et le fait de mettre Ownerdraw à true dans le mainmenu fait perdre l'affichage de toutes les marques de checked dans tous les sous-menus. Après ça devient le bazar car on ne sait plus à l'affichage si le sous-menu est checké ou pas (alors que la proriété Checked est toujours active). Ou alors il faut gérer soi même l'affichage des marques de checked (point ou v) et là ça devient le binz, surtout quand la barre de menus contient une cinquantaine de sous-menus liés à différents items du menu principal.

[anapurna]

salut

il est vrai que d'ajouter un code du genre dans le ondrawitem est compliqué

Code :

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

1
2
3
4
5
 
  if (Sender as TMenuItem).Checked then
     DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED)
  else
     DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK)

[f6dqm1]

Hum ... Ca vient mettre une case à cocher en plein milieu du caption.
N'y aurait-il pas moyen retrouver le caption d'origine avec ou sans le signe de check (V ou point) devant le caption et pas cette case à cocher pas vraiment top !