Questione : Testo ombra/della sfuocatura

Ciao, il tavolo del

In Windows per esempio, le icone ha un leggero effetto ombra/della sfuocatura nel suo messaggero in tensione del
Windows del testo… ha lo stesso effetto in ogni testo… tranne il

Somebody del testo di chiacchierata naturalmente sa fare quello? Una certa componente? il

I crede che già esista, o almeno, vicino a quello!

Regards,
Carlos class= del

Risposta : Testo ombra/della sfuocatura

ciò sembra buona, vestito di forza voi… : -)
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;

interfaccia

usi
  Windows, messaggi, SysUtils, varianti, codici categoria, grafici, comandi, forme,
  Dialoghi, StdCtrls;

tipo
  TfrmMain = codice categoria (TForm)
    txtText: TEdit;
    Label1: TLabel;
    btnShadow: TButton;
    btnExit: TButton;
    btnExitClick di procedura (mittente: TObject);
    btnShadowClick di procedura (mittente: TObject);
  riservato
    {Dichiarazioni riservate}
    procedura FirstMethod;
  pubblico
    {Dichiarazioni pubbliche}
  estremità;

varietà
  frmMain: TfrmMain;

esecuzione

{$R *.dfm}

procedura TfrmMain.btnExitClick (mittente: TObject);
cominciare
    Fine;
estremità;

procedura TfrmMain.btnShadowClick (mittente: TObject);
cominciare
    FirstMethod;
estremità;

procedura TfrmMain.FirstMethod;
varietà
   lf: LOGFONT; Struttura natale della fonte di // Windows
   testo: stringa;
cominciare
   Canvas.Brush.Style: = bsClear; // ha fissato lo stile della spazzola a trasparente
   FillChar (lf, SizeOf (lf), byte (0)) ;
   lf.lfHeight: = 20;
   lf.lfFaceName: = “Arial„;
   Canvas.Font.Handle: = CreateFontIndirect (lf);
   Canvas.Font.Color: = clBlack;
   testo: = txtText.Text;
   Canvas.TextOut (20, 100, testo); ombra di // nel nero
   Canvas.Font.Color: = clGray;
   Canvas.TextOut (19, 99, testo); il testo di // in 1pxl grigio lasciato ed aumenta
estremità;

estremità.
Altre soluzioni  
 
programming4us programming4us