zoukankan      html  css  js  c++  java
  • Delphi 7下IGDIPlus库的使用

      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

    http://blog.csdn.net/akof1314/article/details/6205578

  • 相关阅读:
    ftp
    vmware虚拟机如何安装ubuntu14.10系统
    第1章 初识java----Java简介
    fiddler
    Program Files 与Program Files (x86)
    跟我一起认识axure(三)
    React-FlipOver-Counter(日历翻页)
    vue2-vux-fitness-project
    cloud-music
    跟我一起认识axure(二)
  • 原文地址:https://www.cnblogs.com/findumars/p/6360863.html
Copyright © 2011-2022 走看看