文档章节

再学 GDI+[32]: TGPPen - 拐角长度的限制 - SetMiterLimit

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 235
阅读 3
收藏 0
点赞 0
评论 0
拐角长度的限制的默认值是 10.0, 一般足够用了.

本例效果图:



代码文件:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.ShowSelRange := False;
  TrackBar1.Height := 20;
  TrackBar1.Min := 0;
  TrackBar1.Max := 100;
  TrackBar1.Position := TrackBar1.Max;
end;

procedure TForm1.FormPaint(Sender: TObject);
const
  PtArr: array[0..2] of TGPPoint = ((X:90;Y:80), (X:240;Y:30), (X:240;Y:80));
var
  g: TGPGraphics;
  p: TGPPen;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  p := TGPPen.Create(aclSeaGreen, 28);

  p.SetMiterLimit(TrackBar1.Position / 10);

  g.DrawPolygon(p, PGPPoint(@PtArr), Length(PtArr));

  p.Free;
  g.Free;
end;

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

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

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 138
  ClientWidth = 266
  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 = 2
    Top = 112
    Width = 261
    Height = 45
    TabOrder = 0
    OnChange = TrackBar1Change
  end
end

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
使用GDI+绘制的360风格按钮控件

unit u360StyleButton; interface uses SysUtils, Classes, Controls, StdCtrls,Graphics, Messages, Windows, GDIPAPI, GDIPOBJ, GDIPUTIL; type TBtn360Style = class(TButton) private FB......

jingshishengxu ⋅ 2016/06/14 ⋅ 0

量子计算机,下一个科技的拐角点

2013年5月,谷歌、NASA和美国大学空间研究联合会联合买下了加拿大D-Wave Systems公司制造的第二代量子计算机D-Wave Two。 D-Wave Two 配备了一个512量子位的Vesuvius处理器,测试结果显示,芯...

雪花又一年 ⋅ 05/17 ⋅ 0

链接错误 undefined reference to `SetStretchBltMode@8'

我已经把 gdi32.lib的库文件放到目录下了。尝试了没用 把gdi32.dll放进去也没用。 我查了MSDN了这个函数是在Gdi32.lib中的。并且我查看了gdi32.lib 和gdi32.dll的导出函数里面的确有这些函数...

Mario_Q ⋅ 2013/08/20 ⋅ 1

win图形编程与打印驱动

最近一个项目做打印属性的二次开发,目前的情况是利用虚拟打印机服务管理打印机和打印任务。原先没有做过这种经验,把最近看的东西整理一下。 1.windows编程 鉴于原先看过Petzold的书或者有过...

im天行 ⋅ 2012/11/20 ⋅ 0

为Dll重新构造Lib

分类: Windows Repository 2010-06-12 12:56 1151人阅读 评论(0) 收藏 举报dllmicrosoft正则表达式variables工具文本编辑有些时候, 我们手头只有.dll和.h文件, 没有.lib. 而VC链接必须要提供...

真是杨晓光 ⋅ 2013/03/16 ⋅ 2

windows程序设计自学笔记(一)

本周开始自学windows编程,选的教材是《windows程序设计第五版》(珍藏版),没钱买书,只能下了pdf的书籍来看。 《windows程序设计第五版》(珍藏版)共分3个大部分,分别是:1)基础知识[...

赵西元 ⋅ 2012/12/13 ⋅ 0

【工具使用系列】关于 MATLAB 图像表示与描述,你需要知道的事

如何表示与描述图像 什么是图像表示与描述 图像表示 链码 多边形近似 标记 边界片段 骨骼 图像描述 几何概念 领接与连通 距离 几何特征的测量 拓扑特征及物体计数 面积 周长及弧长 投影长度和...

AllenMoore ⋅ 01/27 ⋅ 0

风尘叹/libjson

libjson libjson 是一款简单、高性能的 C 语言 json 库,以 LGPL 协议发布。 libjson 支持以 SAX 模式进行解析,也支持以 DOM 模式解析。 libjson 以非常节制的方式使用内存。以 SAX 模式进行...

风尘叹 ⋅ 2015/05/15 ⋅ 0

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 ⋅ 0

图像拐点检测-原理以及代码实现

今天带来的内容只用两个字形容-干货!!首先我们科普下图像识别的常识,图片在电脑看来,其实就是一个矩阵,每个矩阵中的一个值都对应图片的一个像素点。(下图摘自《机器学习实践应用》) ...

gshengod ⋅ 04/18 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

那些证书相关的玩意儿(SSL,X.509,PEM,DER,CRT,CER,KEY,CSR,P12等)

之前没接触过证书加密的话,对证书相关的这些概念真是感觉挺棘手的,因为一下子来了一大堆新名词,看起来像是另一个领域的东西,而不是我们所熟悉的编程领域的那些东西,起码我个人感觉如此,且很长...

颖辉小居 ⋅ 19分钟前 ⋅ 0

利用有限制通配符提升API灵活性(28)

1、参数化类型是不可变的 List<String> 不是List<Object>的子类,但是二者是有联系的 利用有限制的通配符类型处理类似情况 List<? extends Object>(生产者) Collection<? super E>(消费者......

职业搬砖20年 ⋅ 25分钟前 ⋅ 0

ssm框架 +bootstrap分页

这里有两种方式 方式一:自己写分页 方式二:使用插件PageHelper 1.自己写分页 1.1 效果 1.2 实现过程 1.2.1 创建分页公共类 //---------------------------1.属性-------------------------...

Lucky_Me ⋅ 32分钟前 ⋅ 0

Istio

helm template install/kubernetes/helm/istio --name istio --namespace istio-system > $HOME/istio.yaml after $ kubectl create namespace istio-system$ kubectl create -f $HOME/ist......

openthings ⋅ 32分钟前 ⋅ 0

内核线程、轻量级进程、用户线程

线程与进程概念 在现代操作系统中,进程支持多线程。 进程是资源管理的最小单元; 线程是程序执行的最小单元。 即线程作为调度和分配的基本单位,进程作为资源分配的基本单位 一个进程的组成...

117 ⋅ 37分钟前 ⋅ 0

elasticsearch2.4.6升级为elasticsearch-5.5.0的经历

将elasticsearch-5.5.0 中的配置 path.data 指向原来的数据路径 即 path.data: /usr/local/src/elasticsearch-2.4.6/data 注意: elasticsearch-5.5.0 需要将jdk版本升级到1.8...

晨猫 ⋅ 38分钟前 ⋅ 1

lvm讲解 磁盘故障小案例

1

oschina130111 ⋅ 42分钟前 ⋅ 0

那些提升开发人员工作效率的在线工具

本文转载自公众号 Hollis 作为一个Java开发人员,经常要和各种各样的工具打交道,除了我们常用的IDE工具以外,其实还有很多工具是我们在日常开发及学习过程中要经常使用到的。 Hollis偏爱使用...

时刻在奔跑 ⋅ 54分钟前 ⋅ 0

restful风格 实现DELETE PUT请求 的web.xml的配置

import org.springframework.beans.factory.annotation.Autowired; import org.springframework.http.HttpStatus; import org.springframework.http.ResponseEntity; import org.springframe......

泉天下 ⋅ 今天 ⋅ 0

Shell数组

Shell数组 Shell在编程方面比Windows批处理强大很多,无论是在循环、运算。 bash支持一维数组(不支持多维数组),并且没有限定数组的大小。类似与C语言,数组元素的下标由0开始编号。获取数...

蜗牛奔跑 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部