AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi CopyRect/BitBlt auf TPNGImage zerstört farben

CopyRect/BitBlt auf TPNGImage zerstört farben

Ein Thema von Memnarch · begonnen am 20. Apr 2011 · letzter Beitrag vom 9. Mär 2012
Antwort Antwort
Benutzerbild von Memnarch
Memnarch

Registriert seit: 24. Sep 2010
737 Beiträge
 
#1

CopyRect/BitBlt auf TPNGImage zerstört farben

  Alt 20. Apr 2011, 15:52
NAbend,
Mal wieder ein problem, dass keines sein dürfte.

Ich habe nen TPNGImage(von der platte geladen).

Jetzt habe ich einen Canvas und möchte gerne:

Canvas.CopyRect darauf ausführen. Das entresultat ist, dass das rauskopierte rechteck unglaublich farbverfälscht ist. so 16 farben würde ich schätzen. TPNGImage war 32bit mit alpha transparenz. Zielcanvas hab ich schon ausprobiert mit TBItmap, TPNGImage etc. Jeweils 32bit.

Resulttat ist immer kaputt.

Dagegen funktioniert Canvas.Draw ohne probleme.

EDIT: wer häts gedacht. DAs problem lag an der PNG. In GIMP stand der Farbmodus auf indiziert, das klappte nicht mit allen funktionen^^". Mit AlphaBlend bekomm ichs nun als Bitmap sauber auf den bildschirm. Irgendne methode wie copyrect/alphablend für TPNGImage?

MFG
Memnarch

Geändert von Memnarch (20. Apr 2011 um 16:26 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von pustekuchen
pustekuchen

Registriert seit: 27. Aug 2010
265 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: CopyRect/BitBlt auf TPNGImage zerstört farben

  Alt 9. Mär 2012, 07:25
Hallo,

ich habe z.Z. das gleiche Problem. Habe hier 8Bit Bilder die beim Kopieren mit BitBlt farblich zerstört werden.

Habe leider nicht wirklich Einfluss auf die erstellten PNG-Bilder.

Wie genau hast du das mit AlphaBlend gemacht?

Ich habe es wie folgt versucht:
Delphi-Quellcode:
var
  bf : BLENDFUNCTION;
begin
  bf.BlendOp := AC_SRC_OVER;
  bf.BlendFlags := 0;
  bf.AlphaFormat := 0; // use source alpha
  bf.SourceConstantAlpha := 0;
...

AlphaBlend(Map.Canvas.Handle, xCount,YCount,SIZE_TILE,SIZE_TILE,
          PngImage.Canvas.Handle, 0, 0,SIZE_TILE,SIZE_TILE,bf);
...
Jedoch sind die Farben dann ebenfalls zerstört und das ganze ist nun ein wenig Transparent :>
Delphi programming is awesome.
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: CopyRect/BitBlt auf TPNGImage zerstört farben

  Alt 9. Mär 2012, 08:37
Schau Dir mal GDI+ an ...
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  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 12:34 Uhr.
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