文档章节

再学 GDI+[11]: DrawCurve - 绘制曲线

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 524
阅读 15
收藏 0
点赞 0
评论 0
本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    TrackBar1: TTrackBar;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

var
  PtArr: array of TGPPoint;
  i: Integer = 0;
  tension: Single;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := '擦除';
  LabeledEdit1.EditLabel.Caption := '起始点';
  LabeledEdit2.EditLabel.Caption := '有效点数';
  LabeledEdit1.Text := '0';
  LabeledEdit2.Text := '0';
  TrackBar1.ShowSelRange := False;
  TrackBar1.Min := -25;
  TrackBar1.Max := 35;
  TrackBar1.Position := 5;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Inc(i);
  SetLength(PtArr, i);
  PtArr[i-1].X := X;
  PtArr[i-1].Y := Y;
  LabeledEdit2.Text := IntToStr(i-1);
  Text := IntToStr(i);
  Repaint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  g: TGPGraphics;
  p: TGPPen;
  i,n1,n2: Integer;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclRed, 2);
  g.Clear(aclWhite);

  n1 := StrToIntDef(LabeledEdit1.Text, 0);
  n2 := StrToIntDef(LabeledEdit2.Text, Length(PtArr)-1);

  {后面三个参数是可选的, 最后参数的默认值是 0.5, 为 0 时曲线会转为直线段}
  g.DrawCurve(p, PGPPoint(PtArr), Length(PtArr), n1, n2, tension);

  p.SetWidth(1);
  p.SetColor(aclBlack);
  for i := 0 to Length(PtArr) - 1 do
    g.DrawEllipse(p, PtArr[i].X-2, PtArr[i].Y-2, 4, 4);

  g.Free;
  p.Free;
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  a,b: Integer;
begin
  a := StrToIntDef(LabeledEdit1.Text, 0);
  if (a < 0) or (a > Length(PtArr) - 2) then
    LabeledEdit1.Text := IntToStr(0);

  a := StrToIntDef(LabeledEdit1.Text, 0);
  b := StrToIntDef(LabeledEdit2.Text, 0);
  if a+b > Length(PtArr)-1 then
    LabeledEdit2.Text := IntToStr(Length(PtArr)-1-a);
  Repaint;
end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
var
  a,b: Integer;
begin
  a := StrToIntDef(LabeledEdit1.Text, 0);
  b := StrToIntDef(LabeledEdit2.Text, 0);
  if (b < 0) or (b >= Length(PtArr) - a) then
    LabeledEdit2.Text := IntToStr(Length(PtArr)-1-a);
  Repaint;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  tension := TrackBar1.Position / 10;
  Repaint;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  i := 0;
  SetLength(PtArr, i);
  Repaint;
  Text := IntToStr(i);
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 187
  ClientWidth = 264
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 181
    Top = 155
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object TrackBar1: TTrackBar
    Left = 8
    Top = 155
    Width = 167
    Height = 25
    TabOrder = 1
    OnChange = TrackBar1Change
  end
  object LabeledEdit1: TLabeledEdit
    Left = 208
    Top = 54
    Width = 48
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit1'
    TabOrder = 2
    OnChange = LabeledEdit1Change
  end
  object LabeledEdit2: TLabeledEdit
    Left = 208
    Top = 102
    Width = 48
    Height = 21
    EditLabel.Width = 61
    EditLabel.Height = 13
    EditLabel.Caption = 'LabeledEdit2'
    TabOrder = 3
    OnChange = LabeledEdit2Change
  end
end

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
Quartz2D IOS绘图 线 椭圆 矩形 贝塞尔曲线 弧

// // ViewController.m // Quartz2D // // Created by dc008 on 15/12/7. // Copyright © 2015年 CXY. All rights reserved. // #import "ViewController.h" #import "CuiXiaoYu.h" @inter......

温暖c ⋅ 2015/12/07 ⋅ 0

用C#的GDI+技术生成复杂型彩色验证码

该类是生成一个验证码的类。本人集合了网上大部分的C#关于GDI+的文章进行多次改进,现在已经形成了可在生产环节中使用的验证码。 该验证码加入了背景噪点,背景噪点曲线和直线,背景噪点文字...

Minho ⋅ 2012/12/13 ⋅ 2

CGContextRef UI界面美化

#import "Birongchao.h" @implementation Birongchao - (void)drawRect:(CGRect)rect { NSLog(@"drawRect 被调用了!"); [self drawLine]; CGContextRef context = UIGraphicsGetCurrentCon......

TimeConcept ⋅ 2015/12/07 ⋅ 0

C# chart控件绘制曲线

在.NET中以前经常用GDI去绘制,虽然效果也不错,自从.NET 4.0开始,专门为绘制图表而生的Chart控件出现了,有了它,就可以轻松的绘制你所需要的曲线图、柱状图什么的了。 参考文章 1. 使用....

橘子红了呐 ⋅ 2017/11/07 ⋅ 0

PyCairo指南--简介

PyCairo简介 这是PyCairo指南。这份指南将基于Python语言,教给你Cairo 2D库基本的和一些高级的主题。在大多数例子中,我们将会使用Python GTK后端来产生我们的输出。本指南中所用到的那些图...

WolfCS ⋅ 2013/05/18 ⋅ 2

实战开发:新手小白如何用C++制作经典网游DNF

十年前,那时候的网吧还不叫网咖,那时候没有王者荣耀也没有英雄联盟,那时候梦幻西游刚推出珍宝阁系统,那时候巫妖王的灵魂还封闭在冰封王座。 寻仙、穿越火线、征途、天龙八部……同时在线...

stone15165 ⋅ 05/05 ⋅ 0

几何画板制作贝塞尔曲线的方法

贝塞尔(Bezier)曲线又称贝兹曲线或贝济埃曲线,是应用于二维图形应用程序的数学曲线。贝兹曲线由线段与节点组成,节点是可拖动的支点,线段像可伸缩的皮筋。贝塞尔曲线是计算机图形学中相当...

学术研究软件 ⋅ 2016/05/30 ⋅ 0

TouchVG 1.1.0 支持Undo/redo,增加高性能绘图视图

TouchVG发布一个大版本,新增下列功能: 1、无限步Undo/redo操作。自动监控图形的改变情况,异步增量记录改变数据,不影响绘图命令。 2、在Android上增加双层SurfaceView,即使在高清屏低配平...

云贵高原 ⋅ 2014/01/31 ⋅ 1

疯狂ios讲义之绘制曲线

Quartz 2D提供了CGContextAddCurveToPoint()和CGContextAddQuadCurveToPoint()两个函数向CGContextRef的当前路径上添加曲线,前者用于添加贝塞尔曲线,后者用于添加二次曲线。 绘制贝塞尔曲线...

博文视点 ⋅ 2014/02/10 ⋅ 1

用canvas绘制一个曲线动画——深入理解贝塞尔曲线

摘要:在前端开发中,贝赛尔曲线无处不在:这篇文章我准备从实现一个非常简单的曲线动画效果入手,帮助大家彻底地弄懂什么是贝塞尔曲线,以及它有哪些特性,文章中有一点点数学公式,但是都非...

hujiulong/blog ⋅ 01/04 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Redis 单线程 为何却需要事务处理并发问题

Redis是单线程处理,也就是命令会顺序执行。那么为什么会存在并发问题呢? 个人理解是,虽然redis是单线程,但是可以同时有多个客户端访问,每个客户端会有 一个线程。客户端访问之间存在竞争...

码代码的小司机 ⋅ 33分钟前 ⋅ 0

到底会改名吗?微软GVFS 改名之争

微软去年透露了 Git Virtual File System(GVFS)项目,GVFS 是 Git 版本控制系统的一个开源插件,允许 Git 处理 TB 规模的代码库,比如 270 GB 的 Windows 代码库。该项目公布之初就引发了争...

linux-tao ⋅ 43分钟前 ⋅ 0

笔试题之Java基础部分【简】【二】

1.静态变量和实例变量的区别 在语法定义上的区别:静态变量前要加static关键字,而实例变量前则不加。在程序运行时的区别:实例变量属于某个对象的属性,必须创建了实例对象,其中的实例变...

anlve ⋅ 今天 ⋅ 0

Lombok简单介绍及使用

官网 通过简单注解来精简代码达到消除冗长代码的目的 优点 提高编程效率 使代码更简洁 消除冗长代码 避免修改字段名字时忘记修改方法名 4.idea中安装lombnok pom.xml引入 <dependency> <grou...

to_ln ⋅ 今天 ⋅ 0

【转】JS浮点数运算Bug的解决办法

37.5*5.5=206.08 (JS算出来是这样的一个结果,我四舍五入取两位小数) 我先怀疑是四舍五入的问题,就直接用JS算了一个结果为:206.08499999999998 怎么会这样,两个只有一位小数的数字相乘,怎...

NickSoki ⋅ 今天 ⋅ 0

table eg

user_id user_name full_name 1 zhangsan 张三 2 lisi 李四 `` ™ [========] 2018-06-18 09:42:06 星期一½ gdsgagagagdsgasgagadsgdasgagsa...

qwfys ⋅ 今天 ⋅ 0

一个有趣的Java问题

先来看看源码: public class TestDemo { public static void main(String[] args) { Integer a = 10; Integer b = 20; swap(a, b); System.out......

linxyz ⋅ 今天 ⋅ 0

十五周二次课

十五周二次课 17.1mysql主从介绍 17.2准备工作 17.3配置主 17.4配置从 17.5测试主从同步 17.1mysql主从介绍 MySQL主从介绍 MySQL主从又叫做Replication、AB复制。简单讲就是A和B两台机器做主...

河图再现 ⋅ 今天 ⋅ 0

docker安装snmp rrdtool环境

以Ubuntu16:04作为基础版本 docker pull ubuntu:16.04 启动一个容器 docker run -d -i -t --name flow_mete ubuntu:16.04 bash 进入容器 docker exec -it flow_mete bash cd ~ 安装基本软件 ......

messud4312 ⋅ 今天 ⋅ 0

OSChina 周一乱弹 —— 快别开心了,你还没有女友呢。

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @莱布妮子 :分享吴彤的单曲《好春光》 《好春光》- 吴彤 手机党少年们想听歌,请使劲儿戳(这里) @clouddyy :小萝莉街上乱跑,误把我认错成...

小小编辑 ⋅ 今天 ⋅ 9

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部