Couleur de la barre de menu

Version imprimable

26/08/2020, 09h31
sematimo

Couleur de la barre de menu

Bonjour à tous.

J'ai une question : Peut-on changer la couleur de fond d'une barre de menu ?
26/08/2020, 20h20
BeanzMaster

2 pièce(s) jointe(s)

Citation:

Envoyé par sematimo

Bonjour à tous.

J'ai une question : Peut-on changer la couleur de fond d'une barre de menu ?

Salut oui c'est possible

Pièce jointe 577931

Il faut mettre la propriété TMenu.OwnerDraw à True et assigner l'évènement OnDrawItem.
C'est également la même chose avec un TPopUpMenu.

Un petit exemple en prime, pour mieux comprendre

A+

Jérôme
27/08/2020, 09h44
sematimo

Bonjour

Merci pour ton code, je pense que je vais l'adapter aux popup.

Citation:
Envoyé par sematimo
Bonjour
Mon menu normal:

J'ai donc mis OwnerDraw à true et OnDrawItem à MainMenu1DrawItem.
Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.MainMenu1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; AState: TOwnerDrawState); var s: string; begin ACanvas.Brush.Color := clSkyBlue; ACanvas.Rectangle(ARect); s := (Sender as TMenuItem).Caption; ACanvas.TextOut(ARect.Left, ARect.Top, s); end;
Et voici le résultat:

Plutôt bizarre...
Bonjour,

si tu parles des bordures, c'est normal. car tu n'as pas définis Canvas.Pen.Color et Canvas.Brush.Style à bsClear avant l'écriture du texte

Essayes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.MMMenuDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; AState: TOwnerDrawState); var s: string; x, y : Integer; begin ACanvas.Pen.Color := clSkyBlue; ACanvas.Brush.Color := clSkyBlue; ACanvas.Rectangle(ARect); s := (Sender as TMenuItem).Caption; ACanvas.Brush.Style := bsClear; x := ARect.Left + 4; y := (ARect.Top + ARect.Bottom - ACanvas.TextHeight('Tq')) div 2; ACanvas.TextOut(x, y, s); end;
A+

27/08/2020, 10h13
sematimo

Effectivement avec Canvas.Pen.Color et Canvas.Brush.Style à bsClear ça marche.
Merci beaucoup.
27/08/2020, 10h22
sematimo

1 pièce(s) jointe(s)

J'ai un petit problème, les séparateur sont tronqués
Pièce jointe 577963

Citation:

Envoyé par sematimo

J'ai un petit problème, les séparateur sont tronqués

Dans ce cas, il faut faire comme dans mon premier exemple.

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
procedure TForm1.MMMenuDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; AState: TOwnerDrawState);
var
  s: string;
  x, y : Integer;
begin
  ACanvas.Pen.Color := clSkyBlue;
  ACanvas.Brush.Color := clSkyBlue;
  ACanvas.Rectangle(ARect);
  s := (Sender as TMenuItem).Caption;
 
  ACanvas.Brush.Style := bsClear;
 
  x :=  ARect.Left;
  y := (ARect.Top + ARect.Bottom - ACanvas.TextHeight('Tq')) div 2;
 
  if s = '-' then  // Séparateur
  begin
    ACanvas.Pen.Color := clGray;
    ACanvas.Line(ARect.Left, ARect.Top + 2, ARect.Right, ARect.Top + 2);
  end
  else
  begin
    x :=  x + 4;
    ACanvas.TextOut(x, y, s);
  end;
end;

27/08/2020, 10h58
sematimo

Merci
ça marche...
28/08/2020, 09h25
Jipété

1 pièce(s) jointe(s)

Salut,

HS

Citation:

Envoyé par BeanzMaster

Pièce jointe 577931

Ah, c'est rigolo, quand je regarde attentivement ta copie d'écran, qui ressemble à s'y méprendre à une situation IRL, je réalise que j'ai plus vite fait de lire les textes que de décoder les icônes (même si je les connais par cœur), :P

Hé ouais ! Et du coup j'en conclus qu'in fine elles ne servent à rien, :mrgreen:
Tiens, à la place tu devrais nous mettre une bombasse comme on en voit enroulées autour des pompes à essence, aux States, :zoubi:
T'as l'embarras du choix :

Pièce jointe 578057
:ptdr:

/HS