双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;
type
　TForm1 = class(TForm)
　　Button1: TButton;
　　Button2: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure Button2Click(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}

{PolyBezier 至少需要四个点做参数; 不改变画笔的当前位置}

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var
　pts: array[0..3] of TPoint;
begin
　Canvas.Pen.Width := 2;
　Canvas.Pen.Color := clRed;
　pts[0].X := 10; pts[0].Y := 10;　{起点}
　pts[1].X := 60; pts[1].Y := 10;　{控制点1}
　pts[2].X := 10; pts[2].Y := 100; {控制点2}
　pts[3].X := 60; pts[3].Y := 100; {终点}
　Canvas.PolyBezier(pts);
　Canvas.Pen.Width := 1;
　Canvas.Pen.Color := clWhite;
　Canvas.LineTo(ClientWidth, ClientHeight);
end;

{PolyBezierTo 最少只需要需要三个点, 它把当前位置当作第一点; 会改变画笔的当前位置}

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
var
　pts: array[1..3] of TPoint; {从 1 开始的, 就 3 个元素}
begin
　Canvas.Pen.Width := 2;
　Canvas.Pen.Color := clRed;
　Canvas.MoveTo(10 + 82, 10);　　　　　 {起点}
　//pts[0].X := 10; pts[0].Y := 10;
　pts[1].X := 60 + 82; pts[1].Y := 10;　{控制点1}
　pts[2].X := 10 + 82; pts[2].Y := 100; {控制点2}
　pts[3].X := 60 + 82; pts[3].Y := 100; {终点}
　Canvas.PolyBezierTo(pts);
　Canvas.Pen.Width := 1;
　Canvas.Pen.Color := clBlue;
　Canvas.LineTo(ClientWidth, ClientHeight);
end;
end.

//效果图:

　　//绘制多条贝塞尔线时, 每条线的终点也是下条线的起点.

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, StdCtrls;
type
　TForm1 = class(TForm)
　　Button1: TButton;
　　Button2: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure Button2Click(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}

{PolyBezier 绘制多条线时, 需要 3*x + 1 个点}

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var
　pts: array[0..6] of TPoint;
begin
　Canvas.Pen.Width := 2;
　Canvas.Pen.Color := clRed;
　pts[0].X := 10; pts[0].Y := 10;
　pts[1].X := 60; pts[1].Y := 10;
　pts[2].X := 10; pts[2].Y := 100;
　pts[3].X := 40; pts[3].Y := 100;
　pts[4].X := 100; pts[4].Y := 10;
　pts[5].X := 55; pts[5].Y := 99;
　pts[6].X := 70; pts[6].Y := 10;
　Canvas.PolyBezier(pts);
end;

{PolyBezierTo 绘制多条线时, 需要 3*x 个点}

双击代码全选
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button2Click(Sender: TObject);
var
　pts: array[1..6] of TPoint;
begin
　Canvas.Pen.Width := 2;
　Canvas.Pen.Color := clRed;
　Canvas.MoveTo(10 + 82, 10);
　//pts[0].X := 10; pts[0].Y := 10;
　pts[1].X := 60 + 82; pts[1].Y := 10;
　pts[2].X := 10 + 82; pts[2].Y := 100;
　pts[3].X := 40 + 82; pts[3].Y := 100;
　pts[4].X := 100 + 82; pts[4].Y := 10;
　pts[5].X := 55 + 82; pts[5].Y := 99;
　pts[6].X := 70 + 82; pts[6].Y := 10;
　Canvas.PolyBezierTo(pts);
end;
end.

//效果图:

Delphi 的绘图功能[1] - PolyBezier、PolyBezierTo的更多相关文章

  1. Delphi 的绘图功能[10] - TFONT 类

    Delphi 的绘图功能[10] - TFONT 类 ;DEFAULT_CHARSET     = ;SYMBOL_CHARSET      = ;SHIFTJIS_CHARSET    = ;HAN ...

  2. Delphi 的绘图功能（29篇博客）

    http://www.cnblogs.com/del/category/123038.html

  3. Delphi 的绘图功能[8] - TextOut、TextWidth、TextHeight

    unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, For ...

  4. ABAP绘图功能模块概观（转）

    ABAP Graphics FM OverviewABAP绘图功能模块概观 此处仅将功能模块及范例程序列出(若要列出详细参数篇幅过大) 2 Main Graphics Demo Program: GR ...

  5. Kivy 中文教程 实例入门 简易画板 (Simple Paint App)：2. 实现绘图功能

    1. 理解 kivy 坐标系统 上一节中,咪博士带大家实现了画板程序的基础框架,以及一个基本的自定义窗口部件(widget).在上一节的末尾,咪博士留了一道关于 kivy 坐标系统的思考题给大家.通过 ...

  6. scikit-learn：matplotlib.pyplot经常使用绘图功能总结（1）

    參考:http://matplotlib.org/api/pyplot_api.html 绘图功能总结(2):http://blog.csdn.net/mmc2015/article/details/ ...

  7. OpenCV-Python 绘图功能 | 七

    目标 学习使用OpenCV绘制不同的几何形状 您将学习以下功能:cv.line(),cv.circle(),cv.rectangle(),cv.ellipse(),cv.putText()等. 代码 ...

  8. Python OpenCV的绘图功能简介

    前言 本文的文字及图片来源于网络,仅供学习.交流使用,不具有任何商业用途,版权归原作者所有,如有问题请及时联系我们以作处理. 作者:大Z 在图像中我们经常需要用到将某个局部特征画出来,比如物体检测,物 ...

  9. pandas.DataFarme内置的绘图功能参数说明

    可视化是数据探索性分析及结果表达的一种非常重要的形式,因此打算写一个python绘图系列,本文是第一篇,先说一下pandas.DataFrame.plot()绘图功能. pandas.DataFram ...

随机推荐

  1. TypeC一个微软开发的超简单.NET依赖注入/IoC容器

    控制反转(IoC,Inversion of Control)是由Martin Fowler总结出来的一种设计模式,用来减少代码间的耦合.一般而言,控制反转分为依赖注入(Dependency Injec ...

  2. String 和 document 的相互转换总结

    转自:http://blog.sina.com.cn/s/blog_7f865faf01014qrs.html 一.使用最原始的javax.xml.parsers,标准的jdk api // 字符串转 ...

  3. 关于html5不支持frameset的解决方法

    转自:http://blog.sina.com.cn/s/blog_b2813a790101ejvf.html html5已经不支持frameset了,很郁闷,看了大家的解决方法,无非就是两种1. 使 ...

  4. MyEclipse导入Maven项目

    转自:http://blog.csdn.net/xuelu198708/article/details/8561115 导入分两种方法: 1.使用MyEclipse的普通工程导入,步骤如下: 1> ...

  5. MATLAB学习笔记（四）——文件操作

    首先,声明,如果学过C的话就可以不用看了,因为是一样的,只要注意一些系统变量的名字稍微变动了而已.都是基于ANSI C语言的标准库函数写的. (一)文件的打开与关闭 一.文件的打开 1.语法 fid= ...

  6. php 字符串式非关联数组循环

    $xiangmu='1,2,3'; $xiangmu=explode(',',$jc['xiangmu']); $xm=''; for($i=0;$i<count($f)-1;$i++){ $x ...

  7. Web安全测试之XSS

    Web安全测试之XSS XSS 全称(Cross Site Scripting) 跨站脚本攻击, 是Web程序中最常见的漏洞.指攻击者在网页中嵌入客户端脚本(例如JavaScript), 当用户浏览此 ...

  8. html成绩单表格

    <!DOCTYPE html> <html> <head> <meta name="generator" content="HT ...

  9. 关于 Apple Metal API 的一些想法

    在看完 Metal 的开发文档后,除了官方所宣称的一些优点外(比如说更容易理解和使用的 API,更直接和精细的硬件控制,减少 GPU 使用过程中的 CPU 额外开销等等),从我有限的 GLES 开发经 ...

  10. Quest Central for DataBase 5.0.1，6.1 (软件+注册)

    找寻了多天,终于找到了,记录下,以后重装用.输入所有组件的licenses后,提示要注册,我选择了Canada,Google了一个地方的PostCode和phone number,填写,注册成功! 软 ...