AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Transparentes Paletten-PNG strecken
Thema durchsuchen
Ansicht
Themen-Optionen

Transparentes Paletten-PNG strecken

Ein Thema von Redeemer · begonnen am 29. Dez 2024 · letzter Beitrag vom 31. Dez 2024
Antwort Antwort
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.085 Beiträge
 
Delphi 2009 Professional
 
#1

Transparentes Paletten-PNG strecken

  Alt 29. Dez 2024, 20:14
Ich möchte mit der aktuellen CE ein transparentes Paletten-PNG gestreckt anzeigen. Das klappt nicht.

Vorgehensweise:
1. TImage platzieren
2. Paletten-PNG mit Transparenz laden, das nicht die Größe von TImage hat. Dieses muss mindestens ein nicht-schwarzes Pixel enthalten, von dem aus sich links, oben oder oben-links mindestens 1 transparentes Pixel befindet.
3. Stretch anmachen

Erwartetes Ergebnis:
Die PNG wird dargestellt.

Tatsächliches Ergebnis:
Alle deckenden Pixel, von denen aus sich direkt links, oben oder oben-links mindestens 1 transparentes Pixel befindet, sind stattdessen schwarz. (Bevor jemand fragt, ob Pixel, die es gar nicht gibt, transparent sind: nein. Der Fehler kann also in (0,0) nicht auftreten.) Bei sehr kleinen Vergrößerungsfaktoren (unter ca. 2) kann es sein, dass der Fehler nicht bei jedem Pixel auftritt.

Suche nach der Lösung:
Die fehlerhafte Methode fällt einem sofort auf: DrawTransparentBitmap() . Die wird auch nur bei Palettenbildern aufgerufen. Dort wird diverse Male BitBlt und StretchBlt aufgerufen. StretchBlt und zu dunkle Pixel, kann nun wirklich jeder Windows-User ein Lied von singen und nicht nur Programmierer. Die Standardeinstellung für die Methode heißt nämlich BLACKONWHITE , macht aber tatsächlich ein sinnloses AND zwischen Pixeln und ist somit absoluter Schwachsinn.

Lösung:
SetStretchBltMode(hdcTemp, COLORONCOLOR); einfügen nach SetBkColor(hdcTemp, cColor); . Die neue Zeile ist bei mir 902.
Das Argument HALFTONE geht auch, aber COLORONCOLOR scheint logisch die richtigere Variante zu sein und ist angeblich performanter.

Frage:
Ist das in der aktuellen kommerziellen Delphi-Version immer noch kaputt oder muss ich einen QP-Report abschicken?
Beispiel ist angehängt. Alle deckenden Pixel sind weiß. Einfach in ein TImage laden und Stretch anmachen, dann sollten die meisten Pixel schwarz sein.
Angehängte Grafiken
 
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.659 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Transparentes Paletten-PNG strecken

  Alt 30. Dez 2024, 07:33
Ja, das ist auch in Delphi 12 mit Update 2 noch so. Es kommt ein Muster mit schwarzen, grauen und weißen Pixeln heraus.

Für den Eintrag brauchst du die Buildnummer: 29.0.51961.7529
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.085 Beiträge
 
Delphi 2009 Professional
 
#3

AW: Transparentes Paletten-PNG strecken

  Alt 31. Dez 2024, 09:59
Danke, habe ich angelegt.
Gibt es eine Möglichkeit, Requests nach dem Abschicken zu bearbeiten?

Immerhin kann ich jetzt eine Request-Liste sehen.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.659 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Transparentes Paletten-PNG strecken

  Alt 31. Dez 2024, 13:21
Nein, man kann nur Kommentare hinzufügen.
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat
Antwort Antwort


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 07:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz