小熊技术论坛» 『个人地盘』 » 『 Mybr地盘』 » GDI+ demo

打印

GDI+ demo

mybr

坛主

论坛管理员优秀斑竹奖特殊贡献奖论坛支持奖原创先锋奖论坛大帅哥编程高手奖雷锋精神奖信誉勋章支持奥运红心勋章

UID: 1

头衔: 惊天动地大色熊

精华: 22

积分: 3381

帖子: 3243

威望: 3381 点

熊币: -1110981 个

贡献值: 0 点

警告石: 0 颗

阅读权限: 200

状态:

楼主大中小发表于 2007-11-29 16:54 只看该作者

GDI+ demo

http://blog.csdn.net/maozefa/archive/2007/11/12/1880484.aspx

正在处理您的请求...

MzForm

StatusBar

maozefa的专栏

闲人阿发伯的业余编程心得maozefa

Csdn Blog User的个人信息

我的博客我的空间

数据读取中，请稍候...

点击 - 8878, 评论 - 56, Trackbacks -0

作者tag:bcb c++builder delphi borland gdi+ 数据库开发应用 vcl gdi+(vcl)应用 targb CSDN 推荐tag:.net c++ cbcolor gdi gdi+(vcl)基础 gpnative

上一篇: Delphi版的线性回归分析 | 下一篇: C++老代码 -- DBF数据文件操作类DBFile

GDI+ 在Delphi程序的应用 -- GDI+ 与 VCL

陆续写了十几篇关于《GDI+在Delphi程序的应用》的文章后，应几个小友来信要求，将我所使用的GDI+ for VCL，包括Delphi和C++Builder版发布在了csdn的资源下载区，下载地址：http://download.csdn.net/source/297704

其中的Delphi版与目前网上流通的版本不完全兼容；而C++Builder本来自带有C++版的Gdiplus，但由于与VCL有些冲突，使用起来较麻烦，所以本人参照Delphi版完全重新写了一个供C++Builder使用的VCL版（开源的），本BLOG中的有关GDI+的Delphi例子很容易就移植到C++Builder。

下面就GDI+ for VCL的一些特点作简单介绍：

      GDI+是伴随Windows XP系统出现的增强性图形设备接口子系统，除了一整套API外，还提供了几十个C++类和大量的数据类型，同传统的Win32 GDI相比，GDI+不仅优化和扩展了GDI，而且使得使用C/C++开发Windows程序图形界面更容易操作。但是，对于Delphi和C++Builder所共用的VCL来说，由于VCL通过TCanvas、TBitmap和TImage等及其相关的类，把传统的GDI封装的几乎无可挑剔，类似C++的GDI+类，在易操作上就没什么优势可言了。但是，要想把GDI+封装成完全的VCL风格也存在几个问题：
      1、正是由于VCL对GDI良好的封装，VCL所有与界面和图形有关的类对GDI存在严重的依赖性，即使GDI+封装成完全的VCL风格，也无法“插足”已有的界面和图形类，充其量只能起到“敲敲边鼓”的辅助作用，所以把GDI+封装成完全的VCL风格意义不大，除非GDI+为主，完全重构原有的界面和图形类；
      2、现有大量的C++、.NET有关GDI+的代码移植到Delphi（C++Builser）时，结构修改量太大，而且对于已经熟悉C++或者.NET GDI+的人来说，重新掌握新的VCL风格无疑是痛苦的；
      3、GDI+的坐标计量类型有整数和实数2套，如果按VCL风格写，势必要舍弃一套，保留整数型当然是最好的，但这2套类型又都不那么完整，整数型更是个半吊子系统。
      鉴于以上原因，无论是目前网上流通的GDI+ for Delphi版本，还是本人改写的GDI+ for VCL，都基本采用了原C++类风格，甚至于.net的GDI+版本也与.net其它类风格不一样，更多的保留了原C++风格（就我个人的看法，不知什么原因，GDI+ for C++版本无论是架构设计，还是代码水平，其实都很差，同C++的STL没法比）。
      当然，同网上流通的GDI+ for Delphi版本比，我改写的GDI+ for VCL版本并没有完全照搬原C++代码，兼顾了部分VCL和.NET风格，比如加入了VCL异常、布尔类型和绝大部分枚举和集合类型都采用了VCL风格、增加了.NET风格的Pens和Brushs等全局变量(C++Builder)或者全局函数(Delphi)。

      GDI+ for VCL的所有类（不包括TPens和TBrushs）都派生于TGdiplusBase：   TCloneAPI = function(Native: GpNative; var clone: GpNative): TStatus; stdcall;

  TGdiplusBase =
class(TObject)
  private
FNative: GpNative;
  protected
constructor CreateClone(SrcNative: GpNative; clonefunc: TCloneAPI = nil);
property Native: GpNative read FNative write FNative;
  public
constructor Create;
class function NewInstance: TObject; override;
procedure FreeInstance; override;
  end;

      原C++的GdiplusBase只是重载了new和delete操作符，分别以GDI+的GdipAlloc和GdipFree替换了原系统默认的内存分配和释放方法，而TGdiplusBase也相应的重载了TObject的NewInstance方法和FreeInstance方法（其实在不重载也能正常运行）；
      在TGdiplusBase中有个保护的GpNative（指针）类型的成员Native（Delphi中说明为属性，C++builder直接说明为数据成员），供所用派生类使用（原C++类将这个成员分散说明在各个类中），这个数据成员就是Gdiplus.dll内部使用的类指针，GDI+类都是通过对应的内部类指针对Dll Exports函数的调用实现的（假如你讨厌GDI+的类，你完全可以抛开它们而直接使用指针操作原始的Dll Exports函数）；
      至于TGdiplusBase构造方法CreateClone则是我为了简化派生类的Clone方法所提供的基类保护方法。
      GDI+ for VCL定义了一个异常类EGdiplusException：
  EGdiplusException =
class(Exception)
  private
FGdipError: TStatus;
function GetGdipErrorString: string;
  public
constructor CreateStatus(Status: TStatus);
property GdipError: TStatus read FGdipError;
property GdipErrorString: string read GetGdipErrorString;
  end;

      除各类的析构方法外，其它类方法都使用了异常检查，这使得GDI+ for VCL代码同原C++代码和目前流通的GDI+ for Delphi比，更加方便和健壮，通过使用EGdiplusException.GdipError或者EGdiplusException.GdipErrorString，可以得到GDI+最后一次异常代码或信息。
      GDI+ for VCL重新定义了绝大多数数据类型，如将C++风格的常量和枚举类型改为了VCL风格的枚举和集合类型，重构某些数据结构，以提供对VCL数据类型的支持或转换。以Color类为例，改写后的TGpColor：
// Known Color

#define  KnownColorCount  141

static const ARGB kcAliceBlue = 0xfff0f8ff;
static const ARGB kcAntiqueWhite  = 0xfffaebd7;
(略)

class Color
{
private:

union
{
      ARGB FARGB;
      struct
      {
         BYTE FBlue;
         BYTE FGreen;
         BYTE FRed;
         BYTE FAlpha;
      };
};
static TIdentMapEntry KnownColors[];

void MakeARGB(BYTE a, BYTE r, BYTE g, BYTE b);
void MakeARGB(BYTE a, Graphics::TColor color);
COLORREF GetCOLORREF();
AnsiString GetKnownName(void);

public:

Color();
Color(Color &color);
Color(ARGB argb);
Color(BYTE alpha, ARGB argb);
Color(BYTE r, BYTE g, BYTE b);
Color(BYTE a, BYTE r, BYTE g, BYTE b);
Color(BYTE alpha, Graphics::TColor color);
Color(Graphics::TColor color);
Color(AnsiString Name, BYTE Alpha =
255);

static Color FromTColor(BYTE alpha, Graphics::TColor color);
static Color FromTColor(Graphics::TColor color);
static Color FromArgb(ARGB argb);
static Color FromArgb(BYTE alpha, ARGB argb);
static Color FromArgb(BYTE r, BYTE g, BYTE b);
static Color FromArgb(BYTE a, BYTE r, BYTE g, BYTE b);
static Color FromName(AnsiString Name, BYTE Alpha =
255);
static Color FromCOLORREF(BYTE alpha, COLORREF rgb);
static Color FromCOLORREF(COLORREF rgb);

bool IsEmpty();
Color&
operator
= (Color c);
Color&
operator
= (ARGB c);
bool
operator
== (Color& c);
bool
operator
!= (Color& c);

static ARGB StringToARGB(AnsiString Name, BYTE Alpha =
255);
static AnsiString ARGBToString(ARGB argb);

__property ARGB Argb = { read = FARGB };
__property BYTE Alpha = { read = FAlpha };
__property BYTE A = { read = FAlpha };
__property BYTE Red = { read = FRed };
__property BYTE R = { read = FRed };
__property BYTE Green = { read = FGreen };
__property BYTE G = { read = FGreen };
__property BYTE Blue = { read = FBlue };
__property BYTE B = { read = FBlue };
__property COLORREF Rgb = { read = GetCOLORREF };
__property AnsiString Name = { read = GetKnownName };

};

typedef Color                      TGpColor, *PGpColor;
typedef ARGB TARGB, *PARGB;

不仅提供了对VCL的TColor类型的支持（定义为TGpColor类型的参数可直接传递TColor类型），也提供了对GDI+标准颜色的支持与转换（按标准颜色名称得到标准颜色或者按标准颜色取得名称）。在Delphi中，对应TGpColor的地方一律采用TARGB类型，同时提供了与TGpColor函数成员类似的转换方法：
function ARGBToString(Argb: TARGB): string;
function StringToARGB(const S: string; Alpha: BYTE =
255): TARGB;
procedure GetARGBValues(Proc: TGetStrProc);
function ARGBToIdent(Argb: Longint; var Ident: string): Boolean;
function IdentToARGB(const Ident: string; var Argb: Longint): Boolean;

function ARGB(r, g, b: BYTE): TARGB; overload;
function ARGB(a, r, g, b: BYTE): TARGB; overload;
function ARGB(a: Byte; Argb: TARGB): TARGB; overload;

function ARGBToCOLORREF(Argb: TARGB): Longint;
function ARGBToColor(Argb: TARGB): Graphics.TColor;
function ARGBFromCOLORREF(Rgb: Longint): TARGB; overload;
function ARGBFromCOLORREF(Alpha: Byte; Rgb: Longint): TARGB; overload;
function ARGBFromTColor(Color: Graphics.TColor): TARGB; overload;
function ARGBFromTColor(Alpha: Byte; Color: Graphics.TColor): TARGB; overload;

      GDI+ for VCL还增加了.NET风格的Pens和Brushs等全局变量(C++Builder)或者全局函数(Delphi)，不仅提供了141种标准颜色的画笔和画刷，也可使用自定义颜色调用Pens和Brushs的缺省数组(Delphi)或者重载的操作符(C++Builder)形成新的画笔和画刷，大大简化了一般的GDI+编程代码，C++Builder的定义为：
static TGpPens Pens;
static TGpBrushs Brushs;
而Delphi则定义为：
function Pens: TPens;
function Brushs: TBrushs;
      你可能注意到上面的类型说明中Delphi和C++Builder类的名称不一样，前者为TGpPens和TGpBrushs，而后者直接写为TPens和TBrushs，这是本人写代码时的一点疏忽，不过对写代码没任何影响。
      有关GDI+与VCL的话题就说到这里，下面用Delphi和C++Builder以一个简单相同的例子程序作为本文的结尾。
      Delphi代码：
unit main;

interface

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

type
  TMainForm =
class(TForm)
BitBtn1: TBitBtn;
CbColor: TComboBox;
procedure FormPaint(Sender: TObject);
procedure CbColorDrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
procedure FormCreate(Sender: TObject);
procedure CbColorChange(Sender: TObject);
  private
{ Private declarations }
procedure GetKnownColorStr(const s: string);
  public
{ Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Gdiplus;

{$R *.dfm}

procedure TMainForm.CbColorChange(Sender: TObject);
begin
  Invalidate;
end;

procedure TMainForm.CbColorDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  g: TGpGraphics;
  r: TGpRect;
begin
  g := TGpGraphics.Create(CbColor.Canvas.Handle);
  try
CbColor.Canvas.FillRect(Windows.TRect(Rect));
r := GpRect(Rect.Left, Rect.Top, CbColor.ItemHeight, CbColor.ItemHeight -
4);
OffSet(r, 2, 2);
g.FillRectangle(Brushs[StringToARGB(CbColor.Items[Index])], r);
g.DrawRectangle(Pens.Black, r);
CbColor.Canvas.TextOut(r.X + r.Width +
5, r.Y, CbColor.Items[Index]);
  finally
g.Free;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  GetARGBValues(GetKnownColorStr);
  CbColor.ItemIndex :=
0;
end;

procedure TMainForm.FormPaint(Sender: TObject);
const
  QualityStr: array[0..4] of string
=
('Default', 'HighSpeed', 'HighQuality', 'GammaCorrected', 'AssumeLinear');
  Alphas: array[0..3] of Byte = (255, 128, 64, 32);
var
  g : TGpGraphics;
  font: TGpFont;
  kc, bc: TARGB;
  i, j: Integer;
begin
  // 建立与窗口关联的Graphics对象，使用Handle建立在D7中效果很好，可2007不停闪烁
//  g := TGpGraphics.Create(Handle, False);
  g := TGpGraphics.Create(Canvas.Handle);
  // 建立与本窗口字体关联的Gdiplus字体对象，以下3句都可建立，
  // 但是第三句显示有点不一样，可能没包括字符集的信息
  font := TGpFont.Create(Canvas.Handle);
//  font := TGpFont.Create(Canvas.Handle, Self.Font.Handle);
//  font := TGpFont.Create(Self.Font.Name, Self.Font.Size, Self.Font.Style);
  kc := StringToARGB(CbColor.Items[CbColor.ItemIndex]);
  if (kc and $808080) = $808080 then bc := kcBlack
  else bc := kcAliceBlue;
  // 以下使用内建的Pens和Brushs作图，也可分别使用TGpPen和TGpBrush建立
  g.DrawLine(Pens.Brown, 120, 30, 659, 30);
  g.FillRectangle(Brushs[bc], 120, 38, 540, 200);
  // 显示纵标题

for i :=
0 to 4
do
g.DrawString(QualityStr, font, Brushs.Black, 4.0, i *
40
+
48);
  // 显示横标题

for i :=
0 to 3
do
g.DrawString('Alpha: '
+ IntToStr(Alphas), font, Brushs.Black, 130.0
+ i *
140, 8);
  g.DrawString('选择显示颜色', font, Brushs.Black, 4.0, 260.0);
  // 根据所选颜色和Alpha，用不同的合成品质画色块

for i :=
0 to 3
do
  begin
for j := Integer(Low(TCompositingQuality)) to Integer(High(TCompositingQuality)) do
begin
   g.CompositingQuality := TCompositingQuality(j);
   g.DrawLine(Pens[ARGB(Alphas, kc), 20],
               130
+ i *
140, j *
40
+
58, 230
+ i *
140, j *
40
+
58);
end;
  end;
  font.Free;
  g.Free;
end;

procedure TMainForm.GetKnownColorStr(const s: string);
begin
  CbColor.Items.Add(s);
end;

end.

      C++ Builder代码：
//---------------------------------------------------------------------------

#ifndef mainH
#define mainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TBitBtn *BitBtn1;
TComboBox *CbColor;
void __fastcall CbColorDrawItem(TWinControl *Control, int Index, TRect &Rect,
      TOwnerDrawState State);
void __fastcall CbColorChange(TObject *Sender);
void __fastcall FormPaint(TObject *Sender);
private: // User declarations

void __fastcall GetKnownColorStr(const String s);
public:       // User declarations
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include "Gdiplus.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
GetARGBValues(GetKnownColorStr);
CbColor->ItemIndex =
0;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::GetKnownColorStr(const String s)
{
CbColor->Items->Add(s);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::CbColorDrawItem(TWinControl *Control, int Index,
   TRect &Rect, TOwnerDrawState State)
{
TGpGraphics *g =
new TGpGraphics(CbColor->Canvas->Handle);
try
{
      CbColor->Canvas->FillRect(Rect);
      TGpRect r(Rect.Left, Rect.Top, CbColor->ItemHeight, CbColor->ItemHeight -
4);
      r.Offset(2, 2);
      TGpColor c = TGpColor::StringToARGB(CbColor->Items->Strings[Index]);
      TGpBrush *b = Brushs[c];
      g->FillRectangle(b, r);
      g->DrawRectangle(Pens.Black, r);
      CbColor->Canvas->TextOutA(r.X + r.Width +
5, r.Y, CbColor->Items->Strings[Index]);
}
__finally
{
      delete g;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::CbColorChange(TObject *Sender)
{
Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormPaint(TObject *Sender)
{
const
static String QualityStr[5] =
      {"Default", "HighSpeed", "HighQuality", "GammaCorrected", "AssumeLinear"};
const
static Byte Alphas[4] = {255, 128, 64, 32};

// TGpGraphics *g = new TGpGraphics(Handle, false);
TGpGraphics *g =
new TGpGraphics(Canvas->Handle);
  // 建立与本窗口字体关联的Gdiplus字体对象，以下3句都可建立，
  // 但是第三句显示有点不一样，可能没包括字符集的信息
TGpFont *font =
new TGpFont(Canvas->Handle);
// TGpFont *font = new TGpFont(Canvas->Handle, Font->Handle);
// TGpFont *font = new TGpFont(Font->Name, Font->Size, Font->Style);

try
{
      TARGB kc = TGpColor::StringToARGB(CbColor->Items->Strings[CbColor->ItemIndex]);
      TARGB bc = (kc &
0x808080) ==
0x808080? kcBlack : kcAliceBlue;
      g->DrawLine(Pens.Brown, 120, 30, 659, 30);
      g->FillRectangle(Brushs[bc], 120, 38, 540, 200);
      for (int i =
0; i <
5; i ++)
         g->DrawString(QualityStr, font, Brushs.Black, 4.0, i *
40
+
48);
      for (int i =
0; i <
4; i ++)
         g->DrawString("Alpha: "
+ IntToStr(Alphas),
                        font, Brushs.Black, 130.0
+ i *
140, 8.0);
      g->DrawString("选择显示颜色", font, Brushs.Black, 4.0, 260.0);
      for (int i =
0; i <
4; i ++)
      {
         for (int j =
0; j <
5; j ++)
         {
            g->CompositingQuality = (TCompositingQuality)j;

            g->DrawLine(Pens(TGpColor(Alphas, kc), 20),
                        130
+ i *
140, j *
40
+
58, 230
+ i *
140, j *
40
+
58);
         }
      }
}
__finally
{
      delete font;
      delete g;
}
}
//---------------------------------------------------------------------------

运行结果：

      通过这个例子，可以进一步了解前面介绍的颜色转换函数的应用、Pens和Brushs的应用；同时也增加对GDI+颜色类型TARGB不同于TColor的感性认识，即对Alpha的了解以及不同的Alphi值在不同的合成品质下的差异；还可掌握TCanvas与GDI+混合使用自绘TComboBox选项的技巧。

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1880484

[收藏到我的网摘] [发送Trackback]  阿发伯发表于 2007年11月12日 15:35:00

特别推荐：想在这里投放广告？点击查看详情

美女走光了只有程序员
程序员谈论程序员的视频节目就在CSDN视频频道 .net
非常4＋1大学生实训计划，首付6800
4个月的全套Java技术体系的实训, 1个月的企业大型真实项目的实战开发。 .net
美女：Don't touch……别碰！
范伟：你这个银太可笑了,咋的?你能骑,我都不能摸？ .net
你离编程高手还有多远？
聪明的程序员知道在高手那学经验走捷径看技术图书，就上CSDN读书频道 .net
UCML-领先的B/S应用快速开发工具
基于组件重用和应用框架重用，支持.NET体系第一个面向框架的web开发工具 .net

上一篇: Delphi版的线性回归分析 | 下一篇: C++老代码 -- DBF数据文件操作类DBFile

评论#
12rain[img][/img]的个人信息
[img][/img]
[url=\]我的博客[/url] | [url=\]我的空间[/url]
[url=\]2007年度中国优秀共享软件 - 电脑报[/url]
[url=\]BDB 2007版本计划 - 加入Sybase支持[/url]
[url=\]BDB 2007 - 如何注册/优惠/免费注册[/url]
[url=\]添加好友[/url] | [url=\]发消息[/url]

"}'> 12rain 发表于2007-11-16 13:23:55  IP: 222.76.83.*

不错，感谢分享。
支持一下。

#
wewaa[img][/img]的个人信息
[img][/img]
[url=\]我的博客[/url] | [url=\]我的空间[/url]
[url=\]SQLSERVER2000以前的某个程序安装已在安装计算机上创建挂起的文件操作解决办法[/url]
[url=\]徐志摩[/url]
[url=\]解决MySQL数据库中文模糊检索问题[/url]
[url=\]添加好友[/url] | [url=\]发消息[/url]

"}'> wewaa 发表于2007-11-29 09:49:00  IP: 221.11.20.*

博主对GDI+非常熟悉,这段时间我正在研究,请加我msn:wanwd001@hotmail.com有些问题要请教.

添加新评论

大名 Please enter your name
网址

校验码：检验码无效! 看不清,换一张

评论  Please enter a comment

登录

November 2007

日

一

二

三

四

五

六

公告

我的简历

您还没有启用开放简历的功能，如果您想即刻享用，请访问CSDN人才频道

订阅博客

文章

其它 (RSS)

收藏相册

毛治宇三周岁

存档

TOP

kevor 熊法师 UID: 7176 头衔: 小虾精华: 0 积分: 657 帖子: 867 威望: 657 点熊币: 0 个贡献值: 10 点警告石: 0 颗阅读权限: 30 注册: 2007-9-10 状态: 发短消息加为好友	沙发大中小发表于 2007-12-21 19:02 只看该作者老大复制别人的也不用广告也拉近来吧..!!-_-!!
UID 7176 帖子 867 精华 0 积分 657 阅读权限 30 性别男在线时间 841 小时注册时间 2007-9-10 最后登录 2008-8-30 查看详细资料	TOP

本版最新回复

‹‹ 上一主题 | 下一主题 ››

kevor 熊法师 UID: 7176 头衔: 小虾精华: 0 积分: 657 帖子: 867 威望: 657 点熊币: 0 个贡献值: 10 点警告石: 0 颗阅读权限: 30 注册: 2007-9-10 状态: 发短消息加为好友	沙发大中小发表于 2007-12-21 19:02 只看该作者老大复制别人的也不用广告也拉近来吧..!!-_-!!
UID 7176 帖子 867 精华 0 积分 657 阅读权限 30 性别男在线时间 841 小时注册时间 2007-9-10 最后登录 2008-8-30 查看详细资料	TOP

GDI+ demo

GDI+ demo

本版最新回复

今日热门主题