Das Beispiel ist schon mal interessant, zeichnet aber soweit ich es erkennen kann nur den Rand.
Das (Anlage) ist das Ergebnis meines Codes. Hier mal der Code, nur finde ich den etwas übertrieben.
Delphi-Quellcode:
procedure TextOutFontBorder(Canvas: TCanvas; x, y: Integer; Text: String;
ColorFont, ColorFontBorder: TColor; FontBorder: Boolean);
var
bx, by: Integer;
begin
if FontBorder then
begin
Canvas.Font.Color := ColorFontBorder;
for bx := 0 to 2 do //Font-Rand zeichnen
for by := 0 to 2 do
Canvas.TextOut(x + (1 - bx), y + (1 - by), Text);
end;
Canvas.Font.Color := ColorFont;
Canvas.TextOut(x, y, Text);
end;
Aber ich gucke mir an was es unter den Begriffen gibt.