Entwickler-Ecke :: Thema anzeigen - Imagelist-Images verlieren beim Umkopieren Transparenz

Logikmensch - Di 11.01.11 19:22
Titel: Imagelist-Images verlieren beim Umkopieren Transparenz

Hallo liebe Forum-Leser!

Ich habe eine Routine geschrieben, die die Größe meiner Icon-Leisten anpasst. Die Icons werden als transparente Bitmaps mit 16x16 Pixeln in ImageListen gespeichert. Meine Routine dient dazu, eine ImageList-Komponente auf eine andere Größe zu skalieren, z.B. 32x32. Dazu kopiere ich die einzelnen Images in eine Bitmap (bmps) und skaliere diese dann in eine Ziel-Bitmap (bmpd) mit der gewünschten Ziel-Größe. Die Ziel-Bitmap wird dann in eine neue ImageListe über AddMasked hinzugefügt, wobei ich auch die Transparenz-Farbe des unteren linken Pixels mit übergebe. Soweit so gut. Funktioniert eigentlich ganz prima. Eigentlich....

Ich habe ein enormes Verständnisproblem der Funktionsweise von TImageList.GetBitmap. Offenbar geht mir beim Einlesen eines Images meiner Imagelist über GetBitmap dessen Transparenz verloren. Das Problem verschwindet, wenn ich vor GetBitmap(i,bmps) die Bitmap bmps über FillRect mit einer wohldefinierten Farbe fülle. Diese Farbe darf in keinem der Icons verwendet werden.
Ich habe im nachfolgenden Beispiel mal die Füllfarbe clYellow verwendet. Das ist aber für Icons ungeeignet, die gelb als Farbe enthalten. clNone und clBackground sind ebenfalls ungeeignet. Ich verstehe einfach nicht, warum GetBitmap nicht überdeckend malt. Warum ich überhaupt die Bitmap vorher mit einer Farbe füllen muss, ist mit schleierhaft...

Meine Frage ist: Wie kann ich mit GetBitmap ein beliebiges transparentes Image aus meiner Imageliste rausholen, ohne diese Bitmap vorher mit einer Farbe füllen zu müssen? Wie kriege ich GetBitmap dazu, dies überdeckend zu malen?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure ScaleImageList(il:TImageList; destwidth,destheight:integer); overload;
var
  newil:TImageList;
  i:integer;
  bmps,bmpd:TBitmap;
begin
  newil:=TImageList.Create(nil);
  try
    bmps:=TBitmap.Create;
    try
      bmps.SetSize(il.Width,il.Height);
      bmpd:=TBitmap.Create;
      try
        bmpd.SetSize(destwidth,destheight);
        newil.Width:=destwidth;
        newil.Height:=destheight;
        for i:=0 to il.Count-1 do begin
          //Übermalen des ganzen Bitmaps bmps mit einer Farbe:
          bmps.Canvas.Brush.Style:=bsSolid;
          bmps.Canvas.Brush.Color:=clYellow;
          bmps.Canvas.FillRect(rect(0,0,il.Width+1,il.Height+1));
          il.GetBitmap(i,bmps); //deckt nicht ab!!
          StretchBlt(bmpd.Canvas.Handle,0,0,destwidth,destheight,bmps.Canvas.Handle,
            0,0,il.Width,il.Height,SRCCOPY);
          newil.AddMasked(bmpd,bmpd.Canvas.Pixels[0,bmpd.height-1]);
        end; {for}
        //Skalierte Icons in die Ausgangsbitmap umkopieren:
        il.Clear;
        il.Width:=destwidth;
        il.Height:=destheight;
        il.AddImages(newil);
      finally
        bmpd.Free;
      end; {try}
    finally
      bmps.Free;
    end; {try}
  finally
    newil.Free;
  end; {try}
end;

Für Tipps, die ich auch gerne sofort ausprobiere, bin ich sehr dankbar!

Moderiert von Martok: Topic aus VCL (Visual Component Library) verschoben am Di 11.01.2011 um 18:48

Logikmensch - Di 11.01.11 21:20

Hi Narses! Vielen Dank für Deinen Tipp. Das hat's gebracht.
Der tolle Nebeneffekt, wenn ich über ein TIcon-Object umkopiere: Ich brauche nicht einmal StretchBlt, weil das Icon offenbar automatisch skaliert wird. Und das Transparenzproblem ist auch gelöst. Ich werde natürlich nochmal kritisch testen, aber es sieht seeeehr gut aus. Vielen lieben Dank! :D

Der Quelltext ist folgendermaßen geändert:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure ScaleImageList(il:TImageList; destwidth,destheight:integer); overload;
var
  newil:TImageList;
  i:integer;
  bmpd:TBitmap;
  icon:TIcon;
begin
  newil:=TImageList.Create(nil);
  try
    try
      bmpd:=TBitmap.Create;
      try
        bmpd.SetSize(destwidth,destheight);
        newil.Width:=destwidth;
        newil.Height:=destheight;
        for i:=0 to il.Count-1 do begin
          icon:=TIcon.Create;
          try
            il.GetIcon(i,icon);
            newil.addicon(icon);
          finally
            icon.Free;
          end;
        end; {for}
        il.Clear;
        il.Width:=destwidth;
        il.Height:=destheight;
        il.AddImages(newil);
      finally
        bmpd.Free;
      end; {try}
    finally
      bmps.Free;
    end; {try}
  finally
    newil.Free;
  end; {try}
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!