[FAQ] [Défi] Amélioration d'un TMainMenu

Bon, à priori, comme la question de la semaine est en train de tomber à l'eau à cause du fait que le popupmenu est plus relié à la Toolbar qu'au enu (http://www.developpez.net/forums/vie...45546&start=15), et qu'en plus l'idée de défi de programmation vous intéresse majoritairement (http://www.developpez.net/forums/viewtopic.php?t=429583), je vous en propose un aussi sympa que redoutable sur les TMainMenu

Comme vous le savez, on peut assigner une image à un Item de menu par le biais d'un imagelist. Cette image peut donc être changée à volonté en changeant la valeur de sa propriété ImageIndex.
A volonté ? pas tout à fait...

Pour la base, dans votre IDE, vous faites "Fichier-->Nouveau-->Autre...", puis vous allez dans l'onglet Projets et vous choisissez, selon votre plateforme Application Logo Win2000 ou bien Application Logo Win95/98.

1)Question facile de mise en train :
Dans votre TMainMenu, sous l'Item Fichier, vous avez L'item Quitter. L'utilisateur souhaiterais que l'image en vis à vis du mot "Quitter" soit représentée par une porte fermée par défaut, et une porte ouverte quand la souris passe dessus. Comment feriez-vous ?

2)Question niveau Experts
L'utilisateur souhaiterais que dans le TMainMenu, en vis-à-vis du mot "Aide", on représente par défaut l'image d'un téléphone raccroché, et, lorsque le menu est déroulé (et seulement dans ce cas), un téléphone décroché !
Comment feriez vous ?

C'est réalisable, je l'ai déjà fait, donc pas de : c'est pas possible à faire, hein ?


Les images nécessaires sont fournies par Borland dans le répertoire :
C:\Program Files\Fichiers communs\Borland Shared\Images\Buttons
et s'appellent :
- DoorOpen.bmp
- DoorShut.bmp
- Phone.bmp
- PhoneRng.bmp

Alors, si ça vous tente...

Hauwke m'a suggéré quelque d'imposer quelques règles pour le défi...
Voici ses questions et mes réponses à ce propo :

Avez-vous le droit de rajouter des compo ou pas ?
Oui, si ce sont les votres et que vous fournissez la source
Sinon, non, parce qu'il n'y a pas besoin d'autre chose que le composant TMainMenu, et que Delphi standard, sans composants tiers doit suffire.

Peut gagner dans les deux défis ou seulement dans un à la fois ?
Non,non les deux

Si on peut poster plusieurs fois ?
Oui, bien sûr...

...Et donc si on peut utiliser le début de code des autres posteurs... ?
Oui, mais seul votre propre code vous fera gagner...
Par contre, je vous autorise à utiliser le code de Borland si vous en avez besoin (VCL, RTL)

Comment est choisi le gagnant, le deuxième, le troisième ?
Sur plusieurs critères :
- Plus vous posterez une réponse tôt, mieux vous serez noté.
- La manière dont vous animerez le post (entre-aide, suggestions, idées nouvelles, perspectives)
- Le type de réponse données : composant complet, simple procédure, etc...
- La concision, la clarté, les explications données (commentaire du code, pourquoi faites vous comme ça et qu'est-ce qui vous a amené à ce résultat)
- L'aspect réutilisation.
- etc...

On a combien de temps pour le faire ?
Je part en vacances dimanche, donc le gagnant sera désigné samedi soir

Bonne chance, que le/la meilleur(e) gagne !

Envoyé par portu

Bon j'ai directement attaqué le deuxième :

Code :

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

1
2
 
Pas mal, pas mal

Voila, je ne sais si c'est ce que tu attendais pour le résultat.

Exactement ! Mais c'est pas beau (coloration de l'Item, et caractère de raccourci (&)) !

Premier code exploitable en 1h17mn...Y'a des hotlines qui viennent de prendre un coup de pieds aux fesses...
Je serais curieux de savoir combien de temps celà aurait pris si la question avait été posée de façon plus classique sur le forum...
"Dans le jeu, le pire ce n'est pas la défaite, c'est de ne pas jouer!" (mon grand-père)

Salut,
c'est une superbe idée

Envoyé par waskol

Par contre, je vous autorise à utiliser le code de Borland si vous en avez besoin (VCL, RTL)

Je me permets de préciser :
à l'utiliser au travers de composants et appels de fonction/procédure et non à pas à reprendre et publiciter le code de la VCL et du runtime, cf. copyright.

Envoyé par Laurent Dardenne

Salut,
c'est une superbe idée

Merci beaucoup !
Et puis j'en ai d'autres en stock des comme ça... :p

Envoyé par Laurent Dardenne

à l'utiliser au travers de composants et appels de fonction/procédure et non à pas à reprendre et publiciter le code de la VCL et du runtime, cf. copyright.

Of course !


Pour bjl, je teste ça demain matin

Envoyé par bjl

bonjour, un petit essai

Code :

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

Ton Code :)

C'est un bel essai, mais il y a des problèmes de couleur avec l'Item de menu 'Aide' qui se retrouve être de la même couleur que le menu qui se déroule mais pas de la même couleur que ses voisins 'Fichier' et 'Edition'

Pareil avec l'Item 'Quitter', l'image de menu n'est pas "enrobée" par la couleur "Highlight" comme le texte lui même.

En tout cas, bravo !

salut

modif sur le code de bjl

Code :

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

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
29
30
31
32
33
 
 
procedure TWin2kAppForm.FileExitItemDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
Var
  OutRect  : Trect;
  AText : String;
  fo : Tfont;
  Brush : TBrush;
begin
   AText := (sender as Tmenuitem).caption;
  OutRect := ARect;
  OutRect.Right := OutRect.Left   +imagelist1.Width+4;
  OutRect.Top   := OutRect.Bottom -imagelist1.Height-4;
  OutRect.Right := OutRect.Left   +imagelist1.Width  + 4;
  OutRect.Top   := OutRect.Bottom -imagelist1.Height - 4;
  InflateRect(OutRect, 0,-1);
 
  if selected then
  Begin
    DrawEdge(ACanvas.Handle, OutRect, BDR_RAISEDINNER   ,BF_RECT);
    InflateRect(OutRect, -2,-1);
    imagelist1.Draw(ACanvas,OutRect.left , OutRect.top , FDoorOpenIndex);
  end
  else
  Begin
    Acanvas.FillRect(OutRect);
    InflateRect(OutRect, -2,-1);
    imagelist1.Draw(ACanvas, OutRect.left, OutRect.top , FDoorShutIndex);
  End;
  OutRect := ARect;
  MyDrawText(Acanvas,OutRect,atext);
end;

Je m'occupe de l'aide ensuite

bon apres inspection j'utilise pas le meme evenement et j'ai creer une methode supplementaire

Code :

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

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Procedure TWin2kAppForm.MyDrawText(Acanvas : Tcanvas;var outrect : trect;atext : String);
begin
  InflateRect(OutRect,-1,-1);
  OutRect.Left  := OutRect.Left   +imagelist1.Width  + 4;
  OutRect.Top   := OutRect.Bottom -imagelist1.Height - 2;
  Acanvas.FillRect(OutRect);
  InflateRect(OutRect, -2,0);
  DrawText( Acanvas.Handle, pchar(atext), length(atext), OutRect, DT_LEFT   );
end;
 
procedure TWin2kAppForm.Help1AdvancedDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
var
 selected : boolean;
 Atext : String;
 OutRect   : Trect;
begin
  AText := (sender as Tmenuitem).caption;
  OutRect := Arect;
 
  Acanvas.FillRect(Arect);
  InflateRect(OutRect,-1,-1);
  OutRect.Left := OutRect.Left+2;
  OutRect.Right := OutRect.Left + 2 + imagelist1.Width;
  if odHotLight in State then
  begin
    DrawEdge(ACanvas.Handle,Arect, BDR_RAISEDINNER,BF_RECT);
  end;
 
  selected := odselected in State;
  if selected then
  Begin
    DrawEdge( ACanvas.Handle,ARect, BDR_SUNKENOUTER   ,BF_RECT);
    imagelist1.Draw(ACanvas, OutRect.left , OutRect.top , FPhoneRngIndex);
  end
  else
  Begin
    imagelist1.Draw(ACanvas,OutRect.left , OutRect.top, FPhoneIndex);
  End;
   OutRect := ARect;
   MyDrawText(Acanvas,OutRect,atext);
end;

a savoir on peut deporter l'ecriture de texte dans une methode
@+ Phil

Hé bien ça n'est pas mal tout ça ! Félicitations à vous 3, on peut vous applaudir très fort

Cependant, Il y a toujours un problème de coloration d'item qui persiste et ce qui serait bien, c'est d'avoir ce genre de code sous forme de procedure par exemple afin qu'il soit réutilisable.

Je vous posterais mon code bientôt

Bonjour,

Envoyé par Waskol

Je vous posterais mon code bientôt

La publication du résultat n'était-elle pas prévu samedi soir avant un départ en vacances?
Cordialement,
Hauwke

Envoyé par Hauwke

Bonjour,

Envoyé par Waskol

Je vous posterais mon code bientôt

La publication du résultat n'était-elle pas prévu samedi soir avant un départ en vacances?
Cordialement,
Hauwke

Excusez , moi pour le bientôt , prenez le comme si c'était "Samedi soir".

Et bien sur, le défi reste toujours ouvert jusqu'à Samedi soir

C'était histoire d'encourager les concurents (ils en ont bien besoin), et inciter de nouveaux participants à poster leur code

salut

Dit m'en plus sur le probleme de coloration
j'ai pas vu le probleme a quelle momment intervient il ?

Pour paufiner mes petite fonction

bon en attendant ta reponse voila sous forme de procedure non object

Code :

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

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Procedure MyDrawText(Acanvas : Tcanvas;var outrect : trect;Width,Height: Integer;atext : String);
begin
  InflateRect(OutRect,-1,-1);
  OutRect.Left  := OutRect.Left   +Width  + 4;
  OutRect.Top   := OutRect.Bottom -Height - 2;
  Acanvas.FillRect(OutRect);
  InflateRect(OutRect, -2,0);
  DrawText( Acanvas.Handle, pchar(atext), length(atext), OutRect, DT_LEFT   );
end;
 
Procedure DessItemmenu(ACanvas : Tcanvas;Img : Timagelist;ARect: Trect;selected : Boolean;index1,index2 : integer;AText : String );
Var
  OutRect  : Trect;
Begin
  OutRect := ARect;
  OutRect.Right := OutRect.Left   +Img.Width+4;
  OutRect.Top   := OutRect.Bottom -Img.Height-4;
  OutRect.Right := OutRect.Left   +Img.Width  + 4;
  OutRect.Top   := OutRect.Bottom -Img.Height - 4;
  InflateRect(OutRect, 0,-1);
 
  if selected then
  Begin
    DrawEdge(ACanvas.Handle, OutRect, BDR_RAISEDINNER   ,BF_RECT);
    InflateRect(OutRect, -2,-1);
    img.Draw(ACanvas,OutRect.left , OutRect.top , index1);
  end
  else
  Begin
    Acanvas.FillRect(OutRect);
    InflateRect(OutRect, -2,-1);
    img.Draw(ACanvas, OutRect.left, OutRect.top , index2);
  End;
  OutRect := ARect;
  MyDrawText(Acanvas,OutRect,img.Width,img.Height,atext);
end;
 
Procedure DessAdvItemmenu(ACanvas : Tcanvas;Img : Timagelist;ARect: Trect;State : TOwnerDrawState;index1,index2 : integer;AText : String );
var
 selected : boolean;
 OutRect   : Trect;
Begin
  OutRect := Arect;
  Acanvas.FillRect(Arect);
  InflateRect(OutRect,-1,-1);
  OutRect.Left := OutRect.Left+2;
  OutRect.Right := OutRect.Left + 2 + img.Width;
  if odHotLight in State then
  begin
    DrawEdge(ACanvas.Handle,Arect, BDR_RAISEDINNER,BF_RECT);
  end;
 
  selected := odselected in State;
  if selected then
  Begin
    DrawEdge( ACanvas.Handle,ARect, BDR_SUNKENOUTER   ,BF_RECT);
    img.Draw(ACanvas, OutRect.left , OutRect.top ,index2);
  end
  else
  Begin
    img.Draw(ACanvas,OutRect.left , OutRect.top, index1);
  End;
  OutRect := ARect;
  MyDrawText(Acanvas,OutRect,img.Width,img.Height,atext);
End;
 
procedure TWin2kAppForm.FileExitItemDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
  DessItemmenu(ACanvas,ImageList1,ARect,selected,FDoorOpenIndex,FDoorShutIndex,(sender as Tmenuitem).caption);
end;
procedure TWin2kAppForm.Help1AdvancedDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
  DessAdvItemmenu(ACanvas,ImageList1,ARect,state,FPhoneIndex,FPhoneRngIndex,(Sender as TMENUITEM).caption );
end;
 
procedure TWin2kAppForm.Help1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  Width := width + imagelist1.Width + 4;
end;

@+ Phil

Je tourne sous Windows XP avec le theme "Vert Olive" (Propriétés d'affichage--> Apparences)

salut

a bin oui je voi mieux maintenant le probleme
bon je vais corriger le bug du tmainmenu

voila le resultat des course

a mettre dans le Formcreate

Code :

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

1
2
3
4
5
6
7
  For i:=0 to Pred(MainMenu1.Items.Count) do
  Begin
    if i = 2 Then
      MainMenu1.Items[i].OnAdvancedDrawItem := Help1AdvancedDrawItem
    else
      MainMenu1.Items[i].OnAdvancedDrawItem := OnadAdvItemmenu;
  end;

annule et remplace les autre code

Code :

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

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
Procedure MyDrawText(Acanvas : Tcanvas;var outrect : trect;img : TimageList;atext : String);
begin
  InflateRect(OutRect,-1,-1);
  if assigned(img) Then
  begin
    OutRect.Left  := OutRect.Left   +img.Width  + 4;
    OutRect.Top   := OutRect.Bottom -img.Height - 2;
  end;
  Acanvas.FillRect(OutRect);
  InflateRect(OutRect, -2,0);
  DrawText( Acanvas.Handle, pchar(atext), length(atext), OutRect, DT_LEFT   );
end;
 
Procedure TWin2kAppForm.MyDrawMainMenuitem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
Begin
  ACanvas.Brush.Color := clOlive;
  MyDrawText(Acanvas,ARect,nil,(Sender as TMenuItem).caption);
End;
 
Procedure DessItemmenu(ACanvas : Tcanvas;Img : Timagelist;ARect: Trect;selected : Boolean;index1,index2 : integer;AText : String );
Var
  OutRect  : Trect;
Begin
  OutRect := ARect;
  OutRect.Right := OutRect.Left   +Img.Width+4;
  OutRect.Top   := OutRect.Bottom -Img.Height-4;
  OutRect.Right := OutRect.Left   +Img.Width  + 4;
  OutRect.Top   := OutRect.Bottom -Img.Height - 4;
  InflateRect(OutRect, 0,-1);
 
  if selected then
  Begin
    DrawEdge(ACanvas.Handle, OutRect, BDR_RAISEDINNER   ,BF_RECT);
    InflateRect(OutRect, -2,-1);
    img.Draw(ACanvas,OutRect.left , OutRect.top , index1);
  end
  else
  Begin
    Acanvas.FillRect(OutRect);
    InflateRect(OutRect, -2,-1);
    img.Draw(ACanvas, OutRect.left, OutRect.top , index2);
  End;
  OutRect := ARect;
  MyDrawText(Acanvas,OutRect,img,atext);
end;
 
Procedure DessAdvItemmenu(ACanvas : Tcanvas;Img : Timagelist;ARect: Trect;State : TOwnerDrawState;index1,index2 : integer;AText : String );
var
 selected : boolean;
 OutRect   : Trect;
Begin
  selected := odselected in State;
  OutRect := Arect;
  if not(selected) Then
    ACanvas.Brush.Color := clBtnFace
  else
    ACanvas.Brush.Color := clHighlight ;
 
  Acanvas.FillRect(Arect);
  if odHotLight in State then
  begin
    DrawEdge(ACanvas.Handle,Arect, BDR_RAISEDINNER,BF_RECT);
  end;
 
  InflateRect(OutRect,-1,-1);
  OutRect.Left := OutRect.Left+2;
  If Assigned(img) Then
  begin
    OutRect.Right := OutRect.Left + 2 + img.Width;
    if selected then
    Begin
      DrawEdge( ACanvas.Handle,ARect, BDR_SUNKENOUTER   ,BF_RECT);
      img.Draw(ACanvas, OutRect.left , OutRect.top ,index2);
    end
    else
    Begin
      img.Draw(ACanvas,OutRect.left , OutRect.top, index1);
    End;
  end;
  OutRect := ARect;
  MyDrawText(Acanvas,OutRect,img,atext);
End;
procedure TWin2kAppForm.OnadAdvItemmenu(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
  DessAdvItemmenu(ACanvas,nil,ARect,state,0,0,(Sender as TMENUITEM).caption );
end;
 
procedure TWin2kAppForm.FileExitItemDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
  DessItemmenu(ACanvas,ImageList1,ARect,selected,FDoorOpenIndex,FDoorShutIndex,(sender as Tmenuitem).caption);
end;
procedure TWin2kAppForm.Help1AdvancedDrawItem(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
  DessAdvItemmenu(ACanvas,ImageList1,ARect,state,FPhoneIndex,FPhoneRngIndex,(Sender as TMENUITEM).caption );
end;
 
 
procedure TWin2kAppForm.Help1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  Width := width + imagelist1.Width + 4;
end;

bon j'en laisse un peu on peut encor ameliorer


@+ Phil

Ha oui, c'est bien mieux

Sinon, comme c'est un défi, je vais vous faire, amis compétiteurs, une annonce qui va vous mettre sur le flanc, en émoi profond, vous rendre sceptique, impatients, etc...

La solution que je vous posterais Samedi soir, en même temps que les résultats :
- Ne contient aucun code de la VCL Borland
- Pas une seule ligne de code de dessin (DrawEdge, Draw, DrawText, etc...)
- est 100% réutilisable et respecte les themes, les couleurs et tout et tout
- est franchement tordue et pas belle du tout

J'attend donc vos idée de génie.

Sinon, en classement provisoire, nous avons d'après mes critères :
- d'une très courte tête : anapurna
- exequo : portu et bjl

Envoyé par portu

Figure toi que je m'y attendais à celle là .
J'ai un peu cherché un truc tordu mais ne donne rien. Je chercherai encore demain et je compte bien trouver la solution

En fait, j'ai une solution beaucoup plus propre, mais qui réutilise 80% du code de Borland. Comme il y a du Copyright, ce n'est pas "postable" sur le forum.

J'en toucherais quand même un mot à l'occasion, pour dire comment faire.

Bref, en fait, j'ai deux solutions à disposition : une "clean" mais improposable, l'autre tordue mais 100% OpenSource faite maison