Delphi xe7 Android中图像的存储和采集

我已经在我的程序中提出了一个解决方案，但现在我对此有一些怀疑，但按顺序。我希望在我的应用程序中有带有图片的按钮，为此：

1） 我在参考资料和图像中添加了256x256*.png图像，使用了RCDATA类型（在视频示例中看到）

2） 在form.create上，我在加载资源之前使用下一个函数：

function Getscreenscale : Single;
var
   ScreenService: IFMXScreenService;
begin
   Result := 1;
   if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
   begin
      Result := ScreenService.GetScreenScale;
   end;
end;

Function GetscreenWidth : Single;
var
   ScreenService: IFMXScreenService;
begin
   Result := 1;
   if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
   begin
      Result := ScreenService.GetScreenSize.X;
   end;
end;

Function GetscreenHeight : Single;
var
   ScreenService: IFMXScreenService;
begin
   Result := 1;
   if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
   begin
      Result := ScreenService.GetScreenSize.Y;
   end;
end; 

3） 之后，我设置了buttonsize（带有图像）。使用最小值独立于屏幕方向

  minimvalue := Min(height,width);
  buttonsizex:= trunc(minimvalue / 10);

4） 然后我加载图片，这些图片具有自动大小

Stream := TResourceStream.Create(HInstance, 'Picname', RT_RCDATA);
  Form1.frame81.image1.Bitmap.LoadFromStream(stream);
Stream.Free;

---

我是一个“新手”，不明白这是好的还是我犯了大错误？

你有试过运行这个吗？如果是，结果如何？您使用的是哪个版本的Delphi？

Image1

是否属于

TImage

类型？为什么要将buton大小设置为图像大小的十倍（顺便说一句，最好使用

ButtonSizeX:=MinImValue div 10；

）？div 10在Delphi xe 7中不起作用。今天google play注意到我的应用程序不适合10'焊盘，我的缩放错误：（，都在我的2个10'设备上工作你什么意思

div 10

不工作？