Delphi绘图功能[1] —— 入门(绘制直线和矩形)-阿里云开发者社区

Delphi绘图功能[1] —— 入门(绘制直线和矩形)

2023-01-19 349

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： Delphi绘图功能[1] —— 入门(绘制直线和矩形)

一、绘图知识

绘图需要有纸、画笔、画刷; Delphi 有 Canvas、Pen、Brush.

Canvas 就是画布, 譬如窗体的 Canvas 属性, 就是窗体的画布;

Pen 是画笔, 可以设置笔色、笔宽等等;

Brush 是画刷, 可以设置颜色等等。

我们所有绘图操作都是在Canvas上进行的。

二、画直线

画直线示例：

procedure TForm1.Button1Click(Sender: TObject);
begin
    Canvas.Pen.Color := clRed;      {设置画笔颜色}
    Canvas.Pen.Width := 2;          {设置画笔宽度}
    Canvas.MoveTo(100,100);           {直线起点}
    Canvas.LineTo(500,500);         {直线起点}
    {实际上这里的Canvas是简写，也可以写做； Self.Canvas 或 Form1.Canvas}
end;

三、画刷填充全框

全区域填充颜色示例：

procedure TForm1.Button2Click(Sender: TObject);
begin
  Canvas.Brush.Color := clPurple;           {设置画刷颜色，也就是填充色}
  Canvas.FillRect(ClientRect);              {填充窗体客户区}
end;

结果展示：

四、矩形

圆角矩形：

使用圆角矩形绘制一个圆角矩形使用钢笔和填充它与画笔。矩形的边缘由点(X1，Y1) ，(X2，Y1) ，(X2，Y2) ，(X1，Y2)定义，但是角落将被修剪以创建一个圆形的外观。圆角的曲线与宽 X3和高 Y3的椭圆的曲率相匹配。

焦点矩形:

当控件获得或失去输入焦点时，调用 DrawFocusRect 以获得控件图像的周长。因为 DrawFocusRect 使用了一个 XOR 函数，所以在指定相同的矩形时第二次调用它会从屏幕中移除该矩形。

此函数绘制的矩形无法滚动。要滚动包含 DrawFocusRect 绘制的矩形的区域，请调用 DrawFocusRect 从屏幕上移除该矩形，滚动该区域，然后调用 DrawFocusRect 在新位置绘制该矩形。

矩形描边：

使用画布的 Brush 绘制矩形以绘制边框。

使用 FrameRect 在矩形区域周围绘制1像素宽的边框。FrameRect 不使用 Brush 模式填充矩形的内部。

若要使用 Pen 代替绘制边界，请使用 Polygon 方法。

代码示例：

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
type
  TForm1 = class(TForm)
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
var
  btn : TButton;
//如果参数在函数中不可能修改, 一定要使用 const
const            //这里设置了不可修改的两个值
  y1 = 100;
  y2 = 500;
{在form打开时就自动创建画笔画刷}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Width := 4;
  Canvas.Pen.Color := clRed;
  Canvas.Brush.Color := clWhite;   //设置画刷颜色
end;
{1、给出左上角和右下角的坐标就可以绘制矩形}
procedure TForm1.Button1Click(Sender: TObject);
begin
   btn := TButton(Sender);
   Canvas.Rectangle(btn.Left, y1, btn.Left+btn.Width, y2);
                   { 左      上边界     右      下边界}
end;
{2、给出一个矩形结构做参数也可以绘制矩形}
procedure TForm1.Button2Click(Sender: TObject);
var
  R: TRect; {定义一个矩形结构}
begin
  btn := TButton(Sender);
  R := Rect(btn.Left, y1, btn.Left+btn.Width, y2);
  Canvas.Rectangle(R);
end;
{3、绘制圆角矩形; 前四个参数是矩形左上，右下两个点的坐标，最后两个参数是设置圆角的}
procedure TForm1.Button3Click(Sender: TObject);
begin
  btn := TButton(Sender);
  Canvas.RoundRect(btn.Left, y1, btn.Left+btn.Width, y2, 200,200);
  {最后两个参数越大，圆角弧度越大，}
end;
{4、绘制焦点矩形; 它不受画笔的影响; 它的颜色是和画刷的颜色进行某种运算得来的（与自己定义的无关）}
procedure TForm1.Button4Click(Sender: TObject);
var
  R: TRect;
begin
  btn := TButton(Sender);
  R := Rect(btn.Left, y1, btn.Left+btn.Width, y2);
  Canvas.DrawFocusRect(R);         //获得焦点显示/隐藏
end;
{5、矩形描边, 用的不是画笔是画刷}
procedure TForm1.Button5Click(Sender: TObject);
var
  R: TRect;
begin
  btn := TButton(Sender);
  R := Rect(btn.Left, y1, btn.Left+btn.Width, y2);
  Canvas.FrameRect(R);
end;
end.

效果图：

笔者也是Delphi小白，解释如有问题，请大神们帮忙指出修改🙈