双击代码全选
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. H264码流打包分析

    转自:http://www.360doc.com/content/13/0124/08/9008018_262076786.shtml   SODB 数据比特串-->最原始的编码数据 RBSP ...

  2. 电赛菜鸟营培训（一）——STM32F103CB之LED控制

    一.STM32F103C8 引脚分布 二.LED的共阴.共阳接法 这里应该是七段数码管的接法. 限流电阻选择为470,在Multism中仿真,也需要接入,否则会出现闪烁情况.或者直接更改属性. 三.消 ...

  3. AngularJS 'Controller As'用法

    AngularJS 1.2版本中提供了Controller As语法,简单说就是可以在Controller中使用this来替代$scope,使得Controller更像一个传统的JS类,相对于$sco ...

  4. 【HTML5】Canvas画布

    什么是 Canvas? HTML5 的 canvas 元素使用 JavaScript 在网页上绘制图像. 画布是一个矩形区域,您可以控制其每一像素. canvas 拥有多种绘制路径.矩形.圆形.字符以 ...

  5. 2016.7.9 计算机网络复习要点第四章之网际控制报文协议ICMP

    1.ICMP允许主机或路由器报告差错情况和提交有关异常情况的报告:为了更有效地转发IP数据报和提高交付成功的机会: 2.ICMP不是高层协议,因为ICMP报文是装在IP数据报中的,作为其中数据部分,所 ...

  6. SCU3033 Destroying a Painting（最小费用最大流）

    题目大概说有一个有n*m个格子的画板,画板上每个格子都有颜色,现在要把所有格子的颜色改成红.绿或者蓝,改变的代价是二者RGB值的曼哈顿距离,还要求红绿蓝格子个数的最大值和最小值要尽可能接近,问最少的代 ...

  7. Matrix Chain Multiplication[HDU1082]

    Matrix Chain Multiplication Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 65536/32768 K (J ...

  8. BZOJ1175 : [Balkan2007]The stairways of Saharna

    杨氏图表,维护若干个单调不下降队列. 每次新加入一个数时,先考虑第一个队列: 如果可以放在最后,则放在最后. 否则找到最小的可以替换的替换掉,再将替换的数放入第二个队列,以此类推. 最后$ans_i= ...

  9. #region 自适应屏幕分辨率

            #region 自适应屏幕分辨率 [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto)]        public ...

  10. Sublime Text 2配置

    gedit用了很久,终于换编辑器了T_T Sublime Text 自行百度谷歌. 一开始我在官网下载的压缩包,然后自己配置.搞了半天后果断删掉...还是用源的自动安装吧.T_T 恩.下面的命令 su ...