Question : Texte de tache floue/ombre

Bonjour, l'ordinateur de bureau du

In Windows par exemple, les icônes a un léger effet de tache floue/ombre dans son messager de phase du
Windows des textes… a le même effet en chaque texte… excepté le

Somebody des textes de causerie naturellement sait faire cela ? Un certain composant ? le

I croient qu'il existe déjà, ou au moins, près de celui !

Regards,
Carlos class= de

Réponse : Texte de tache floue/ombre

ceci semble bon, costume de force vous… : -)
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 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :

unité ShadowEffectDemo ;

interface

utilisations
  Windows, messages, SysUtils, variantes, classes, graphiques, commandes, formes,
  Dialogues, StdCtrls ;

type
  TfrmMain = classe (TForm)
    txtText : TEdit ;
    Label1 : TLabel ;
    btnShadow : TButton ;
    btnExit : TButton ;
    btnExitClick de procédé (expéditeur : TObject) ;
    btnShadowClick de procédé (expéditeur : TObject) ;
  privé
    {Déclarations privées}
    procédé FirstMethod ;
  public
    {Déclarations publiques}
  extrémité ;

variété
  frmMain : TfrmMain ;

exécution

{$R *.dfm}

procédé TfrmMain.btnExitClick (expéditeur : TObject) ;
commencer
    Fin ;
extrémité ;

procédé TfrmMain.btnShadowClick (expéditeur : TObject) ;
commencer
    FirstMethod ;
extrémité ;

procédé TfrmMain.FirstMethod ;
variété
   LF : LOGFONT ; Structure indigène de police de // Windows
   texte : corde ;
commencer
   Canvas.Brush.Style : = bsClear ; // a placé le modèle de brosse à transparent
   FillChar (LF, SizeOf (LF), byte (0)) ;
   lf.lfHeight : = 20 ;
   lf.lfFaceName : = « Arial » ;
   Canvas.Font.Handle : = CreateFontIndirect (LF) ;
   Canvas.Font.Color : = clBlack ;
   texte : = txtText.Text ;
   Canvas.TextOut (20, 100, texte) ; ombre de // dans le noir
   Canvas.Font.Color : = clGray ;
   Canvas.TextOut (19, 99, texte) ; le texte de // dans 1pxl gris laissé et se lèvent
extrémité ;

extrémité.
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us