DESSIN DE MENU

Commentaire de Delphiprog le 12/04/2003 21:45:34 administrateur CS

En utilisant le composant TActionManager,  on parvient au même résultat mais sans écrire une seule ligne de code...à partir de Delphi 6 seulement.
Coloration, placage de texture, images sur le côté des menus, items les plus fréquemment utilisés, etc. Le tout sans écrire de code, mais là, je me répète.

Commentaire de Delphiprog le 12/04/2003 23:36:20 administrateur CS

Autant pour moi, je pensais que ce composant était livré à partir de D6 quelque soit la mouture.
Merci à toi Bestiol pour ces précisions utiles qui éviteront aux lecteurs de cette contribution de demander dans quel onglet de la palette on peut trouver ce fameux TActionManager.

Commentaire de GILLESG2 le 26/05/2003 13:46:07

Bonjour

Merci pour toutes ces précisions sur le composant Menu dans Delphi.
Je cherchais justement à changer sa couleur grise standard  (parceque la fenetre générale de mon appli est bleue...)
donc à priori avec delphi pro 7 on peut le faire avec TActionManager ?
je vais pouvoir modifier l'affreuse bande grise en une belle bande bleue??
je vais essayer ca ce soir...
bises

Commentaire de GILLESG2 le 26/05/2003 15:56:11

oui moi aussi je préfère un poigné de main... c'est bien clair rire
bises c'était une façon de dire tchao
sinon si un jour vous avez besoin j'ai tout ce qui faut pour gerer un treeview (chargement d'un fichier texte, sauvegarde dans un fichier binaire, création des noeuds et création des data aux bouts des noeuds... tout ca en codé en non en utilisant les methodes et propriétés de ce composant ce qui est beaucoup plus complexe à faire)
c'est lourd à gerer mais ca marche bien...
alors si je peux en faire profiter...
bises enfin je veux dire tchao...

Commentaire de md21 le 23/06/2008 14:09:37

Bonjour,

effectivement sur une D6 standard pas de TActionManager

Cela dit le code fonctionne super bien, cependant la partie de la bande du menu (sur la droite) non utilisée par le menu ne change pas de couleur. Est-il possible d'agir également sur cette couleur ?

merci

Commentaire de md21 le 27/06/2008 13:40:57

vraiment, un grand merci pour ta réactivité, j'ai trainé à répondre car j'ai voulu essayer un peu, malheureusement pour l'instant c'est pas encore gagné mais je vais continuer.
Le problème c'est que je ne suis pas au top sur ce type de code et des exemples comme le tien m'ont déjà beaucoup aidé

Commentaire de FENETRES le 25/09/2008 12:21:44

Pour la couleur de la bande de menu, j'ai pensé à la solution ci-dessous :
---- Var -----------------------------------
   MenuInfo:TMenuInfo;
   BrushHandle: HBrush;
---- FormCreate ----------------------------
  // Couleur de la barre de menu
  BrushHandle:=CreateSolidBrush($C8D0D4);
  FillChar(MenuInfo, SizeOf(MenuInfo), 0);
  with MenuInfo do begin
    cbSize:=SizeOf(MenuInfo);
    hbrBack:=BrushHandle;
    fMask:=MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS;
  end;
  SetMenuInfo(MainMenu.Handle, MenuInfo);
---- FormDestroy ---------------------------
DeleteObject(BrushHandle);
--------------------------------------------
Vous pourrez constater que celle-ci n'est pas complètement satisfaisante puisqu'il reste la ligne de bordure du menu et que les items sélectionnés ne sont pas à la couleur spécifiée.

Commentaire de FENETRES le 22/10/2008 14:40:25

Bonjour MD21,

Cela étant, à ne pas douter, notre administrateur CS (DelphiProg) serait très inspiré de nous donner des exemples d'utilisation du composant TActionManager (coloration, placage de texture, images etc.).

Dans cette attente, cordialement

Commentaire de FENETRES le 23/10/2008 13:56:07

Ok, voici de façon résumée le moyen de modifier la couleur de fond d'un menu et des items.
Composants utilisés :
    - TActionManager (ActionManager),
    - TActionMainMenuBar (ActionMainMenuBar),
    - TStandardColoMap (StandardColorMap).

procedure TForm1.FormCreate(Sender: TObject);
Const
  BACK_COLOR=$C8D0D4;
begin
  with StandardColorMap do begin
    UpdateColors;
    Color:=BACK_COLOR;
    MenuColor:=BACK_COLOR;
    BtnSelectedColor:=BACK_COLOR;
  end;
  ActionMainMenuBar.ColorMap:= StandardColorMap;
end;

Bibliographie :
http://dn.codegear.com/article/29028
http://homepages.borland.com/strefethen/info/ABExpressTutorial.htm