Text mit Kontur (Outline) auf canvas zeichnen

[Aenogym]

danke für den denkanstoß

ich amch's jetzt so:

Delphi-Quellcode:

      Font.Color := clBlack;
      TextOut(x-1, y-1, text);
      TextOut(x+1, y-1, text);
      TextOut(x-1, y+1, text);
      TextOut(x+1, y+1, text);
      Font.Color := clWhite;
      TextOut(x, y, text);

klappt perfekt

aenogym