image - FireMonkey に画像を保存するには?

Question

VCL ではImageList、画像を保存する必要がありました。FireMonkey にはImageListコントロールがありません。後で使用するために画像を FireMonkey に保存するにはどうすればよいですか?

Answer 1

Delphi Android には ImageList がないため、次のことを行う必要があります。

1. プロジェクトに画像を追加する

   プロジェクト -> リソースと画像

2. 'Resources and Images' のイメージを ResourceType RCDATAとして Delcare します。

3. 次の手順を追加します。

->

procedure TForm1.load_image_from_resource(var Im1: Timage; res_name: String);
var InStream: TResourceStream;
begin
  InStream := TResourceStream.Create(HInstance, res_name, RT_RCDATA);
  try
    Im1.Bitmap.LoadFromStream(InStream);
  finally
    InStream.Free;
  end;
end

次に、次のように画像をロードします。

var i : nativeint;
begin
  i := 1;      
  load_image_from_resource(Image1, 'Bitmap_' + inttostr(i));
end;

どこからでも。

Answer 2

Delphi XE8 FireMonkeyにはTImageListコンポーネントがあるため、現在この質問を見ている人のために