Frage : Unschärfen-/Schatten-Text

Hallo,

In Windows hat Schreibtisch zum Beispiel, die Ikonen einen kleinen Unschärfen-/Schatteneffekt in seinem Text…
Windows Phasenkurier hat den gleichen Effekt in jedem Text… außer Schwätzchentext selbstverständlich

Somebody kann das tun? Irgendein Bestandteil?

I glauben, dass es bereits oder mindestens, nahe dem existiert!

Regards,
Carlos

Antwort : Unschärfen-/Schatten-Text

dieses schaut gut, Machtklage Sie… :-)
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

Maßeinheit ShadowEffectDemo;

Schnittstelle

Gebrauch
  Windows, Mitteilungen, SysUtils, Varianten, Kategorien, Grafiken, Kontrollen, Formen,
  Dialoge, StdCtrls;

Art
  TfrmMain = Kategorie (TForm)
    txtText: TEdit;
    Label1: TLabel;
    btnShadow: TButton;
    btnExit: TButton;
    Verfahren btnExitClick (Absender: TObject);
    Verfahren btnShadowClick (Absender: TObject);
  privat
    {Private Erklärungen}
    Verfahren FirstMethod;
  Öffentlichkeit
    {Allgemeine Erklärungen}
  Ende;

var
  frmMain: TfrmMain;

Implementierung

{$R *.dfm}

Verfahren TfrmMain.btnExitClick (Absender: TObject);
anfangen
    Abschluss;
Ende;

Verfahren TfrmMain.btnShadowClick (Absender: TObject);
anfangen
    FirstMethod;
Ende;

Verfahren TfrmMain.FirstMethod;
var
   LF: LOGFONT; Gebürtige Gussstruktur //-Windows
   Text: Schnur;
anfangen
   Canvas.Brush.Style: = bsClear; // einstellte die Bürstenart auf transparentes es
   FillChar (LF, SizeOf (LF), Byte (0)) ;
   lf.lfHeight: = 20;
   lf.lfFaceName: = „Arial“;
   Canvas.Font.Handle: = CreateFontIndirect (LF);
   Canvas.Font.Color: = clBlack;
   Text: = txtText.Text;
   Canvas.TextOut (20, 100, Text); //-Schatten im Schwarzen
   Canvas.Font.Color: = clGray;
   Canvas.TextOut (19, 99, Text); //-Text in grauem gelassenem 1pxl und up
Ende;

Ende.
Weitere Lösungen  
 
programming4us programming4us