Search code examples
imagedelphifiremonkey

How to store images in FireMonkey?


In VCL I had ImageList to store images. In FireMonkey there is no ImageList control. How do I store images in FireMonkey for later use?


Solution

  • To add images in FireMonkey (XE4)

    Project -> Resources and Images
    

    Then to access it:

    procedure TForm1.Button1Click(Sender: TObject);
    var
      InStream: TResourceStream;
    begin
      InStream := TResourceStream.Create(HInstance, 'MyPng', RT_RCDATA);
      try
        Image1.Bitmap.LoadFromStream(InStream);
      finally
        InStream.Free;
      end;
    end;
    

    Thanks to Peter Vonča