Bitmap transparent aus TImageList holen

[peterbelow]

Zitat von amigage:

Hallo,

ich bin am Verzweifeln und habe schon einige Stunden im Netz recherchiert, aber keine wirkliche Lösung gefunden, die mein simples Problem löst.

Ich habe eine TImageList, die mit transparenten Bitmaps gefüllt ist. Nun möchte ich ein TImage mit einem Bitmap aus der Imagelist transparent füllen.

Imagelist-Eigentschaften:
BKColor: clFuchsia;
ColorDepth : cd32Bit;
Masked: true;

Und das TImage ist auf Transparent : true gesetzt.

Nichts passiert, egal welche Eigenschaft ich oben aktiviere, die Grafik wird immer mit dem Hintergrund dargestellt, der als BKColor angegeben ist. Außer bei ClNone, da wird der Hintergrund weiß.

Kann mir vielleicht jemand einen Tipp geben?
Besten Dank.

Du gehst das falsch an. Versuch nicht, die Bitmap aus der Imagelist zu holen, erzeuge eine eigene der richtigen Größe, fülle sie mit dem gewünschten Hintergrund, und verwende dann die Draw-Methode der Imagelist um die gewünschte Bitmap aus der Liste auf den Canvas deiner Bitmap zu zeichnen.

[EWeiss]

Zitat:

Versuch nicht, die Bitmap aus der Imagelist zu holen

Was spricht dagegen wenn man wie du angedeutet hast die Bitmaps in der ImageList aktualisiert zur Laufzeit.
Danach sollten alle transparent sein.

Hatten wir schon..

Delphi-Quellcode:

function ImageListToGPBitmap(SourceImageList: TImageList): TGPBitmap;
var
    bmp: TGPBitmap;
    g: TGPGraphics;
    dc: HDC;
    i: Integer;
    x: Integer;

    procedure GdipCheck(Status: Winapi.GDIPAPI.TStatus);
    begin
        if Status <> Ok then
            raise Exception.CreateFmt('%s', [GetStatus(Status)]);
    end;
begin
    //Note: Code is public domain. No attribution required.
    bmp := TGPBitmap.Create(SourceImageList.Width*SourceImageList.Count, SourceImageList.Height);
    GdipCheck(bmp.GetLastStatus);

    g := TGPGraphics.Create(bmp);
    GdipCheck(g.GetLastStatus);

    g.Clear($00000000);
    GdipCheck(g.GetLastStatus);

    dc := g.GetHDC;

    for i := 0 to dmGlobal.imgImages.Count-1 do
    begin
        x := i * dmGlobal.imgImages.Width;

        ImageList_DrawEx(dmGlobal.imgImages.Handle, i, dc,
                        x, 0, dmGlobal.imgImages.Width, dmGlobal.imgImages.Height,
                        CLR_NONE, CLR_DEFAULT,
                        ILD_TRANSPARENT);
    end;
    g.ReleaseHDC(dc);
    g.Free;

    Result := bmp;
end;

Erst dann sind die Bitmaps in der ImageList wirklich Transparent.
Link zur Diskussion

gruss

[Sherlock]

Und wo soll die Bitmap reingeladen werden? Die Unterstützung für transparente Bitmaps, also solche die einen Alphakanal haben, nicht die Trickserei mit irgendwelchen "transparenten" Farben wie clFuchsia, ist IIRC auch in Rio nicht korrekt/vollständig eingebaut. Dafür aber eine wunderbare Unterstützung von PNGs. Ich befülle meine ImageListe mit PNGs und kann die mit einem Einzeiler in ein TImage füllen, transparent.
notesImg.Bitmap := GlobalDataModule.IconList.Bitmap(TSizeF.Create(cSmallImgSize, cSmallImgSize ), ImgIndex); Sherlock

[EWeiss]

Zitat:

ist IIRC auch in Rio nicht korrekt/vollständig eingebaut.

Traurig genug.

Zitat:

Und wo soll die Bitmap reingeladen werden?

Es wird in der ImageList neu gezeichnet nicht reingeladen. Siehe ImageList_DrawEx
Einmalig beim Start der Anwendung wenn man es denn richtig macht.

gruss

[Sherlock]

Ahja, tut mir Leid, falscher Begriff. Wo soll die Bitmap schlußendlich angezeigt werden? Ein TImage kann auch PNG, und TSpeedButton ebenso. Ich will eigentlich nur sagen: es werden endlich "moderne" Bilddatentypen unterstützt. Warum nicht nutzen?

Sherlock

[EWeiss]

Zitat von Sherlock:

Ahja, tut mir Leid, falscher Begriff. Wo soll die Bitmap schlußendlich angezeigt werden? Ein TImage kann auch PNG, und TSpeedButton ebenso. Ich will eigentlich nur sagen: es werden endlich "moderne" Bilddatentypen unterstützt. Warum nicht nutzen?

Sherlock

Das Image oder Bitmap wird transparent ins ImageList kopiert (gezeichnet) danach kannst du die ImageList weiterhin auf normalem weg benutzen ohne dazwischen irgend etwas konvertieren zu müssen.
Der einzige unterschied ist halt das dann der Bildstrip (Ist ja nur ein einzelnes Bitmap in der ImageList) transparent ist.

btw. Die beste Methode ist natürlich die ImageList direkt mit dem korrekten Format zu befüllen in dem fall wie du schon sagst *.png
Bin mir nur nicht sicher ob das von der IDE (Resourcen Editor) unterstützt wird.

gruss

[Sherlock]

Zitat von EWeiss:

btw. Die beste Methode ist natürlich die ImageList direkt mit dem korrekten Format zu befüllen in dem fall wie du schon sagst *.png
Bin mir nur nicht sicher ob das von der IDE (Resourcen Editor) unterstützt wird.

Der Kollege amigage setzt Rio ein, und das unterstützt PNGs in ImageListen.

Sherlock

[amigage]

Zitat von peterbelow:

Versuch nicht, die Bitmap aus der Imagelist zu holen

Muss ich aber, weil ich die die Grafiken eigentlich in einem Listview verwenden will. Das mit dem Button war erst einmal ein Test, die Grafiken generell transparent zu bekommen.

Mein eigentliches Anliegen ist folgendes:
Der Anwender soll als "Customizing" im Programm seine eigenen Symbole auswählen können, die in einem Listview als grafische Unterstützung einer Ordnerstruktur angezeigt werden sollen. Jedem Eintrag soll eine spezielle Grafik zugewiesen werden können.

Die ausgewählten Grafiken werden in einer Imagelist abgelegt und am Ende in einem Stream als Datei gespeichert, mitsamt anderer Daten, die verwendet werden.

Beim nächsten Start soll dieser Stream wieder geladen werden, und die einzelnen Grafiken in der Imagelist eingefügt werden. Anhand des ImageIndex wird die Grafik im Listview angezeigt.

Das funktioniert soweit auch ganz gut, bis auf die Transparenz! Die geht verloren.

Zum Laden verwende ich TBitmap.CreateFromStream(IconStream); wobei IconStream : TMemoryStream; definiert ist. Und dann übergebe ich die gelesenen Grafiken der Imagelist, wobei TIconData(IconList[i]).Icon die Grafik beinhaltet:

Delphi-Quellcode:

for i := 0 to IconList.Count - 1 do
begin
   ii := ImageListLeft32.AddMasked(TIconData(IconList[i]).Icon, clFuchsia);
   ImageListLeft32.Draw(Canvas, 0, 0, ii);
end;

Vielleicht ist mein Ansatz auch grundlegend falsch und ich müsste es anders angehen.
Für einen Tipp wäre ich dankbar.

[EWeiss]

Zitat:

Für einen Tipp wäre ich dankbar.

Habe dir Tips gegeben wenn diese nicht reichen sorry mehr geht nicht!

Du verstehst einfach nicht das in RIO die Bitmaps nicht transparent abgelegt werden das musst du selbst tun.
Wie das geht habe ich gezeigt.

Verstehe nicht was da so schwer ist das umzusetzen.
Ok bin raus

gruss

[amigage]

Sorry @EWeiss. Deinen Sourcecode habe ich nicht wirklich wahrgenommen.
Den werde ich mir natürlich einmal anschauen, denn genau das möchte ich, dass die Grafiken in der Imagelist zur Laufzeit transparent gesetzt werden.