Schrift Umrandung (Outline) auf Image realisieren

[Hawkeye219]

Hallo,

meinst du so etwas?

Delphi-Quellcode:

procedure DrawOutlinedText (aCanvas: TCanvas;
                            aPosX, aPosY: Integer;
                            aText: string;
                            aColor: TColor = clBlack);
var
  DC : HDC;
  OldMode : Integer;
begin
  aCanvas.Pen.Color := aColor;
  DC := aCanvas.Handle;
  OldMode := SetBkMode(DC, TRANSPARENT);
  BeginPath(DC);
  aCanvas.TextOut (aPosX, aPosY, aText);
  EndPath(DC);
  StrokePath(DC);
  SetBkMode(DC, OldMode);
end;

procedure TForm1.Button1Click (Sender: TObject);
begin
  Canvas.Font.Name := 'Arial';
  Canvas.Font.Size := 48;
  DrawOutlinedText (Canvas, 8, 8, 'Hallo Welt!', clBlue);
end;

Es funktioniert allerdings nur mit TrueType-Fonts.

Gruß Hawkeye