Vraag : De Tekst van het onduidelijke beeld/van de Schaduw

Hello, heeft

In Windows Desktop bijvoorbeeld, de Pictogrammen een klein effect van het Onduidelijke beeld/van de Schaduw in zijn tekst…
Windows de Levende Boodschapper het zelfde effect in elke tekst… behalve praatjetekst natuurlijk

Somebody het weet hoe te om dat te doen heeft? Één of andere component?

I gelooft het reeds, of minstens, dichtbij dat bestaat!

Regards,
Carlos

Antwoord : De Tekst van het onduidelijke beeld/van de Schaduw

dit kijkt goed, zou kunnen u aanpassen…: -)
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:

eenheid ShadowEffectDemo;

interface

gebruik
  Vensters, Berichten, SysUtils, Varianten, Klassen, Grafiek, Controles, Vormen,
  Dialogen, StdCtrls;

type
  TfrmMain = klasse (TForm)
    txtText: TEdit;
    Label1: TLabel;
    btnShadow: TButton;
    btnExit: TButton;
    procedure btnExitClick (Afzender: TObject);
    procedure btnShadowClick (Afzender: TObject);
  privé
    {Privé verklaringen}
    procedure FirstMethod;
  openbaar
    {Openbare verklaringen}
  eind;

var
  frmMain: TfrmMain;

implementatie

{$R *.dfm}

procedure TfrmMain.btnExitClick (Afzender: TObject);
begin
    Sluit;
eind;

procedure TfrmMain.btnShadowClick (Afzender: TObject);
begin
    FirstMethod;
eind;

procedure TfrmMain.FirstMethod;
var
   LF: LOGFONT; // inheemse de doopvontstructuur van Vensters
   tekst: koord;
begin
   Canvas.Brush.Style: = bsClear; // plaatst de borstelstijl aan transparant
   FillChar (LF, SizeOf (LF), Byte (0)) ;
   lf.lfHeight: = 20;
   lf.lfFaceName: = „Arial“;
   Canvas.Font.Handle: = CreateFontIndirect (LF);
   Canvas.Font.Color: = clBlack;
   tekst: = txtText.Text;
   Canvas.TextOut (20, 100, tekst); // schaduw in zwarte
   Canvas.Font.Color: = clGray;
   Canvas.TextOut (19, 99, tekst); // verlaten tekst in grijze 1pxl en omhoog
eind;

eind.
Andere oplossingen  
 
programming4us programming4us