delphi Android实例-TRectangle加载图片(XE8+小米2)


本文整理自网络,侵删。

 
结果:

1.加载图片很流畅,可以做背景用。

2.现在是加载了正形与圆形,其他形状能不能加载呢?自己测试哦,要多动手才行。

3.需要把图片打到包里哦(路径为“assets\internal\”)。

 

实例代码:

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Rectangle1: TRectangle;
    Label1: TLabel;
    Ellipse1: TEllipse;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
  system.IOUtils;//需要引入
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rectangle1.Width := 144;
  Rectangle1.Height := 144;
  Rectangle1.Stroke.Kind := TBrushKind.bkNone; //边框类型,无
  Rectangle1.Fill.Kind := TBrushKind.bkBitmap; //填充类型,图片
  Rectangle1.Fill.Bitmap.WrapMode := TWrapMode.wmTileStretch; //拉伸
  Rectangle1.Fill.Bitmap.Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, '144.jpg'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Ellipse1.Width := 144;
  Ellipse1.Height := 144;
  Ellipse1.Stroke.Kind := TBrushKind.bkNone; //边框类型,无
  Ellipse1.Fill.Kind := TBrushKind.bkBitmap; //填充类型,图片
  Ellipse1.Fill.Bitmap.WrapMode := TWrapMode.wmTileStretch; //拉伸
  Ellipse1.Fill.Bitmap.Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, '144.jpg'));
end;

end.

相关阅读 >>

Delphi android gps服务

Delphi 万能模糊查询

Delphi 让程序支持外来文件拖放的单元文件

Delphi 2009 之 tcategorypanelgroup[1]: chevronalignment 等

Delphi应用程序 paramstr()带有参数

Delphi递归删除列表文件以外的所有文件

Delphi中initialization和finalization

Delphi下载指定网址(url)的文件,带进度条显示

设定Delphi环境选项

Delphi 使用edge browser浏览器组件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...