Canvas.TextOut mit Text Shadow-Erweiterung

[s.h.a.r.k]

Wenn ich dann aber das den Gaussian Blur anwende, wird quasi alles geblurrt und das will ich ja nicht. Daher ja die Idee mit dem transparenten Puffer-Layer, der dann später auf das Canvas gepinselt werden soll.

[Sailor]

Verstehe ich nicht, das Weichzeichnen ist doch schon auf dem Bitmap erfolgt.
Der wird jetzt auf den Canvas gezeichnet und dann anschließend an die gleiche
Position nochmals den Text auf den Canvas mit transparentem Hintergrund ausgeben.
Oder habe ich da was nicht mitgekriegt?

[Sailor]

Anbei noch eine kleine Demo

[s.h.a.r.k]

Achso, du meintest den zweiten TextOut-Befehl auf dem eigentlichen Canvas. Dabei setze ich den Brush-Style auf bsClear, was ja den selben Effekt hat.

Mein Problem ist eigentlich nur, dass dieser geblurrte Puffer-Bitmap eine Hintergrundfarbe hat und diese beim Pinsel auf dem Canvas übernommen wird. Was ich damit meine ist klar?

Bin gerade dabei das hier umzusetzen, nur klappts noch nicht so recht...

[Medium]

Wenn du beim Blur den Alphakanal mit verarbeitest, hast du doch schon die richtigen Transparenzwerte. Du musst nur darauf achten, dass das Alpha vom weichzuzeichnenden Bitmap 255 bei der Schrift ist, und 0 sonst.

[s.h.a.r.k]

Zitat von Medium:

Wenn du beim Blur den Alphakanal mit verarbeitest, hast du doch schon die richtigen Transparenzwerte. Du musst nur darauf achten, dass das Alpha vom weichzuzeichnenden Bitmap 255 bei der Schrift ist, und 0 sonst.

Wenn du mir nun noch sagst, wie ich das anstellen soll, dann wäre ich glücklich Den Gaussian Blur, den ich implementiert habe, der beachtet den Alpha-Kanal, in so fern das Pixel-Format pf32bit ist.

Canvas.TextOut() setzt jedenfalls keinerlei Alpha-Kanal, denn ich hatte schon testweise den Alpha-Kanal alles Pixel auf 0 gesetzt und darauf dann ein TextOut() gemacht.

[Blup]

Die Unit TransparentText im Anhang ist eine kleine Spielerei von mir:

Delphi-Quellcode:

uses
  TransparentText;

var
  iBlur: Integer;
  lBlur: IBitmapFilter;
  X, Y: Integer;
  s: string;
  dTransp: Double;
begin
{...}

  if iBlur > 0 then
    lBlur := TBlurFilter.Create(iBlur);
//  Image.Canvas.Font.Name  :=
  Image.Canvas.Font.Style := [fsBold{, fsItalic}];
  Image.Canvas.Font.Size  := 48;
  Image.Canvas.Font.Color := clRed;
  TransparentTextOut(Image.Canvas, X, Y, s, dTransp, lBlur);
end;