Recherche:

Voici le résultat final avec quelques commentaires ajoutés :)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus,...

Bon alors même si j'ai "triché" un peu je suis content du résultat final que voici.

http://img75.imageshack.us/img75/9105/menu64cx.jpg

L'ajout d'une marge dans mon code évite le problème des...

La solution du paresseux serait la suivante. Elle ne solutionne pas le problème mais l'évite. C'est pas l'idéal mais bon c'est mieux que rien.

1. On laisse une marge à gauche et à droite
2. On...

Code mis à jour avec la nouvelle image de la flèche

(Code complet de la forme)


unit Unit1;

interface

uses

J'avance tout près de la solution
Code du ondrawitem


var dc:hdc;
i:integer;
begin
acanvas.Refresh;
dc:=acanvas.Handle;
acanvas.font.color:=clwhite;

Merci bien de tes efforts
J'aimerais bien avoir le code ici ou par courrier au softprog@sympatico.ca

Qqun a du nouveau?

De mon côté, une recherche additionnelle sur google news me fait retenir 2 choses.

1. Quand la question était posée dans un groupe delphi on disait la plupart du temps que...

Merci
Cependant j'ai essayé ton code et la fèche est toujours noire même si la fonte est de couleur bleue.
Il manquerait pas une ligne dans ton code car je ne vois pas d'instruction spécifiant la...

Pour illustrer mon problème voici une petite image

http://img317.imageshack.us/my.php?image=menu3rn.jpg

La première illustre ce que je vois lors du popup
La 2e illustre ce qui est visible...

ah ok..bizarre.

Pour ce qui est du odnoaccel, puisque je ne vérifie pas le "state" cela ne fait pas de différence.

Vraiment un problème étrange. Il m'obsède et pourtant c'est rien de si...

Est-ce que tu veux dire que les menus s'affichent correctement sans la flèche du sous-menu? Bref que mon code marche chez toi?

Quelle version de delphi utilises-tu ? moi c'est D6.

Edit: Un...

Voilà la seule référence sur le sujet que j'avais trouvé sur le net (pas en delphi mais c'est facile à convertir). C'est d'où vient mon code delphi précédemment mentionné. Ça ne marche cependant pas...

Bien sûr.

Peut-être que quelqu'un possédant le code source du menu de Tmssoftware pourrait y jeter un oeil et nous donner un indice ?

Je crois que je vais abandonner l'idée pour le moment.
J'ai vraiment tout essayé.
J'ai cherché, cherché et cherché encore. Aucune solution trouvée sur le net.

Je devrai me contenter de la...

Je suis sur une piste
Code du ondrawitem


var
dc:hdc;
begin
acanvas.Brush.Color:=clnavy;
acanvas.FillRect(arect);
acanvas.Font.Color:=clwhite;

ouais c'est vraiment un petit problème énervant

J'ai essayé de dessiner un graphique à droite du texte mais la flèche se dessine par dessus.

Merci mais il y a une petite confusion ici :)

Je ne cherche pas à changer le curseur mais la petite flèche qui est dessinée sur le menu lorsque celui-ci a un sous-menu.

Je dessine moi-même mon menu en utilisant l'événement ondrawitem et j'aimerais également changer l'apparence de la flèche indiquant qu'il y a un sous-menu.

Celle-ci est toujours noire et est ainsi...