本文整理自网络,侵删。
unit RoundImageForm;
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 TForm11 = class(TForm) Image1: TImage; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form11: TForm11;
implementation
{$R *.fmx}
procedure TForm11.Button1Click(Sender: TObject);var B1, B2: TBitmap;begin B1 := TBitmap.Create; B1.LoadFromFile('..\..\123.jpg'); B2 := TBitmap.Create(B1.Width, B1.Height); try B2.Clear(0); B2.Canvas.BeginScene; B2.Canvas.Fill.Bitmap.Bitmap := B1; B2.Canvas.Fill.Bitmap.WrapMode := TWrapMode.TileStretch; B2.Canvas.Fill.Kind := TBrushKind.Bitmap; B2.Canvas.FillRect(RectF(0, 0, B2.Width, B2.Height), 30, 30, AllCorners, 1); B2.Canvas.EndScene; Image1.Bitmap.Assign(B2); finally B1.Free; B2.Free; end;end;
e
相关阅读 >>
Delphi 10.3.x与android 10兼容性的问题
Delphi tnethttpclient https忽略证书验证
Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号?
Delphi中操作olevariant、variant和stream
更多相关阅读请进入《Delphi》频道 >>