CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 05:31:08

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : MESSAGE (IMPOSSIBLE D'INITIALISER BDE par abdned1

RE : ENCODAGE SUR 3 BYTES par Francky23012301

RE : VISTA INTERACTIVE SERVICES par Bacterius

RE : CRéER UN EXECUTABLE D'UNE APPLICATION DELPHI 7 par Delphiprog

RE : MESSAGE D' ERREUR par Delphiprog

+ de logiciels à télécharger

1 465 009 membres
55 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 047 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

TEXTE GRAPHIQUE AVEC CONTOUR, OMBRE ET TEXTURE EN API

Information sur la source

Catégorie :Graphique Classé sous : Texte, Contour, Texture, Ombre, DrawState Niveau : Débutant Date de création : 14/06/2008 Vu / téléchargé: 3 183 / 319

Auteur : cirec

Ecrire un message privé

Note :

8,33 / 10

Commentaire sur cette source (12)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Après avoir vu la source de Debiars
http://www.delphifr.com/codes/TEXTE-GRAPHIQUE-AVEC-CONTOUR_46995.aspx
je me suis dit qu'il était temps de déposer la mienne.

Elle permet d'écrire un texte avec contour, ombre et texture (bitmap)
et le tout 100% API
vous avez le choix de:
  la police
  la taille
  de la couleur et taille du contour
  de la couleur et taille de l'ombre
  de la couleur où de la texture (Bitmap) du texte

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

crinklepaper.BMP 49 206 octets
Demo.dpr 193 octets
Demo.ex_457 728 octets
Demo.res4 396 octets
Gradients.pas 10 838 octets
UMain.dfm5 307 octets
UMain.pas 5 853 octets

Télécharger le zip

Sources du même auteur

BITMAP 32BITS INTÉGRÉ À LA VCL (TIMAGE, TPICTURE, TBITMAP, T...

[ASTUCE] COMMENT VOIR UN ITEM, D'UNE LISTBOX, TRONQUÉ DANS U...

TEXTE GRAPHIQUE AVEC CONTOUR, OMBRE ET TEXTURE EN API VERSIO...

ROTATION (RAPIDE) DE BITMAP (À 360°) EN PUR GDI

EFFETS ZOOM & MIROIR SUR BITMAP

Toutes les sources de cirec

Sources de la même categorie

ÉCRAN DE VEILLE FEU D'ARTIFICE par barbichette

BOZOON - ANIMATION GDI+ par f0xi

NUANCIER POUR CODER EN RGB par Toidil

ANIMATION AVEC PNG par Bacterius

BITMAP 32BITS INTÉGRÉ À LA VCL (TIMAGE, TPICTURE, TBITMAP, T... par cirec

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

PRÉ-COMPOSANT D'AFFICHAGE DE TEXTE PROGRESSIF... par blueperfect

TEXTURE PACKER - OU COMMENT GÉRER UNE BANQUE DE TEXTURES FAC... par Bacterius

[GDI+] TEXTE GRAPHIQUE AVEC CONTOUR par f0xi

TEXTE GRAPHIQUE AVEC CONTOUR, OMBRE ET TEXTURE EN API VERSIO... par cirec

TEXTE GRAPHIQUE AVEC CONTOUR par Debiars

Commentaires et avis

Commentaire de Debiars le 15/06/2008 09:49:05

Vite fait, bien fait...j'ai une erreur :
"Erreur à la création de la fiche.Lors de la lecture de pb_Display.ExplicitLeft : la propriété ExplicitLeft n'existe pas"
En passant outre, ça compile et ça marche, mais le dessin du texte commence en dehors de la fenêtre. J'ai donc utilisé Demo.ex_, mais le résultat est le même.
En rajoutant un blanc devant, ça recentre, mais le souligné déborde toujours... peut-on le supprimer.

Commentaire de cirec le 15/06/2008 11:54:54 administrateur CS

@Florenth:
Merci pour l'appréciation ... ça fait toujours plaisir ;)

en ce qui concerne la procédure dans une unité, oui c'est possible (mais plus pour aujourd'hui ^^)

pour écrire selon un angle il faut regarder du coté de TLogFont:
http://www.delphifr.com/codes/LABEL-ORIENTABLE-360-V3_11890.aspx
pour un affichage sinusoïdale voir ici:
http://www.delphifr.com/codes/DANCER-DEFILLER-TEXTE_29225.aspx

@Debiars:
cette propriété est ajouté par TurboDelphi mais tu l'as compris, en l'ignorant ça passe ;)

le fait que le texte commence a l'extérieur de la zone d'affichage c'est à cause de la fonte en "Italic" et du "Souligné" si tu mets le texte en "Normal" l'affichage commence pile poile ... enfin peut importe (c'est du chipotage lol) ... en effet la procédure DrawState accepte en paramètre l'origine X,Y pour l'affichage
et si c'est "le souligné" que tu veux supprimer il faut cliquer sur le Label "Informations sur la Fonte" et tu peux alors tout modifier, ajouter où supprimer.

voilà j'espère avoir répondu a tes attentes ^^

Commentaire de Caribensila le 15/06/2008 13:59:32

Salut,
Eh bein... Il y a de l'émulation sur delphifr en ce moment! C'est super! :)
Si tu reprends ton source, Cirec, je te suggère un petit truc sympa pour une ombre 'automatique' :

uses GraphUtil; // pour GetShadowColor, à partir de D6.

procedure Tfrm_Main.DoDrawText;
...
if cb_Shadow.Checked then
    begin
      //pb_Display.Canvas.Brush.Color := sh_Shadow.Brush.Color;
        pb_Display.Canvas.Brush.Color := GetShadowColor(frm_Main.Color);
...

Commentaire de Debiars le 15/06/2008 17:45:54

@Cirec : Ok, cinq loups!

@Carib : Sûr, émulation vaut mieux qu concurrence...
Au fait, t'aurais pas fait faire un lifting, j'ai failli pas te reconnaitre :-)

Commentaire de Caribensila le 15/06/2008 18:40:59

@DeBiars : Nan nan. C'est passe que j'ai arrêté les épilations pour avoir une moustache comme toi.

Commentaire de Caribensila le 15/06/2008 22:29:04

C'est Cirec qui s'est fait lifter... à mort.

PS: C'est ce qu'on appelle l'esprit d'escalier. lolll

Commentaire de cantador le 15/06/2008 22:31:07 8/10

beau et bien fait..
avec quelques propriétés supplémentaires
çà pourrait faire un bon compo TCirecLabel
un peu sur le style des TfcLabel ou TcxLabel

Commentaire de Francky23012301 le 16/06/2008 14:15:37

Je viens de tester : Ca fonctionne nikel et le rendu est excellent. Coté code rien à redire : peut etre le niveau débutant est un peu light. Sinon moi aussi j'attend la version composant. Allez un 9/10 à code de ce bémol (composant je parle)

Commentaire de Francky23012301 le 16/06/2008 14:16:07 9/10

Rajoute de la note (pénible ce truc)

Commentaire de Fred_Ca_Pulse le 19/06/2008 15:23:15 8/10

Nickel aussi pour moi
... mais j'attends aussi impatiemment une version en unité indépendante en vue du 10/10.
Superbe rendu en tout cas !

Commentaire de cirec le 20/06/2008 15:20:57 administrateur CS

je vous informe que la version composant est ici:
http://www.delphifr.com/codes/TEXTE-VERSION-compo_47063.aspx

Commentaire de MAURICIO le 30/06/2008 17:06:33

Salut Cirec,

avant de me jeter sur le compo, je passe voir la source originnelle et paf ... (non, pas paf le chien ...) pas de commentaires: Honte à toi ^^
Je note pas, j' attends de voir si tu nous expliques un peu comment ça marche car c' est pas si simple que ça.
A+

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Ombre sur le texte d'un speedbutton [ par txo ] 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 pe Richedit et texte formatté [ par txo ] Bonjour,Je souhaite afficher dans un richedit un texte formatté je ne sais pas de quel format il s'agit voici un extrait du fichier :-------------VER2 parcourir un fichier texte [ par emubusta ] Bonjour à tous,je suis debutant en delphi et j'aimerai savoir si quelqu'un pourrait me dire comment parcourir un fichier en partant de la fin me Accents en APP Console [ par ELCouz ] Bonjour,j'ai une question stupide qui me chicote depuis longtemps,,,comment on fait pour afficher du texte avec des accents avec la commande Writeln.. Case Of / fichier texte / macro... Question facile [ par ELCouz ] Bonjour,Je travail souvent avec des ComboBox avec des liste entre 200 items et 3000 items ... ma question est j'aimera faire un pti programme pour fai Delphi image+texte [ par stoamm ] Bonjour,Je recherche un composant delphi me permettant d'intégrer du texte à une image.Le texte ayant comme fond l'image. Je ne veux pas que l'image s fichier texte et fichier typé [ par ludopika ] Bonjour,Je n'arrête pas de rechercher sur le web une question que je me pose.Losque l'on utilise un fichier typé, est ce que l'on peut effacerun enreg envoyer un texte a un email en delphi [ par mohamedjayed ] je veut ecrire code source en delphi qui permet d'envoyer un texte a un email definit(l'interface contien une zone de texte zone d'email recepteur z Editeur de texte [ par alexyou ] Bonsoir tout le monde j'aimerais bien savoir comment accepter que les lettre dans un Editeur de text et généré une boite de dialogue erreur en cas que Texte dans le bouton [ par gabiset ] Bonjour,J'utilise la propriété Caption de mon TButton pour afficher le texte que je souhaite sur ce bouton. Le problème auquel je suis confrontée est