文档章节

GdiPlus[35]: IGPGraphicsPath (二) 命中测试

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 274
阅读 6
收藏 0

IGPGraphicsPath.IsVisible        //指定点是否在路径内
IGPGraphicsPath.IsOutlineVisible //指定点是否在路径轮廓上

 
 
 
 
 

 

 

  

本例测试图:



本例代码:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormResize(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GdiPlus;

var
  Path1,Path2,Path3: IGPGraphicsPath;
  Pen: IGPPen;

procedure TForm1.FormCreate(Sender: TObject);
var
  R: TRect;
begin
  Pen := TGPPen.Create($FFFF0000, 3);

  Path1 := TGPGraphicsPath.Create;
  Path2 := TGPGraphicsPath.Create;
  Path3 := TGPGraphicsPath.Create;

  Path1.AddLine(0, 0, ClientWidth, ClientHeight);

  R := ClientRect;
  InflateRect(R, -ClientWidth div 3, -ClientHeight div 3);
  OffsetRect(R, -Trunc((R.Right-R.Left) * 0.6), -Trunc((R.Bottom-R.Top) * 0.6));
  Path2.AddRectangle(TGPRect.Create(R));

  OffsetRect(R, R.Right-R.Left, R.Bottom-R.Top);
  Path3.AddEllipse(TGPRect.Create(R));
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
begin
  Graphics := TGPGraphics.Create(Handle);
  with Graphics do
  begin
    DrawPath(Pen, Path1);
    DrawPath(Pen, Path2);
    DrawPath(Pen, Path3);
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  Pt: TGPPoint;
  str: string;
begin
  Pt.Initialize(X, Y);
  str := '';
  if Path2.IsVisible(Pt) then str := '在矩形内';
  if Path3.IsVisible(Pt) then str := '在椭圆内';

  if Path1.IsOutlineVisible(Pt, Pen) then str := '在直线上';
  if Path2.IsOutlineVisible(Pt, Pen) then str := '在矩形的边线上';
  if Path3.IsOutlineVisible(Pt, Pen) then str := '在椭圆的圆周线上';

  if Text <> str then Text := str;
end;

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

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/12/17/1626373.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
vs 2005 添加GDI配置

在VS2005当中由于自带了GDI+的开发包,所以不需要在安装GDI开发包,这些头文件的位置由VS中的$(WindowsSdkDir)/include自动包含进来了 下午自己添加了好几次,总是出现有报错,,在 stdafx.h...

种地瓜
2015/12/08
85
0
GDI+里面的问题。。。。。。。。。。

error C2248: “Gdiplus::Bitmap::Bitmap”: 无法访问 private 成员(在“Gdiplus::Bitmap”类中声明) 1> c:program filesmicrosoft sdkswindowsv7.0aincludegdiplusheaders.h(630) : 参见“G......

xxdd
2013/10/24
60
0
MFC边框重绘

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 pragma once incl......

江河海流
2016/01/30
509
0
最频繁访问驻留缓存算法

在搜索系统中,如何缓存搜索最频繁的1000个搜索结果?自定制的精准短文本搜索服务项目代码 本文利用了ConcurrentHashMap和AtomicLong实现了线程安全且支持高并发的最频繁访问驻留缓存算法,除...

杨尚川
2016/07/18
631
0
强大的http加速器------varnish

varnish 简介 varnish是一款强大的http加速器,其设计初衷因为计算机越来越复杂,不像那个只有内存与硬盘的存储媒介的年代,如今的计算机系统除了内存外还有cpu的L1、L2、L3快取,因此当初的...

jungege1216
2014/05/07
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

qduoj~前端~二次开发~打包docker镜像并上传到阿里云容器镜像仓库

上一篇文章https://my.oschina.net/finchxu/blog/1930017记录了怎么在本地修改前端,现在我要把我的修改添加到部署到本地的前端的docker容器中,然后打包这个容器成为一个本地镜像,然后把这...

虚拟世界的懒猫
今天
1
0
UML中 的各种符号含义

Class Notation A class notation consists of three parts: Class Name The name of the class appears in the first partition. Class Attributes Attributes are shown in the second par......

hutaishi
今天
1
0
20180818 上课截图

小丑鱼00
今天
1
0
Springsecurity之SecurityContextHolderStrategy

注:下面分析的版本是spring-security-4.2.x,源码的github地址是: https://github.com/spring-projects/spring-security/tree/4.2.x 先上一张图: 图1 SecurityContextHolderStrategy的三个......

汉斯-冯-拉特
今天
1
0
LNMP架构(Nginx负载均衡、ssl原理、生成ssl密钥对、Nginx配置ssl)

Nginx负载均衡 网站的访问量越来越大,服务器的服务模式也得进行相应的升级,比如分离出数据库服务器、分离出图片作为单独服务,这些是简单的数据的负载均衡,将压力分散到不同的机器上。有时...

蛋黄_Yolks
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部