Delphi 7下IGDIPlus库的使用

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

IGDI+是一个免费开源封装微软GDI+功能的Delphi库，该库使得可以用Delphi语言代码快速简短的实现复杂GDI+应用程序。
官方网站：http://www.mitov.com/html/igdi_.html
SourceForge：https://sourceforge.net/projects/igdiplus/

安装方法：
1.首先下载目前最新版的IGDI+，解压到任意目录下，这里我解压到D盘；
2.打开Delphi 7→Tools→Environment Options→Library→Library path，然后点击右边的“...”，添加IGDI+的目录路径，确定完成，如下图所示：

如要在程序中使用IGDI+的话
1.首先在单元头uses内包含IGDIPlus，如：uses IGDIPlus;
2.在窗体的OnPaint事件中，添加如下测试代码:

procedure TForm1.FormPaint(Sender: TObject);
var
  AGraphics: IGPGraphics;
  APen: IGPPen;
  AFont: IGPFont;
  ABrush: IGPSolidBrush;
  rc: TPoint;
begin
  AGraphics := TGPGraphics.Create(Canvas);
  AGraphics.SmoothingMode := SmoothingModeAntiAlias;//指定平滑（抗锯齿）
  AGraphics.TextRenderingHint := TextRenderingHintAntiAlias;//指定使用过程中呈现的文本采用反走样
  APen := TGPPen.Create($FF000000,3);
  AGraphics.DrawLine(APen,5,5,100,100);

  APen.Color := $FF0000FF;
  APen.Width := 2;
  AGraphics.DrawEllipse(APen,120,5,100,100);

  Canvas.Font.Name := '微软雅黑';
  Canvas.Font.Size := 13;
  AFont := TGPFont.Create(Canvas.Handle);
  ABrush := TGPSolidBrush.Create($FFFF0000);
  rc.X := 10;
  rc.Y := 150;
  AGraphics.DrawString('无幻博客'+#13#10+'http://blog.csdn.net/akof1314',AFont,rc,ABrush);
end;

3.运行结果如下图所示：

IGDI+库下载：
地址一：http://www.mitov.com/IGDIPlus.zip
地址二：http://download.csdn.net/source/3039922

给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow

Delphi 7下IGDIPlus库的使用相关推荐

Delphi D10.X 并行库PPL编程之TTask
Delphi D10.X 并行库PPL编程系列之 TTask delphi中的RTL(运行库)提供了并行编程库(PPL --Parallel Programming Library) ,让您的应用程序 ...
linux编译安装jpeg,Linux下JPEG库安装脚本(转)
Linux下JPEG库安装脚本(转)[@more@]该脚本用于在Linux下安装JPEG库,在安装GD库的时候如果没有JPEG库,GD将不能生成JPEG格式的图象. 作者: 何志强#----where ...
Linux下boost库的编译、安装详解
1.下载源文件去官网下载:http://www.boost.org/ 这里下载最新版本 wget https://dl.bintray.com/boostorg/release/1.64.0/sou ...
Windows下Socket库的初始化和关闭
文章目录 1 Windows下Socket库的初始化和关闭 1 Windows下Socket库的初始化和关闭 windows下使用Socket比较特殊,使用前我们需要对socket库进行初始化,使用完 ...
Delphi 7下使用VT实现树型列表结合控件
Delphi 7下使用VT实现树型列表结合控件转载于:https://www.cnblogs.com/LittleTiger/p/5007580.html
linux boost 卸载,Ubuntu下boost库的编译安装步骤及卸载方法详解
最近由于编译一个程序用到了C++的boost库,所以便安装了这个库.但是,其中遇到了一些小问题.所以记录下来,以供别人参考. 首先说一下我的环境:Ubuntu 12.04 32bit, gcc 4. ...
linux 动态库建立,浅析linux下静态库和动态库的建立和使用
在粤嵌学了很多知识,我们把常用的公用函数放在一起做成一个函数库,可以供其他程序共同使用,函数库本质上说,是一个可执行代码的二进制形式,可被操作系统载入内存执行.linux下的库分为两种:静态库,后缀名 ...
Python3.5在Windows7环境下Scrapy库的安装
Python3.5在Windows7环境下Scrapy库的安装忙活了一下午,总算是把Scrapy库给装完了,记下来给需要帮助的人首先安装的环境:Windows7 64位 Python的版本是:3. ...
linux下编译libuv,linux下libuv库安装教程
下载并编译libuv libuv需要自己手动下载源码,并手动编译. 当前目录为:/home/xlz/test/github/,在后面,会用$PATH来代替,我的系统的Debian8,64bit. $g ...

Delphi 7下IGDIPlus库的使用

给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow

Delphi 7下IGDIPlus库的使用相关推荐

最新文章

热门文章