Gdi+

博客导读

Windows编程|学习Message|多线程编程|内存管理|内存函数|钩子函数|初学汇编|算法与数据结构|资源文件|光标相关函数|WinAPI字符及字符串函数|再学GDI+|用GDI操作EMF文件|Delphi
涂孟超·2014-09-26 15:00

GDI+ 学习记录(4): 画笔对齐

//笔对齐 var g:TGPGraphics; p:TGPPen; sb:TGPSolidBrush; rect:TGPRect; begin g:=TGPGraphics.Create(Canvas.Handle); p:=TGPPen.Create(MakeColor(255,255,0,0),5); sb:=TGPSolidBrush.Create(MakeColor(2
涂孟超·2014-09-26 15:00

再学 GDI+[53]: 路径 - SetFillMode

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls; type TForm1=class(TForm) RadioGroup1:TRadioGroup; proc
涂孟超·2014-09-26 15:00

再学 GDI+[57]: 路径 - Widen

路径的Widen方法可以把路径中的线,根据指定画笔的宽度与样式,转换为一个范围(有点类似区域);但转换后再描绘路径就只能使用FillPath而不是DrawPath了.本例没有测试它的两个默认参数,因为前面已多次提到了.本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Grap
涂孟超·2014-09-26 15:00

GDI+ 学习记录(23): 输出文本

//在矩形范围中显示文本 var g:TGPGraphics; fontFamily:TGPFontFamily; font:TGPFont; rectF:TGPRectF; p:TGPPen; sb:TGPSolidBrush; str:WideString; begin g:=TGPGraphics.Create(Canvas.Handle); fontFamily:=T
涂孟超·2014-09-26 15:00

GDI+ 学习记录(16): 贝塞尔曲线 - Bezier、Beziers

//画贝塞尔曲线 var g:TGPGraphics; p:TGPPen; begin g:=TGPGraphics.Create(Canvas.Handle); p:=TGPPen.Create(MakeColor(255,0,0),2); g.DrawBezier(p,11,11,88,333,99,0,222,111);{参数是画笔与4个点的坐标} p.Free;
涂孟超·2014-09-26 15:00

再学 GDI+[65]: 路径画刷(5) - SetGammaCorrection

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); end; var
涂孟超·2014-09-26 15:00

GDI+ 学习记录(14): 饼图 - Pie

//饼图描边与填充 var g:TGPGraphics; p:TGPPen; sb:TGPSolidBrush; begin g:=TGPGraphics.Create(Canvas.Handle); sb:=TGPSolidBrush.Create(MakeColor(255,255,255)); p:=TGPPen.Create(MakeColor(255,0,0),8);
涂孟超·2014-09-26 15:00

GDI+ 学习记录(11): 路径渐变画刷 - PathGradientBrush

//路径渐变画刷 var g:TGPGraphics; path:TGPGraphicsPath; pb:TGPPathGradientBrush;{声明渐变画刷} num:Integer; const colors:array[0..0]ofTGPColor=(aclAqua); begin g:=TGPGraphics.Create(Canvas.Handle); path
涂孟超·2014-09-26 15:00

如何用 GDI+ 高质量地缩放图片 - 回复 "程序牛" 的问题

问题来源:http://www.cnblogs.com/del/archive/2010/01/07/1641084.html#1742127程序使用了GDI+的新接口:http://www.cnblogs.com
涂孟超·2014-09-26 15:00

GDI+ 学习记录(9): 纹理画刷 - TextureBrush

//纹理画刷 var g:TGPGraphics; img:TGPImage; tb:TGPTextureBrush; begin g:=TGPGraphics.Create(Canvas.Handle); img:=TGPImage.Create('c:\temp\small.jpg'); tb:=TGPTextureBrush.Create(img); g.FillEll
涂孟超·2014-09-26 15:00

再学 GDI+[15]: GDIPAPI 单元提供的 Make 及 Color 系列函数

functionMakePoint(X,Y:Integer):TGPPoint;overload; functionMakePoint(X,Y:Single):TGPPointF;overload; functionMakeSize(Width,Height:Integer):TGPSize;overload; functionMakeSize(Width,Height:Single):
涂孟超·2014-09-26 15:00

再学 GDI+[40]: 文本输出 - 选择画刷

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls,CheckLst; type TForm1=class(TForm) RadioGroup1:TRadioGro
涂孟超·2014-09-26 15:00

再学 GDI+[24]: TGPLinearGradientBrush - 之三

TGPLinearGradientBrush.Create( constpoint1,point2:TGPPoint;{线性渐变起始点与终止点} color1,color2:TGPColor{线性渐变起始色与终止色} ); TGPLinearGradientBrush.Create( constpoint1,point2:TGPPointF; color1,color2:TGPCo
涂孟超·2014-09-26 15:00

再学 GDI+[102]: TGPImage(22) - 获取所有解码器的详细信息

本例运行结果:Clsid:{557CF400-1A04-11D3-9A73-0000F81EF32E} FormatID:{B96B3CAB-0728-11D3-9D7B-0000F81EF32E} CodecName:Built-inBMPCodec DllName: FormatDescription:BMP FilenameExtension:*.BMP;*.DIB;*.RLE
涂孟超·2014-09-26 15:00

再学 GDI+[77]: 区域(6) - GetRegionScans - 获取区域中的所有矩形

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); pr
涂孟超·2014-09-26 15:00

再学 GDI+[21]: TGPTextureBrush 与 TGPMatrix

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,ComCtrls,StdCtrls,ExtCtrls; type TForm1=class(TForm) Panel1:TPanel; Butto
涂孟超·2014-09-26 15:00

GDI+ 学习记录(10): 线性渐变画刷 - LinearGradientBrush

//线性渐变画刷 var g:TGPGraphics; lb:TGPLinearGradientBrush; rect:TGPRect; begin g:=TGPGraphics.Create(Canvas.Handle); rect:=MakeRect(11,11,222,111); lb:=TGPLinearGradientBrush.Create(rect,aclBlue,a
涂孟超·2014-09-26 15:00

再学 GDI+[91]: TGPImage(11) - 转灰度图像

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) CheckBox1:TCheckBox; procedureFormCrea
涂孟超·2014-09-26 15:00

再学 GDI+[11]: DrawCurve - 绘制曲线

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ComCtrls,ExtCtrls; type TForm1=class(TForm) Button1:TButton; Tra
涂孟超·2014-09-26 15:00

再学 GDI+[50]: 路径 - GetPathPoints、GetPathTypes、TPathData、GetPathData

这个例子有错误!点的类型很多时候不是单一的;譬如某个点可能同时是子路径结束点、曲线点、标记点,此时类型值就是三种类型的复合值.遗憾的是做这个例子时,我还不知道...放在这里吧,留个纪念,记下曾经的幼稚!本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Con
涂孟超·2014-09-26 15:00

再学 GDI+[13]: DrawBezier - 绘制贝塞尔线

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); procedureFo
涂孟超·2014-09-26 15:00

GDI+ 学习记录(31): 图像颜色变换(TGPImageAttributes)

//正常显示图片,没有变换 usesGDIPAPI,GDIPOBJ; procedureTForm1.FormPaint(Sender:TObject); var g:TGPGraphics; img:TGPImage; begin g:=TGPGraphics.Create(Canvas.Handle); img:=TGPImage.Create('c:\temp\test.
涂孟超·2014-09-26 15:00

再学 GDI+[86]: TGPImage(6) - 拖动图像

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject); procedureF
涂孟超·2014-09-26 15:00

再学 GDI+[37]: TGPPen - TGPCustomLineCap、SetCustomStartCap、SetCustomEndCap

GDI+可以自定义线帽,本例定义的起始线帽是一个小矩形、终止线帽是一个小三角形.本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,
涂孟超·2014-09-26 15:00

再学 GDI+[64]: 路径画刷(4) - 还是 SetCenterColor、SetSurroundColors

在本例中没有指定CenterColor,将默认白色;SurroundColors原来是对应路径中的点(但按下面的做法在椭圆里不灵).本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TFo
涂孟超·2014-09-26 15:00

GDI+ 学习记录(27): Bitmap

//用Bitmap显示图像 var g:TGPGraphics; bit:TGPBitmap; begin g:=TGPGraphics.Create(Canvas.Handle); bit:=TGPBitmap.Create('c:\temp\x.jpg'); g.DrawImage(bit,11,11);{默认大小竟然和1:1不一样,是不是分辨率的问题?} g.DrawIm
涂孟超·2014-09-26 15:00

博客导读(09.3.21)

Windows编程|学习Message|多线程编程|内存管理|内存函数|钩子函数|初学汇编|算法与数据结构|资源文件|光标相关函数|WinAPI字符及字符串函数|再学GDI+|用GDI操作EMF文件|Delphi
涂孟超·2014-09-26 15:00

再学 GDI+[28]: TGPPen - 自定义画笔的虚线样式 - SetDashPattern

自定义的虚线样式依赖与一个数组,数组的元素分别代表虚线中线与间的长度,数组大小好像没有限制;本例使用了六个元素的数组,也就是表示虚线有三个线段和和三个间隔构成.本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs
涂孟超·2014-09-26 15:00

再学 GDI+[34]: TGPPen - 画笔的缩放变换 - ScaleTransform

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ComCtrls; type TForm1=class(TForm) TrackBar1:TTrackBar; TrackBar
涂孟超·2014-09-26 15:00

再学 GDI+[84]: TGPImage(4) - 把图像显示在指定的矩形中

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); procedureFo
涂孟超·2014-09-26 15:00

GDI+ 学习记录(8): 阴影画刷 - HatchBrush

//阴影画刷 var g:TGPGraphics; hb:TGPHatchBrush; begin g:=TGPGraphics.Create(Canvas.Handle); hb:=TGPHatchBrush.Create(HatchStyleHorizontal,aclRed,aclYellow); {参数1是阴影样式;参数2是前景色;参数3是背景色,参数3可选,默认黑色}
涂孟超·2014-09-26 15:00

再学 GDI+[58]: 路径 - 保存与读取路径数据

本例演示了把路径中的数据保存到一个文本文件,然后再读出的过程.本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:
涂孟超·2014-09-26 15:00

再学 GDI+[55]: 路径 - Flatten

通过路径的Flatten方法可以把路径中的曲线拉直,拉直到什么程度是由它的第二个参数(默认0.25)决定的;它的第一个参数又是一个矩阵变换,也就是说Flatten可以同时进行矩阵变换,本例没有测试它,其详情参见:http://www.cnblogs.com/del/archive/2008/06/20/1226293.html本例效果图:代码文件:unitUnit1; interface
涂孟超·2014-09-26 15:00

在 StringGrid 上画线时, 使用 GDI+ 以消除锯齿 - 回复 "gsjn_8888_6666" 的问题

问题来源:http://www.cnblogs.com/del/archive/2009/12/24/1631729.html#2097194GDI+接口:http://www.cnblogs.com/del/archive/2009/12/11/1621790.html示例代码:usesGdiPlus; procedureTForm1.StringGrid1DrawCell(Sender:
涂孟超·2014-09-26 15:00

再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) ListBox1:TListBox; procedureFormPaint(
涂孟超·2014-09-26 15:00

再学 GDI+[14]: DrawBeziers - 绘制一组贝塞尔线

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); procedureFo
涂孟超·2014-09-26 15:00

GDI+ 学习记录(5): 复合画笔

//复合画笔 var g:TGPGraphics; p:TGPPen; arr:array[0..9]ofSingle;{10个元素可以分成5条线,每条线需要起点和终点} begin g:=TGPGraphics.Create(Canvas.Handle); p:=TGPPen.Create(MakeColor(255,255,0,0),100);{笔宽定为100好算帐} ar
涂孟超·2014-09-26 15:00

再学 GDI+[60]: TGPGraphics.SetSmoothingMode - 绘图质量

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) ListBox1:TListBox; procedureFormCreate
涂孟超·2014-09-26 15:00

再学 GDI+[82]: TGPImage(2) - GetThumbnailImage - 略缩图

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); end; var
涂孟超·2014-09-26 15:00

再学 GDI+[83]: TGPImage(3) - 平行四边形变换

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); procedureFo
涂孟超·2014-09-26 15:00

再学 GDI+[94]: TGPImage(14) - 增减图像的红、绿、蓝三色的成分

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ComCtrls; type TForm1=class(TForm) TrackBar1:TTrackBar; TrackBar
涂孟超·2014-09-26 15:00

再学 GDI+[4]: DrawEllipse - 绘制椭圆

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject); procedureFo
涂孟超·2014-09-26 15:00

再学 GDI+[51]: 路径 - IsVisible、IsOutlineVisible

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject); procedureF
涂孟超·2014-09-26 15:00

学绘秀曲线图

偶然从http://blog.csdn.net/hero82748274/archive/2010/02/10/5304386.aspx看到了秀曲线图,就用GDI模仿了一下;如果用GDI+绘制,图形会细腻很多
涂孟超·2014-09-26 15:00

再学 GDI+[47]: 路径 - CloseFigure

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) CheckBox1:TCheckBox; CheckBox2:TCheckB
涂孟超·2014-09-26 15:00

GDI+ 学习记录(12): 矩形 - Rectangle、Rectangles

//填充与描边 var g:TGPGraphics; p:TGPPen; sb:TGPSolidBrush; begin g:=TGPGraphics.Create(Canvas.Handle); sb:=TGPSolidBrush.Create(MakeColor(255,255,255)); p:=TGPPen.Create(MakeColor(255,0,0),6);
涂孟超·2014-09-26 15:00

再学 GDI+[101]: TGPImage(21) - 获取所有编码器的详细信息

本例运行结果:Clsid:{557CF400-1A04-11D3-9A73-0000F81EF32E} FormatID:{B96B3CAB-0728-11D3-9D7B-0000F81EF32E} CodecName:Built-inBMPCodec DllName: FormatDescription:BMP FilenameExtension:*.BMP;*.DIB;*.RLE
涂孟超·2014-09-26 15:00

再学 GDI+[80]: 区域(9) - GetHRGN - 转为 GDI 的区域句柄

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ComCtrls; type TForm1=class(TForm) procedureFormPaint(Sender:TObj
涂孟超·2014-09-26 15:00

再学 GDI+[10]: DrawClosedCurve - 绘制闭合曲线

本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ComCtrls; type TForm1=class(TForm) Button1:TButton; TrackBar1:TT
涂孟超·2014-09-26 15:00
上一页 28 29 30 31 32 33 34 35 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他