Discussion :

[berpi]

Bonjour,
Par défaut, le TMenu vient se coller en haut de la Forme.
J'aurais souhaité mettre un Panel (TPanel) entre la barre de titre et le Menu.
Est-ce utopique ou réalisable ?
Merci de me répondre.
Amitiés
Pierre

[cincap]

Bonjour à toutes et à tous,

@ Berpi, Il suffit de créer ton TMainMenu comme tu le souhaites, d'ajouter une TToolBar dans le TPanel (ou n'importe quel autre conteneur), puis d'utiliser la propriété Menu dans laquelle tu spécifies le TMainMenu.

En prenant soin de désactiver celui de ta form :

Onglet "Evenements" puis éffacer ce qui est dans "Menu"

Et avec ton TToolBar, Onglet "Evenements" puis Entrer le nom de ton menu dans "Menu".

@+,

Cincap

[berpi]

Salut Cincap,
Mais c'est génial ton 'truc' !
Cela correspond exactement à ce que je voulais obtenir.
J'en ai bien compris le principe du 'conteneur' et pourrai le ré-utiliser
dans d'autres cas, sachant que la forme n'est plus le contenant, mais cette
prérogative est transférée au nouveau conteneur déclaré.
Cela m'avait échappé ! Comme quoi, on en apprend tous les jours.
Merci à toi et bon dimanche.
Amitiés
Pierre

[ero-sennin]

Merci Cincap

Je cherchais aussi, et j'avoue ne pas avoir pensé à ça! C'est nickel

[cincap]

@ Ero-sennin et Berpi, en utilisant la propriété de l'évenement du TMainMenu ou du TPopupMenu soit "OnAdvencedrawItem", on peut colorer le fond, le texte et la sélection.

J'ai oublié dans le 1er cas que le Tpanel est supperflu puisque le TToolbar à la propriété "Align".


@+,

Cincap

[berpi]

CinCap,
Bien noté ta remarque sur la non nécessité du TPanel.
Toutefois, il y a une différence entre :
1- Menu sur une ToolBar sur la Forme et
2- Menu sur une ToolBar sur un Panel, lui-même sur la Forme.
Pas trop de changement en RunTime, mais en DesignTime, suivant le cas ci-dessus:
1- Items du Menu pas visibles sur la ToolBar
2- Items du Menu visibles sur la ToolBar
ce qui peut être un handicap pour savoir où on en est dans la définition du Menu !

En conclusion, ton 'étiquette' est Membre éclairé.
J'aurais bien tendance à t'attribuer celle-ci : Membre éclairant !.
...étant donné l'éclairage pertinent apporté à mes lacunes.
Amitiés
Pierre

[cincap]

@ Berpi, avec D6 je n'ai aucune différence, le menu s'affiche ainsi que les items dans les 2 cas.

@+,

Cincap

[berpi]

Pour CinCap,

Je suis sous Delphi 7.0, je vais regarder de plus près la cause de ma 'différence' !

Amitiés

PS : modif de dernière heure dans mon post !
J'avais dû faire une fausse manip car il n'y a pas de différence et c'est plus simple.
En effet, avec un Panel, pour avoir le même visuel en RunTime, il fallait mettre les BevelInner et BevelOuter à bvNone, donner au Panel la même hauteur que la Toolbar, etc..
Sans Panel, plus besoin de tout cela !!!

[cincap]

@ Berpi, d'autant que le TToolbar à plusieurs propriétés pour le look et même régler la distance du 1er bouton par rapport au bord du menu avec la propriété "BorderWidth" et en jouant sur la propriété "Height".

Seul hic avec TToolBar c'est dans le cas de mettre sur un TMainMenu une couleur de fond et du texte, le TToolBar n'hérite pas tout du TForm et la couleur n'est pas visible.

Si quelqu'un avait une idée, la boucle serait bouclée.

Tout fini bien alors !

@+,

Cincap