開発環境はDelphi XE7 Update1、プラットフォームはAndroidで発生する問題です。
メインスレッド以外でTBitmapを作成すると例外が発生します。
procedure TForm1.Button1Click(Sender: TObject);
begin
TThread.CreateAnonymousThread(
procedure
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create(100, 100);
end).Start;
end;
$A2355201 で初回の例外が発生しました。例外クラスは EBitmapSizeTooBig メッセージは ‘ビットマップ サイズが大きすぎます。’。 プロセス Project1.apk (22537)
この問題はRAD Studio Quality Portalにも登録されています。
例外が発生する箇所はTBitmap.SetSizeメソッドの中なので、SetSizeメソッドを実行しても同じように例外が発生します。
procedure TForm1.Button1Click(Sender: TObject);
begin
TThread.CreateAnonymousThread(
procedure
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
Bmp.SetSize(100, 100); //ここで例外発生
end).Start;
end;