AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Text auf Canvas von transparentem PNG schreiben -Wie?

Text auf Canvas von transparentem PNG schreiben -Wie?

Ein Thema von torud · begonnen am 28. Aug 2013 · letzter Beitrag vom 28. Aug 2013
Antwort Antwort
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Text auf Canvas von transparentem PNG schreiben -Wie?

  Alt 28. Aug 2013, 11:51
Hallo Wissende,

mit folgendem Code erstelle ich eine transparente png-Datei.

Leider kann ich den Text nicht in der Ausgabe sehen. Was mache ich falsch?

Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  pngText : TPNGObject;
begin
  pngText := TPNGObject.CreateBlank(COLOR_RGBALPHA, 16, 1920, 1080);

  pngText.Canvas.Font.Size := 55;
  pngText.Canvas.Brush.Style:=bsClear;
  pngText.Canvas.Font.Color := clRed;
  pngText.Canvas.Font.Name := 'Arial';
  pngText.Canvas.Font.Style:=[fsBold];
  pngText.Canvas.TextOut(0, 0, 'Hello World');

  pngText.SaveToFile('c:\temp\text_test.png');

end;
Ich nutze das PngImage in version 1.564
Danke
Tom
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.382 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Text auf Canvas von transparentem PNG schreiben -Wie?

  Alt 28. Aug 2013, 12:25
COLOR_RGBALPHA, 16,

Eventuell funktioniert diese Kombination nicht (16Bit für jeden einzelnen Farb- und den Alphakanal?).
Versuch mal so:

COLOR_RGBALPHA, 8,
  Mit Zitat antworten Zitat
torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#3

AW: Text auf Canvas von transparentem PNG schreiben -Wie?

  Alt 28. Aug 2013, 12:43
Vielen Dank für Deine Antwort,

leider brachte dieser Versuch nicht den gewünschten Effekt.

Der Text ist nicht zu sehen in der png-Datei.

Gibts sonst noch Möglichkeiten?
Danke
Tom
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Text auf Canvas von transparentem PNG schreiben -Wie?

  Alt 28. Aug 2013, 13:14
Die ganzen TCanvas-Methoden bauen auf der GDI auf, und diese unterstützt keinen Alphakanal. Deshalb funktioniert das so nicht.

Du könntest stattdessen Graphics32 benutzen, um das Bild zu erstellen, und dann anschließend das Ergebnis in ein TPNGObject kopieren und abspeichern.
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.645 Beiträge
 
Delphi 2007 Enterprise
 
#5

AW: Text auf Canvas von transparentem PNG schreiben -Wie?

  Alt 28. Aug 2013, 13:19
Etwas genauer: Canvas.TextOut() schreibt bei 32-Bit Zielen die höchstwertigen 2 Bytes mit 0, da sie nicht verwendet werden. Bei einem 32-Bit PNG sind diese Bytes aber genau der Alphakanal, der bei 0 als voll durchsichtig gilt. Der Text dürfte also tatsächlich in dem Bild sein, nur halt voll transparent. Du könntest entweder in einem zweiten Durchlauf den Alphakanal manuell anpassen, oder besser wie vorgeschlagen eine Lib einsetzen, die "Alpha-Aware" ist. Letzteres erspart einem auch gerade bei Text einen Haufen Geraffel mit ClearType u.ä.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Text auf Canvas von transparentem PNG schreiben -Wie?

  Alt 28. Aug 2013, 13:28
Etwas genauer: Canvas.TextOut() schreibt bei 32-Bit Zielen die höchstwertigen 2 Bytes mit 0, da sie nicht verwendet werden.
Noch genauer : Das höchstwertige eine Byte. In hexadezimaler Darstellung sind das dann zwei Zeichen (auch bekannt als Nibble).
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.645 Beiträge
 
Delphi 2007 Enterprise
 
#7

AW: Text auf Canvas von transparentem PNG schreiben -Wie?

  Alt 28. Aug 2013, 13:32
Mist. Ich war gedanklich zwischen Bit- und Byteangaben hin und her gerissen, und hab's dann auch noch gemischt. Ich muss mal was essen
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf