Delphi 10.3.3 演示FMX TBitmap.Canvas绘图属性和方法

这个例子展示了如何使用TBitmap.Canvas属性。这个示例在图像上绘制了一个矩形。

要构建和测试这个例子,请创建一个多设备应用程序--Delphi,然后将下一个对象添加到表单中。

一个TImage来显示初始TBitmap. 
一个TImage用于显示结果。
两个TLabel,每个TImage一个。
一个TButton,用于在初始图像上绘制。
一个TOpenDialog和一个TButton用于加载要定制的图像。
在加载按钮的OnClick事件处理程序中添加以下代码。

泰山老父完整Delphi 10.3.3 代码如下所示:

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.StdCtrls,
  FMX.Controls.Presentation, FMX.Objects,FMX.DialogService;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值