Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Canvas.TextOut mit Text Shadow-Erweiterung (https://www.delphipraxis.net/161879-canvas-textout-mit-text-shadow-erweiterung.html)

s.h.a.r.k 25. Jul 2011 19:49

Canvas.TextOut mit Text Shadow-Erweiterung
 
Einen wunderschönen guten Abend zusammen,

hatte mir vor ein paar Tagen gedacht, dass ich "schnell" mal eine TextOut-Methode schreibe, die mir einen Text auf ein Canvas druckt -- was das normale TextOut() bisher ja kann -- und eben dazu noch einen passenden Schatten, analog zum CSS text-shadow.

So, meine Idee war die folgende: ich drucke in ein Buffer-Bitmap (PixelFormat: pf32bit, AlphaFormat: afDefined) den Text (übliches TextOut), lasse einen Weichzeichner drüber laufen (Gaussian Blur), pinsel die Bitmap auf das Canvas und drucke dann via dem üblichen TextOut den Text drauf. Soweit, so gut, aber ich habe nicht bedacht, dass mit hier die fehlende Transparenz einen Strich durch die Rechnung macht.

Ich hatte mir überlegt, das Bitmap komplett auf transparent, also bei jedem Pixel den Alpha-Kanal auf 0, zu setzen. Drucke ich den Text dann drauf, bleibt jedes Pixel transparent -> schlecht. Den Text direkt auf das Canvas drucken und darauf blurren ist blöde, da ja schon vorher etwas auf dem Canvas sein kann.

Irgendwie fällt mir im Moment nichts ein, wie ich dem Problem beikommen könnte. Ich will doch einfach nur einen Text auf einen transparenten Layer drucken, diesen blurren und unter Beachtung des Alpha-Kanals diesen Layer auf ein Canvas bringen :wall:

jfheins 25. Jul 2011 20:11

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
text auf ein Canvas malen, invertieren und als alphawerte für ein neues (komplett schwarzes) Bild hernehmen ;-)

Also quasi wie deine erste Lösung, nur statt einem schwarz/weiß übergang eben ein schwarz/transparent Übergang. (= statt einem Pixel mit wert 200 einen mit 0 und alpha = 55)

Namenloser 26. Jul 2011 06:18

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
[edit]irrelevant[/edit]

s.h.a.r.k 26. Jul 2011 10:31

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
Zitat:

Zitat von jfheins (Beitrag 1113501)
text auf ein Canvas malen, invertieren und als alphawerte für ein neues (komplett schwarzes) Bild hernehmen ;-)

Also quasi wie deine erste Lösung, nur statt einem schwarz/weiß übergang eben ein schwarz/transparent Übergang. (= statt einem Pixel mit wert 200 einen mit 0 und alpha = 55)

Okay, der Trick ist mir nicht wirklich eingefallen, danke dir! Aber wie genau pinsel ich das dann auf ein Canvas?! Ich habe keinerlei Methode gefunden, die mir das mit einer solchen Bitmaske zeichnet.

-- Edit: Bin evtl. doch fündig geworden -> AlphaBlend. MaskBlt ist ja scheinbar nur für "1-Bit-Transparenz".

Sailor 26. Jul 2011 10:45

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
Setze vor dem Textout den Hintergrund auf Transparent:

SetBkMode(Canvas.Handle,Windows.Transparent)

Dann bleibt der Hintergrund unter dem Text erhalten.

s.h.a.r.k 26. Jul 2011 10:53

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
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 26. Jul 2011 11:20

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
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 26. Jul 2011 11:37

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
Liste der Anhänge anzeigen (Anzahl: 1)
Anbei noch eine kleine Demo

s.h.a.r.k 26. Jul 2011 11:48

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
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 26. Jul 2011 12:18

AW: Canvas.TextOut mit Text Shadow-Erweiterung
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:58 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz