Items menus en couleur
fadys
Messages postés
2
Date d'inscription
dimanche 16 mai 2004
Statut
Membre
Dernière intervention
8 septembre 2004
-
7 sept. 2004 à 11:03
fadys Messages postés 2 Date d'inscription dimanche 16 mai 2004 Statut Membre Dernière intervention 8 septembre 2004 - 8 sept. 2004 à 15:41
fadys Messages postés 2 Date d'inscription dimanche 16 mai 2004 Statut Membre Dernière intervention 8 septembre 2004 - 8 sept. 2004 à 15:41
2 réponses
cs_Kenavo
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
5
7 sept. 2004 à 12:30
7 sept. 2004 à 12:30
Tu mets la propriété OwnerDraw du menu à true et tu défini toi-même la façon de les dessiner dans les évènement OnDrawItem des TMenuItems
Ca peut donner quelque chose comme
Ken@vo
____________________
Code, Code, Codec !
Ca peut donner quelque chose comme
procedure TForm1.PremierMenuItemDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
With Acanvas do
begin
Brush.Color := clRed;
Pen.Color := clRed;
Rectangle(Arect.Left,ARect.Top,ARect.Right,ARect.Bottom);
Pen.Color := clBlack;
TextOut(7,2,PremierMenuItem.Caption);
end;
end;
Ken@vo
____________________
Code, Code, Codec !
fadys
Messages postés
2
Date d'inscription
dimanche 16 mai 2004
Statut
Membre
Dernière intervention
8 septembre 2004
8 sept. 2004 à 15:41
8 sept. 2004 à 15:41
Bonjour,
Je te remercie bcp pour ta réponse.
Je l'ai pas encore essayé car je suis au boulot. Je le ferai ce soir et j'éspère ke sa marchera très bien
a+
Je te remercie bcp pour ta réponse.
Je l'ai pas encore essayé car je suis au boulot. Je le ferai ce soir et j'éspère ke sa marchera très bien
a+