quel item d'un menu est sélectionné (avant le clic) ?

Version imprimable

17/09/2006, 18h35
OutOfRange

quel item d'un menu est sélectionné (avant le clic) ?

Bonjour

La question est dans le titre...
Dans un menu, (au cas particulier un popupmenu), l'élément de menu sélectionné (avant tout clic) change lorsque l'utilisateur déplace la souris au-dessus du menu
Comment faire pour récupérer l'indice de cet item en surbrillance...
avant le clic ?

Merci pour votre aide ;)
17/09/2006, 18h41
Sunchaser

Bonjour,
Je dirais qu'il faut tester le parametre 'State' dans le OnDrawItem de chaque Item...

@ + ;)
17/09/2006, 19h08
OutOfRange
Salut Sunchaser
Et merci pour ton tuyau

J'ai fait ça pour tester...
Code:

1 2 3 4 5 procedure Tpal.menfiltreAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState); begin if odselected in state then showmessage('ok'); end;
Apparemment ça marche, sauf qu'il faut mettre la propriété ownerdraw du menu parent à true...
Pas de pb, sauf que le caption de mon item ne s'affiche pas (les autres oui)
???

Bonsoir,
Hé oui....c'est ça qui est 'relou' avec ces évènements, c'est qu'après tu dois tout gérer donc même l'affichage du caption de l'élèment.
Voici un bout de code que j'applique a tous les élèments d'un PopupMenu, en espérant t'éclairer. (c'est sous C++Builder mais je pense que tu réadapteras sans trop de soucis...)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 ACanvas->Brush->Color = clSilver; ACanvas->FillRect(ARect); if (State.Contains(odSelected)) { ACanvas->Font->Color = clRed; ACanvas->Font->Style = TFontStyles()<< fsBold; ACanvas->Rectangle(ARect); } else { ACanvas->Font->Color = clNavy; ACanvas->Font->Style = TFontStyles(); } tagRECT* pRect = new tagRECT(); pRect->left = ACanvas->ClipRect.left; pRect->right = ACanvas->ClipRect.right; if (Index > 0) { pRect->top = 20 * Index; } else { pRect->top = ACanvas->ClipRect.top; } pRect->bottom = ACanvas->ClipRect.bottom; DrawText(ACanvas->Handle, ((TMenuItem*)Sender)->Caption.c_str(), ((TMenuItem*)Sender)->Caption.Length(), pRect, DT_CENTER); pRect = NULL; delete pRect;
En espérant t'aider,
@ + ;)

Ok Sunchaser ça marche au poil ;)
En Delphi, ça donne ça...

Code:

1
2
3
4
5
6
7
8
9
10
procedure Tpal.menfiltreAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; State: TOwnerDrawState);
begin
  case odselected in state of
  false: acanvas.Brush.Color:=clmenu;
  true:  acanvas.Brush.Color:=clactivecaption;
  end;
  acanvas.FillRect(arect);
  acanvas.TextOut(arect.Left+7,arect.Top+3,'Filtre');
end;

Merci encore pour ton aide précieuse:mrgreen: