文档章节

再学 GDI+[55]: 路径 - Flatten

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 290
阅读 2
收藏 0
点赞 0
评论 0
通过路径的 Flatten 方法可以把路径中的曲线拉直, 拉直到什么程度是由它的第二个参数(默认0.25)决定的; 它的第一个参数又是一个矩阵变换, 也就是说 Flatten 可以同时进行矩阵变换, 本例没有测试它, 其详情参见:
http://www.cnblogs.com/del/archive/2008/06/20/1226293.html

本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Height := 23;
  TrackBar1.ShowSelRange := False;
  TrackBar1.Min := -5000;
  TrackBar1.Max := 5000;
  TrackBar1.Position := 25;
  TrackBar1.PageSize := 5;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  g: TGPGraphics;
  p: TGPPen;
  path: TGPGraphicsPath;
  f: Single;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclBlue, 2);
  path := TGPGraphicsPath.Create;
  path.AddEllipse(20, 20, ClientWidth-40, ClientHeight- 80);

  f := TrackBar1.Position / 100;
  path.Flatten(nil, f);
  Text := Format('%f', [f]);

  g.DrawPath(p, path);

  path.Free;
  p.Free;
  g.Free;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Repaint;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 200
  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
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object TrackBar1: TTrackBar
    Left = 0
    Top = 176
    Width = 265
    Height = 45
    TabOrder = 0
    OnChange = TrackBar1Change
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/06/20/1226399.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
jenkins插件之Publish Over SSH

说明 这个插件可以通过ssh连接其他服务器。 公共配置 Passphrase:密码 Path to key:key文件(私钥)的路径 Key:将私钥复制到这个框中 Disable exec:禁止运行命令 私有配置 SSH Server N...

日久不生情
2017/11/16
0
0
[译]JavaScript 让 Monad 更简单(软件编写)(第十一部分)

原文地址:JavaScript Monads Made Simple 原文作者: Eric Elliott 译文出自:掘金翻译计划 本文永久链接:github.com/xitu/gold-m… 译者:yoyoyohamapi 校对者:IridescentMia WJoan Jav...

吴晓军
2017/10/17
0
0
jenkins插件之Publish Over FTP

说明 这个插件可以将文件发布到FTP上去。 系统设置 FTP Server Name:名称 Hostname:主机IP或者域名 Username:ftp登陆用户名 Password:ftp密码 Remote Directory:远程根目录(建议设置为...

日久不生情
2017/11/18
0
0
Wine 1.9.15 发布,Windows 应用兼容层

Wine 是一个伟大的项目,Wine 是一款让你在 Linux、MAC 上运行 Windows 程序的软件,从 Wine 1.7.55 发布之后,稳定版本以 wine 1.8.x 发布,而 1.9.X 开始作为开发版本发布。 最新开发版本 ...

oschina
2016/07/25
2.1K
10
实战开发:新手小白如何用C++制作经典网游DNF

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

stone15165
05/05
0
0
Wine 1.9.17 发布,Windows 应用兼容层

Wine 1.9.17 发布了,Wine(Wine Is Not an Emulator” 的首字母缩写) 是一款让你在 Linux、MAC 上运行 Windows 程序的软件,从 Wine 1.7.55 发布之后,稳定版本以 Wine 1.8.x 发布,而 1.9....

局长
2016/08/22
1K
11
OSG3.2+Qt5.2.1+VS2012+OSGEarth 2.5编译问题记录

问题1:CMake Error at D:/Qt/Qt5.2.1/5.2.1/msvc201264opengl/lib/cmake/Qt5Gui/Qt5GuiConfigExtras.cmake:16 (message): Failed to find "glu32" in "" with CMAKECXXLIBRARY_ARCHITECTURE ......

天蚕宝衣
2016/11/21
17
0
第十章 Scala 容器基础(十五):使用flatten方法来展开一个元素为集合的集合

Problem 如何把一个嵌套集合展开为一个平铺的单层集合。 Solution 使用flatten方法来吧一个嵌套集合转化为一个单层集合。为了说明这一点,我们先来创建一个嵌套结合撸啊撸 scala> val lol =...

阿拉德大陆的魔法师
2016/04/12
82
0
在C++Builder中使用GDI+的流程

在C++Builder中使用GDI+的流程: 1、 GDI+主要是通过gdiplus.dll进行调用,而BCB没有直接提供与gdiplus.dll对应的静态链接库,所以需要我们自己建立。如果在自己的计算机没有找到文件gdiplus...

hack_tian
04/11
0
0
第十章 Scala 容器基础(十六):flatMap一个把flatten和map结合起来的方法

Problem 当你第一次来到Scala世界的时候,flatMap放方法看起来是很特别的,所以你需要理解他是如何工作的,还有它是应用在什么地方的。 Solution 在你调用map方法后紧接着调用flatten方法的情...

阿拉德大陆的魔法师
2016/04/13
966
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

前端基础

1. get请求传参长度的误区 误区:我们经常说get请求参数的大小存在限制,而post请求的参数大小是无限制的。 实际上HTTP 协议从未规定 GET/POST 的请求长度限制是多少。对get请求参数的限制是...

wenxingjun
25分钟前
0
0
Android 复制和粘贴功能

做了一回搬运工,原文地址:https://blog.csdn.net/kennethyo/article/details/76602765 Android 复制和粘贴功能,需要调用系统服务ClipboardManager来实现。 ClipboardManager mClipboardM...

她叫我小渝
今天
0
0
拦截SQLSERVER的SSL加密通道替换传输过程中的用户名密码实现运维审计(一)

工作准备 •一台SQLSERVER 2005/SQLSERVER 2008服务 •SQLSERVER jdbc驱动程序 •Java开发环境eclipse + jdk1.8 •java反编译工具JD-Core 反编译JDBC分析SQLSERVER客户端与服务器通信原理 SQ...

紅顏為君笑
今天
6
0
jQuery零基础入门——(六)修改DOM结构

《jQuery零基础入门》系列博文是在廖雪峰老师的博文基础上,可能补充了个人的理解和日常遇到的点,用我的理解表述出来,主干出处来自廖雪峰老师的技术分享。 在《零基础入门JavaScript》的时...

JandenMa
今天
0
0
linux mint 1.9 qq 安装

转: https://www.jianshu.com/p/cdc3d03c144d 1. 下载 qq 轻聊版,可在百度搜索后下载 QQ7.9Light.exe 2. 去wine的官网(https://wiki.winehq.org/Ubuntu) 安装 wine . 提醒网页可以切换成中...

Canaan_
今天
0
0
PHP后台运行命令并管理运行程序

php后台运行命令并管理后台运行程序 class ProcessModel{ private $pid; private $command; private $resultToFile = ''; public function __construct($cl=false){......

colin_86
今天
1
0
数据结构与算法4

在此程序中,HighArray类中的find()方法用数据项的值作为参数传递,它的返回值决定是否找到此数据项。 insert()方法向数组下一个空位置放置一个新的数据项。一个名为nElems的字段跟踪记录着...

沉迷于编程的小菜菜
今天
1
1
fiddler安装和基本使用以及代理设置

项目需求 由于开发过程中客户端和服务器数据交互非常频繁,有时候服务端需要知道客户端调用接口传了哪些参数过来,这个时候就需要一个工具可以监听这些接口请求参数,已经接口的响应的数据,这种...

银装素裹
今天
0
0
Python分析《我不是药神》豆瓣评论

读取 Mongo 中的短评数据,进行中文分词 对分词结果取 Top50 生成词云 生成词云效果 看来网上关于 我不是药神 vs 达拉斯 的争论很热啊。关于词频统计就这些,代码中也会完成一些其它的分析任...

猫咪编程
今天
0
0
虚拟机怎么安装vmware tools

https://blog.csdn.net/tjcwt2011/article/details/72638977

AndyZhouX
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部