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

[Harry Stahl]

Standardmäßig hat das Multiresbitmap bereits ein Bitmap drin. Man kann dann prüfen ob es einen Inhalt hat und wenn ja, nur dann eine Bitmap hinzufügen.

Hier ist der Code, wie man z.B. über einen Opendialog eine Bitmap hinzufügt.

Delphi-Quellcode:

procedure TForm62.Button1Click(Sender: TObject);
begin
   if od1.Execute then begin
     if Image1.MultiResBitmap.Items[Image1.MultiResBitmap.Count-1].Bitmap.isempty = false then
        Image1.MultiResBitmap.Add;

     Image1.MultiResBitmap.Items[Image1.MultiResBitmap.Count-1].Bitmap.loadfromfile (od1.FileName);
  end;
end;

Ich habe mal eine Demo angehängt, womit man mehrere Grafikdateien nacheinander in eine Multiresbitmap laden kann. Die Transparenz bleibt erhalten. Wenn man auf die Listbox links unten auf einen Eintrag klickt, wird in Image2 das jeweilige Bitmap aus Image1 angezeigt.