• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

Delphi中使用GDI+进行绘图（2）

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

2）使用IGDIPlus接口

（1）下载安装所需软件

可以在以下地址下载IGDI+最新的安装程序。

http://www.mitov.com/products/igdi+

www.igdiplus.org

 

打开压缩包：

其中有三个文件是我们需要的：

IGDIPlus.pas

IGDIPlusAPI.inc

VCL.IGDIPlusExt.pas

 

（2）使用IGDI+绘图

 

将这三个文件加入到工程文件当中，或者设置包含目录，使工程能够找到上述文件。

工程文件如下：

窗口文件如下：

Pascal Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23		   object GDIPlusDemoForm2: TGDIPlusDemoForm2
  Left = 0 
  Top = 0 
  Caption = 'GDIPlusDemo2' 
  ClientHeight = 289 
  ClientWidth = 554 
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11 
  Font.Name = 'Tahoma' 
  Font.Style = []
  OldCreateOrder = False 
  PixelsPerInch = 96 
  TextHeight = 13 
  object pb1: TPaintBox
    Left = 24 
    Top = 16 
    Width = 473 
    Height = 209 
    OnPaint = pb1Paint
  end 
end

 

代码如下：

Pascal Code
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		   unit GDIPlusDemo2;

interface 

uses 
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.ExtCtrls, IGDIPlus, VCL.IGDIPlusExt;

type 
  TGDIPlusDemoForm2 = class(TForm)
    pb1: TPaintBox;
    procedure pb1Paint(Sender: TObject);
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end;

var 
  GDIPlusDemoForm2: TGDIPlusDemoForm2;

implementation 

{$R *.dfm} 

procedure TGDIPlusDemoForm2.pb1Paint(Sender: TObject);
var 
   g: IGPGraphics;
   p: IGPPen;
   b: IGPBrush;
   r: TIGPRect;
 begin 
   g := TIGPGraphics.FromCanvas(pb1.Canvas);
   p := TIGPPen.Create(aclRed, 2);
   b := TIGPSolidBrush.Create(aclAliceBlue);
   r := TIGPRect.Create(20, 20, 100, 60);
   g.FillRectangle(b, r);
   g.DrawRectangle(p, r);
end;

end.

 

结果如下:

 

注意：与Delphi内置的GDI+接口相比，IGDI+明显要简单得多，所有的类全部使用接口，所以不必再考虑对象的释放问题，只需要创建即可，对象会使用Delphi的接口机制实现自动地垃圾收集。

http://blog.sina.com.cn/s/blog_591968570102vwul.html

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
MATLABappdesigner菜鸟进阶学习（三）发布时间：2022-07-18
下一篇：
windows下matlab代码到ubuntu下中文注释出现乱码发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap