Schrift Umrandung (Outline) auf Image realisieren

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const Offset = 2; //2Pixel Abstand zum Text
var R: TRect;
begin
  R := Rect(10,10,50,50);
  Windows.DrawText(Canvas.Handle,'Hallo Welt',-1,R,DT_CALCRECT or DT_SINGLELINE);
  Windows.Rectangle(Canvas.Handle,R.Left - Offset,R.Top - Offset,R.Right + Offset,R.Bottom + Offset);
  SetBkMode(Canvas.Handle,TRANSPARENT);
  Windows.DrawText(Canvas.Handle,'Hallo Welt',-1,R,DT_VCENTER or DT_CENTER or DT_SINGLELINE);
end;