Bonjour à tous.
J'ai une question : Peut-on changer la couleur de fond d'une barre de menu ?
Bonjour à tous.
J'ai une question : Peut-on changer la couleur de fond d'une barre de menu ?
- "L'Homme devrait mettre autant d'ardeur à simplifier sa vie qu'il met à la compliquer" - Henri Bergson
- "Bien des livres auraient été plus clairs s'ils n'avaient pas voulu être si clairs" - Emmanuel Kant
- "La simplicité est la sophistication suprême" - Léonard De Vinci
- "Ce qui est facile à comprendre ou à faire pour toi, ne l'est pas forcément pour l'autre." - Mon pèrei
Mes projets sur Github - Blog - Site DVP
Bonjour
Merci pour ton code, je pense que je vais l'adapter aux popup.
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 :
A+
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 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;
- "L'Homme devrait mettre autant d'ardeur à simplifier sa vie qu'il met à la compliquer" - Henri Bergson
- "Bien des livres auraient été plus clairs s'ils n'avaient pas voulu être si clairs" - Emmanuel Kant
- "La simplicité est la sophistication suprême" - Léonard De Vinci
- "Ce qui est facile à comprendre ou à faire pour toi, ne l'est pas forcément pour l'autre." - Mon pèrei
Mes projets sur Github - Blog - Site DVP
Effectivement avec Canvas.Pen.Color et Canvas.Brush.Style à bsClear ça marche.
Merci beaucoup.
J'ai un petit problème, les séparateur sont tronqués
![]()
Salut,
HS
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),
Hé ouais ! Et du coup j'en conclus qu'in fine elles ne servent à rien,
Tiens, à la place tu devrais nous mettre une bombasse comme on en voit enroulées autour des pompes à essence, aux States,
T'as l'embarras du choix :
/HS
Partager