Firemonkey: Image, per code Bitmaps ins MultiResBitmap und neue Transparenzfarbe

[Uwe Raabe]

Wie ebenfalls in der Hilfe nachzulesen ist, wird die TransparentColor von CreateBitmap ausgewertet.

(Code ungetestet!)

Delphi-Quellcode:

var
  bmp: TBitmap;
  mr: TFixedMultiResBitmap;
begin
  { lade Bitmap aus Datei Hurz.bmp in Items[0] der MultiResBitmap mit Berücksichtigung der TransparentColor }
  bmp := mr[0].CreateBitmap('Hurz.bmp');
  try
    mr[0].Bitmap.Assign(bmp);
  finally
    bmp.Free;
  end;
end;