Ombre sur le texte d'un speedbutton [Résolu]

Messages postés
31
Date d'inscription
vendredi 5 mars 2004
Dernière intervention
15 avril 2007
- - Dernière réponse : cs_txo
Messages postés
31
Date d'inscription
vendredi 5 mars 2004
Dernière intervention
15 avril 2007
- 7 avril 2007 à 17:04
Bonjour,
Je doit coder un menu similaire a celui que je joint en image.
J'ai un problème pour créer un effet d'ombre sur les speedbutton.
Si quelqu'un peut m'aider, ca doit être possible vu que l'appli (en image) à été codée en delphi...
Voila voila
Sinon, si vous avez une autre idée pour faire ressortir le texte sur la photo...
Merci !
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
3
Merci
2 solutions :

soit on utilise les options "shaddow" des routines de dessins de Windows

soit on triche en appelant successivement deux TextOut :

Font.Color= clWhite;
TextOut(OffsetLeft+ShadOffsetLeft, OffsetTop+ShadOffsetTop, Text);
Font.Color = clBlack;
TextOut(OffsetLeft, OffsetTop, Text);

<hr size="2" width="100%" />Croc (click me)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de f0xi
Messages postés
4304
Date d'inscription
samedi 16 octobre 2004
Dernière intervention
9 mars 2018
3
Merci
Avec Rect definissant la zone a effacer

Canvas.FillRect(Rect)

<hr size="2" width="100%" />Croc (click me)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de f0xi
Messages postés
31
Date d'inscription
vendredi 5 mars 2004
Dernière intervention
15 avril 2007
0
Merci
Quel abruti j'ai oublié l'image

Voila : http://www.mezimages.com/afficher.php?num=11810-menu.jpg
Commenter la réponse de cs_txo
Messages postés
31
Date d'inscription
vendredi 5 mars 2004
Dernière intervention
15 avril 2007
0
Merci
Merci beaucoup je vais aller essayer ca
Commenter la réponse de cs_txo
Messages postés
31
Date d'inscription
vendredi 5 mars 2004
Dernière intervention
15 avril 2007
0
Merci
Voila comment j'ai fait pour que ca fonctionne :

Canvas.Brush.Style := bsClear;   //transparence du fond
Canvas.Font.Color := clWhite;   //selectione de la couleur
Canvas.TextOut(550,550,'Boby is magic');   //textout(x,y,string)
Canvas.Font.Color := clBlack;
Canvas.TextOut(551,551,'Boby is magic');

Quelqu'un a une idée de comment faire pour effacer le texte ecrit (pour avoir un menu dynamique...)
Commenter la réponse de cs_txo
Messages postés
31
Date d'inscription
vendredi 5 mars 2004
Dernière intervention
15 avril 2007
0
Merci
Ok merci
Commenter la réponse de cs_txo

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.