Text mit Kontur (Outline) auf canvas zeichnen

[Aenogym]

hi leute,

mit TextOut() kann ich ja text auf einen canvas zeichnen. ich möchte aber gern, dass mein text eine kontur hat, damit man ihn auf hellen und dunklen hintergründen gut lesen kann. könnt ihr mir da helfen?

in der suche hab ich nur einen link auf toc's komponenten gefunden, was mir aber nicht weiterhilft, da ich den text in eine paintbox zeichnen muss.

dnake schonmal,
aenogym

[Kroko1999]

dann drucke in doch (+1,+1) pixel in schwarz einmal aus und dann an Pixel normal mit brush.Style=bsClear

[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