Transparenz ist nicht gut genug

[torud]

Hallo Wissende!

Ich habe ein Bild auf meinem Formular platziert und lege nun ein TImage darüber. In diesem TImage lade ich ein Bitmap, welches ich in 24 Bit-Qualität abgespeichert habe, weil ich es mit transparenz benötige. Es ist bei 100% geradeso akzeptabel, aber sobal ich die Grösse minimiere wird es grottenschlecht.

Was kann ich tun. Ich habe mir die Grafix32 gezogen und installiert, aber dort scheinen nur Bitmaps zu gehen und man muss noch einen Extra-Aplha-Channel angeben. Warum loben das alle über den Klee, wenn da nicht mal png zu laden geht?

Wie kann ich das mit den Transparenzen lösen???
Oder kann ich etwas anderes mit Bitmap32 probieren?
Gibt es etwas ähnliches wie TImage, wo ich Bilder hineinladen kann, die dann aber eine Transparenz haben?

[Khabarakh]

Zitat:

Zitat von torud

In diesem TImage lade ich ein Bitmap, welches ich in 24 Bit-Qualität abgespeichert habe, weil ich es mit transparenz benötige.

24-Bit hat keinen Alpha-Kanal, du meinst wohl 32-Bit.

Zitat:

Was kann ich tun. Ich habe mir die Grafix32 gezogen und installiert, aber dort scheinen nur Bitmaps zu gehen und man muss noch einen Extra-Aplha-Channel angeben. Warum loben das alle über den Klee, [...]

Weil sie in die offizielle FAQ geschaut haben.

[torud]

Nein eigentlich bin ich mir sicher, dass Photoshop mich danach fragt, ob ich das BMP als 24-Bit-Datei abspeichern will und dass mir selbst IrfanView diese Datei als 24-Bit-Datei ausgibt. Mir bekannt ist, dass TGA-Dateien einen Alpha besitzen, wenn man sie als 32-Bit-Dateien abspeichert.

Ich habe mal die neuere Version gezogen, da ich noch die 1.5.1 hatte und mir die FAQ angesehen. Meine Frage ist nun.

In welches Control laden die in dem Beispiel die PnG-Datei? In ein TImage oder in ein TImage32?

Ich habe nämlich gestern abend hier im Forum gelesen, dass TImage32 gar nicht dafür gemacht sein soll mit transparenz durchsichtig über anderen Control liegen zu können. Hat sich das geändert oder habe ich es mal wieder falsch verstanden?

[MaBuSE]

Zitat:

Zitat von torud

Ich habe mal die neuere Version gezogen, da ich noch die 1.5.1 hatte und mir die FAQ angesehen. Meine Frage ist nun.
In welches Control laden die in dem Beispiel die PnG-Datei? In ein TImage oder in ein TImage32?

:gruebel: Hast Du den Beitrag oben gelesen?

Zitat:

Zitat von Khabarakh

Weil sie in die offizielle FAQ geschaut haben.

Ich weiß nicht wie gut Du Dich mit dem Internet auskennst, aber wenn so ein Wort unterstrichen ist, ist das ein Link. Wenn man auf einen Link klickt gelangt man zur gewünschten Information. (Sogar mit Quelltext Beispiel)

Hinter dem Link verbirgt sich folgender Text:

Is there a PNG library for GR32 which supports loading the image and its alpha channel at the same time?
...

[torud]

Ja natürlich weiss ich, dass das ein Link war. Ich bin im gefolgtm und habe mir das dort durchgelesen. Du fragst dies sicher, wegen meiner Frage mit TImage und TImage32!? Dies bezieht sich im Primzip darauf, was ich schrieb in Bezug auf die Transparenzfähigkeit der TImage32.

Ich habe selbst den Code probiert, aber der Compiler meckert, weil er natürlich das

Delphi-Quellcode:

uses PNGImage;

nicht hat oder kennt.

[MaBuSE]

Zitat:

Zitat von torud

Ja natürlich weiss ich, dass das ein Link war. Ich bin im gefolgtm und habe mir das dort durchgelesen. Du fragst dies sicher, wegen meiner Frage mit TImage und TImage32!? Dies bezieht sich im Primzip darauf, was ich schrieb in Bezug auf die Transparenzfähigkeit der TImage32.

Ich habe selbst den Code probiert, aber der Compiler meckert, weil er natürlich das

Delphi-Quellcode:

uses PNGImage;

nicht hat oder kennt.

Ich persönlich verwende auch: http://pngdelphi.sourceforge.net/

Das ist ein Filter, der auch das normale TImage von Delphi dazu bringt PNG anzuzeigen.
Da das auch in der FAQ erwähnt ist, gehe ich davon aus, das der Quellcode (Beispiel) pngdelphi verwendet.

Hier kannst Du auch nochmal nach PNG alternativen schauen: http://delphi.pjh2.de/articles/graphic/png.php

[torud]

Also das hier wollte ich unbedingt lesen:

Zitat:

Das ist ein Filter, der auch das normale TImage von Delphi dazu bringt PNG anzuzeigen.
Da das auch in der FAQ erwähnt ist, gehe ich davon aus, das der Quellcode (Beispiel) pngdelphi verwendet.

Ich habe mir nun die PNG-Komponente gezogen, aber noch nicht die Möglichkeit gefunden, wie man nun mit der TImage, ein Png samt Alpha laden und anzeigen kann. Ich wühle mal noch etwas in der Hilfe zur Komponente, würde mich aber auch noch über einen kurzen Wink freuen.

[MaBuSE]

Zitat:

Zitat von torud

Also das hier wollte ich unbedingt lesen:

Zitat:

Das ist ein Filter, der auch das normale TImage von Delphi dazu bringt PNG anzuzeigen.
Da das auch in der FAQ erwähnt ist, gehe ich davon aus, das der Quellcode (Beispiel) pngdelphi verwendet.

Ich habe mir nun die PNG-Komponente gezogen, aber noch nicht die Möglichkeit gefunden, wie man nun mit der TImage, ein Png samt Alpha laden und anzeigen kann. Ich wühle mal noch etwas in der Hilfe zur Komponente, würde mich aber auch noch über einen kurzen Wink freuen.

:-)
TPNGImage ist keine Komponente, sondern "nur" ein Filter.
Wenn Du das Package installiert, wird in initialization folgendes ausgeführt:

Delphi-Quellcode:

...
    TPicture.RegisterFileFormat('PNG', 'Portable Network Graphics', TPNGObject);
...

Lege einfach ein TImage auf ein leeres Form und klicke mal im Objektinspektor auf die Eigenschaft Picture. Im Dialog kannst du nun auch *.png Dateien auswählen und öffnen.
:D so einfach ist das.

Alle Komponenten, die TPicture verwenden sind nun PNG fähig.

In Deiner Unit wird in der uses dan automatisch pngimage hinzugefügt.

Schau Dir auch die Beispiel Programme auf der Homepage am.

[edit]nun sollte auch das Beispiel in der FAQ von der anderen Image Komponente funktionieren[/edit]

[torud]

Also ich weiss nun nicht, ob das der richtige Weg ist, aber ich habe es testhalber mal so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  PNG: TPNGObject;
begin
  PNG := TPNGObject.Create;
  Bitmap := TBitmap.Create;
  {In case something goes wrong, free booth PNG and Bitmap}
  try
    PNG.LoadFromFile('c:\test.png');
    Bitmap.Assign(PNG);    //Convert data into bitmap
    Image1.Picture.Bitmap:=Bitmap;
    //Bitmap.SaveToFile(Dest);
  finally
    PNG.Free;
    Bitmap.Free;
  end
end;

Bitt um Protest, wenn das was schwerwiegendes Falsch ist. Die TImage habe ich auf transparent gestellt und hoffe nun, dass es in den folgenden Test zu besserer Qualität kommt.

[torud]

Du warst schneller. Ich kann mir also den Umweg über das Assign sparen. Vielen Dank für Deine Infos und Deine Geduld!