Gdi+

FireMonkey 绘图(1)

FMX的Canvas在不同的系统上会分别使用:WinVista、Win7:D2D(FMX.Canvas.D2D.pas)WinXP:GDI+(FMX.Canvas.GDIP.pas)Mac系列:CoreGraphics
涂孟超·2014-09-26 15:00

GDI+ 学习记录(18): 闭合曲线 - ClosedCurve

//闭合曲线 var g:TGPGraphics; p:TGPPen; sb:TGPSolidBrush; pts:array[0..4]ofTGPPoint; begin g:=TGPGraphics.Create(Canvas.Handle); sb:=TGPSolidBrush.Create(MakeColor(255,255,255)); p:=TGPPen.Create
涂孟超·2014-09-26 15:00

GDI+ 学习记录(28): 图像颜色的数据格式 - PixelFormat

//指定位图颜色 var g,gbit:TGPGraphics; bit1,bit2:TGPBitmap; sb:TGPSolidBrush; begin //Self.Color:=clWhite; g:=TGPGraphics.Create(Canvas.Handle); sb:=TGPSolidBrush.Create(MakeColor(255,0,0));{画刷为红色}
涂孟超·2014-09-26 15:00

GDI+ 学习记录(30): MetaFile 文件操作

//显示MetaFile文件 var g:TGPGraphics; img:TGPImage; begin g:=TGPGraphics.Create(Canvas.Handle); img:=TGPImage.Create('c:\temp\x.emf');{文件要存在} g.DrawImage(img,11,11); img.Free; g.Free; end;
涂孟超·2014-09-26 15:00

GDI+ 学习记录(25): 变换 - Transform

//比例变化 var g:TGPGraphics; p:TGPPen; rect:TGPRect; begin g:=TGPGraphics.Create(Canvas.Handle); p:=TGPPen.Create(MakeColor(255,255,0,0),0); rect:=MakeRect(10,10,100,100); g.DrawRectangle(p,re
涂孟超·2014-09-26 15:00

GDI+ 学习记录(26): 显示图像 - Image

//显示图像 var g:TGPGraphics; img:TGPImage; begin g:=TGPGraphics.Create(Self.Canvas.Handle); img:=TGPImage.Create('c:\temp\x.jpg'); g.DrawImage(img,10,10);{参数2、3是坐标} img.Free; g.Free; end;
涂孟超·2014-09-26 15:00

再学 GDI+[26]: TGPPen - 画笔对齐 - SetAlignment

本例效果图:代码文件: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+[18]: FillEllipse、TGPHatchBrush(阴影画刷)

TGPHatchBrush.Create( hatchStyle:THatchStyle;{阴影样式,见下表} foreColor:TGPColor;{前景色} backColor:TGPColor=aclBlack{背景色,是可选值,默认是黑色} ); 本例效果图:代码文件:unitUnit1; interface uses Windows,Messa
涂孟超·2014-09-26 15:00

GDI+ 学习记录(2): 画笔线帽 - Cap

//线帽 var g:TGPGraphics; p:TGPPen; begin g:=TGPGraphics.Create(Canvas.Handle); p:=TGPPen.Create(aclBlue,8); p.SetStartCap(LineCapArrowAnchor);{起点线帽} p.SetEndCap(LineCapRoundAnchor);{终点线帽}
涂孟超·2014-09-26 15:00

再学 GDI+[74]: 区域(3) - IsVisible

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

再学 GDI+[97]: TGPImage(17) - 获取 GDI+ 所支持的可编码、可解码的图像格式

其实这和TGPImage是没有关系的.本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Memo1:TMemo; proced
涂孟超·2014-09-26 15:00

再学 GDI+[27]: TGPPen - 画笔样式 - SetDashStyle

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

如何在 GDI+ 中指定旋转中心 - 回复 "wuheng66888" 的问题

www.cnblogs.com/del/archive/2009/01/23/1017571.html#1437673本来wuheng66888需要的是输出旋转的文本,下面的例子只是转了一个矩形;因为GDI
涂孟超·2014-09-26 15:00

GDI+ 学习记录(6): 使用画刷建立画笔

//使用画刷建立画笔 var g:TGPGraphics; img:TGPImage; tb:TGPTextureBrush; p:TGPPen; begin g:=TGPGraphics.Create(Canvas.Handle); img:=TGPImage.Create('c:\temp\small.jpg'); tb:=TGPTextureBrush.Create(img
涂孟超·2014-09-26 15:00

再学 GDI+[76]: 区域(5) - GetDataSize、GetData

本来这个例子是要获取区域的详细信息的,但非常遗憾,这个版本的GDI+的头文件少定义了一个TRegionData类!
涂孟超·2014-09-26 15:00

再学 GDI+[23]: TGPLinearGradientBrush - 之二

TGPLinearGradientBrush.Create( rect:TGPRect;{变化范围} color1,color2:TGPColor;{起始色与终止色} angle:Single;{旋转角度} isAngleScalable:BOOL=FALSE{是否受TLinearGradientMode的影响,可选值,默认不受影响} ); TGPLinearGradientBru
涂孟超·2014-09-26 15:00

再学 GDI+[7]: DrawLines - 绘制一组直线

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

再学 GDI+[71]: 路径画刷(11) - RotateTransform、ScaleTransform 等变换

RotateTransform{旋转} ScaleTransform{缩放} TranslateTransform{平移} SetTransform{综合的矩阵变换} ResetTransform{取消变换} 本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,C
涂孟超·2014-09-26 15:00

再学 GDI+[81]: TGPImage(1) - 显示图像

已知GDI+可以支持的图像格式:BMP、JPEG、GIF、TIFF、PNG、ICO、WMF、EMFTGPGraphics.DrawImage函数有太多重载了,一起列在这吧:functionDrawImage
涂孟超·2014-09-26 15:00

再学 GDI+[43]: 文本输出 - 获取已安装的字体列表

这比用Screen.Fonts;获取麻烦一些.本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Memo1:TMemo; pr
涂孟超·2014-09-26 15:00

再学 GDI+[1]: 安装文件头

如果使用Delphi2009之后的版本,推荐使用:http://www.cnblogs.com/del/archive/2009/12/11/1621790.html.下面这些是以前用2007弄的.GDI
涂孟超·2014-09-26 15:00

再学 GDI+[5]: DrawArc - 绘制弧线

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

再学 GDI+[52]: 路径 - Reverse、Reset

本例效果图:代码文件: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+[103]: TGPImage(23) - 提取 GIF 动画的每一帧

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

再学 GDI+[87]: TGPImage(7) - 调整图像大小

本例效果图:代码文件: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+[35]: TGPPen - 虚线画笔位移 - SetDashOffset

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

再学 GDI+[88]: TGPImage(8) - 放大镜

本例效果图:代码文件: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+[39]: 文本输出 - 文本样式

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

一个用 GDI+ 给图片添加花边的例子 - 给 "sky123" 做的

按"sky123"的样图要求,花边必须是透空的,最好使用图元文件;本例没有做完保存功能,也没有实现整个图片的调整功能.因为有测试图片,给个源码下载吧:http://files.cnblogs.com/del/sky123.rar本例效果图:代码文件:unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes
涂孟超·2014-09-26 15:00

再学 GDI+[16]: GDI+ 的颜色常量表

颜色名称  颜色效果  颜色值aclAliceBlue$FFF0F8FFaclAntiqueWhite$FFFAEBD7aclAqua$FF00FFFFaclAquamarine$FF7FFFD4aclAzure$FFF0FFFFaclBeige$FFF5F5DCaclBisque$FFFFE4C4aclBlack$FF000000aclBlanchedAlmond$FFFFEBCDaclBlue
涂孟超·2014-09-26 15:00

再学 GDI+[36]: TGPPen - SetLineCap

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

再学 GDI+[2]: DrawLine - 绘制直线

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

终于, Delphi XE2 携带 GDI+ 库了

使用了较早的http://www.progdigy.comusesWinapi.GDIPAPI,Winapi.GDIPOBJ{,Winapi.GDIPUTIL}; procedureTForm1.FormPaint(Sender:TObject); var graphics:TGPGraphics; pen:TGPPen; begin graphics:=TGPGraphics.C
涂孟超·2014-09-26 15:00

再学 GDI+[17]: FillRectangle、ColorRefToARGB、TGPSolidBrush 和颜色透明度

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

再学 GDI+[62]: 路径画刷(2) - SetCenterPoint、GetCenterPoint

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

GDI+ 学习记录(15): 多边形 - Polygon

//多边形描边与填充 var g:TGPGraphics; p:TGPPen; sb:TGPSolidBrush; pts:array[0..4]ofTGPPoint; begin g:=TGPGraphics.Create(Canvas.Handle); sb:=TGPSolidBrush.Create(MakeColor(255,255,255)); p:=TGPPen.Cr
涂孟超·2014-09-26 15:00

GDI+ 学习记录(7): 实心画刷 - SolidBrush

//实心画刷 var g:TGPGraphics; sb:TGPSolidBrush; begin g:=TGPGraphics.Create(Canvas.Handle); sb:=TGPSolidBrush.Create(aclGreen);{参数是颜色} g.FillEllipse(sb,11,11,222,111); sb.Free; g.Free; end
涂孟超·2014-09-26 15:00

GdiPlus[6]: 五种画刷总览

GDI+有五种画刷:实心画刷:IGPSolidBrush阴影画刷:IGPHatchBrush纹理画刷:IGPTextureBrush线性渐变画刷:IGPLinearGradientBrush路径渐变画刷
涂孟超·2014-09-26 15:00

Direct2D (43) : IDWriteGdiInterop 接口

IDWriteGdiInterop接口的主要用途是它提供IDWriteBitmapRenderTarget留出了HDC接口，以与GDI、GDI+交互；另提供了LOGFONT结构与IDWriteFont、
涂孟超·2014-09-26 15:00

GDI+ 学习记录(19): 路径 - Path

//绘制与填充路径 var g:TGPGraphics; path:TGPGraphicsPath; p:TGPPen; sb:TGPSolidBrush; begin g:=TGPGraphics.Create(Canvas.Handle); p:=TGPPen.Create(MakeColor(128,255,0,0),4); sb:=TGPSolidBrush.Create
涂孟超·2014-09-26 15:00

再学 GDI+[56]: 路径 - Warp

通过路径的Warp方法可以让路径在一个范围内(四个点决定的范围)变换;第一个参数可以是3个点或4个点的数组,如果是3个的数组,那么第4个点将自动跟随一个平行四边形;第二个参数用来指定点数组的个数,本例就是通过这个参数控制了点的个数;第三个参数是一个矩形,这个矩形应该是路径的外接矩形,之后的参数都是可选的;第四个参数也是一个矩阵变换,因由专门的例子,这里没有尝试;第五个参数是TWarpMode(Wa
涂孟超·2014-09-26 15:00

再学 GDI+[29]: TGPPen - 自定义复合画笔 - SetCompoundArray

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

将图片转存为其它颜色格式(GDI+)

usesGdiPlus; procedureTForm1.Button1Click(Sender:TObject); var img:IGPImage; bit:IGPBitmap; g:IGPGraphics; begin img:=TGPImage.Create('c:\temp\01.png'); bit:=TGPBitmap.Create(img.Width,img.H
涂孟超·2014-09-26 15:00

再学 GDI+[75]: 区域(4) - 根据区域剪切画板

本例效果图:代码文件: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+[30]: TGPPen - 用画刷定义的画笔

本例效果图:代码文件: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+[78]: 区域(7) - Translate - 区域的平移变换

本例效果图:代码文件: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+ 学习记录(24): 输出文本

//获取字体信息 var fontFamily:TGPFontFamily; font:TGPFont; begin fontFamily:=TGPFontFamily.Create('宋体'); font:=TGPFont.Create(fontFamily,9,FontStyleRegular,UnitPixel); ShowMessage(FloatToStr(font.G
涂孟超·2014-09-26 15:00

再学 GDI+[100]: TGPImage(20) - 替换颜色

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

JSON 之 SuperObject(8): 关于乱码的几种情况 - 向 Henri Gourvest 大师报告

(Henri大师也是DSPack和GDI+头文件的作者;大师是法国人,竟能用中文给我回复,没想到!).
涂孟超·2014-09-26 15:00

GdiPlus[1]: 一个给 Delphi 提供的、新的 GDI+ 接口, 很好用!

尽管GDI+已经有近10年的历史(随Win2000推出),尽管DirectX如日中天,但在Windows7之前的版本下进行2D绘图还是离不开它,微软也没有停止对它的升级,随Vista的GDI版本是1.1
涂孟超·2014-09-26 15:00
上一页 29 30 31 32 33 34 35 36 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他