再学 GDI+[6] DrawPie - 绘制饼形[转]
摘要：unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Spin, ExtCtrls;typeTForm1 = class(...
阅读全文
再学 GDI+[5] DrawArc - 绘制弧线[转]
摘要：unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Spin, ExtCtrls;typeTForm1 = class(...
阅读全文
再学 GDI+[4]: DrawEllipse - 绘制椭圆[转]
摘要：unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedureFormMouseDo...
阅读全文
再学 GDI+[3]: DrawRectangle - 绘制矩形[转]
摘要：unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedureFormPaint(S...
阅读全文
再学 GDI+[2]: DrawLine - 绘制直线[转]
摘要：unitUnit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedureFormPaint(S...
阅读全文
GDI+ 学习记录(31) 图像颜色变换(TGPImageAttributes)[转]
摘要：//正常显示图片, 没有变换varg:TGPGraphics;img:TGPImage;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);img:=TGPImage.Create('d:\mm.png');{测试文件要存在}g.D...
阅读全文
GDI+ 学习记录(29) 区域 - Region[转]
摘要：//创建并填充区域varg:TGPGraphics;sb:TGPSolidBrush;region:TGPRegion;{定义区域}beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);sb:=TGPSolidBrush.Create...
阅读全文
GDI+ 学习记录(30) MetaFile 文件操作[转]
摘要：//显示 MetaFile (图元文件)varg:TGPGraphics;img:TGPImage;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);img:=TGPImage.Create('d:\y.emf');{文件要存在}...
阅读全文
GDI+ 学习记录(28) 图像颜色的数据格式 - PixelFormat[转]
摘要：//指定位图颜色varg,gbit:TGPGraphics;bit1,bit2:TGPBitmap;sb:TGPSolidBrush;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);sb:=TGPSolidBrush.Creat...
阅读全文
GDI+ 学习记录(27) Bitmap[转]
摘要：//用 Bitmap 显示图像varg:TGPGraphics;bit:TGPBitmap;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);bit:=TGPBitmap.Create('d:\mm.jpg');g.DrawIma...
阅读全文
GDI+ 学习记录(26) 显示图像 - Image[转]
摘要：//显示图像varg:TGPGraphics;img:TGPImage;beging:=TGPGraphics.Create(Canvas.Handle);g.Clear(aclWhite);img:=TGPImage.Create('d:\mm.jpg');g.DrawImage(img,10,1...
阅读全文
GDI+ 学习记录(25) 变换 - Transform[转]
摘要：//比例变化varg: TGPGraphics;p: TGPPen;rect: TGPRect;beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,255,0,0),0);rect := MakeR...
阅读全文
GDI+ 学习记录(24) 输出文本3[转]
摘要：//获取字体信息varfontFamily: TGPFontFamily;font: TGPFont;beginfontFamily := TGPFontFamily.Create('宋体');font := TGPFont.Create(fontFamily, 9, FontStyleRegula...
阅读全文
GDI+ 学习记录(23) 输出文本2[转]
摘要：varg:TGPGraphics;sb:TGPSolidBrush;fontfamily:TGPFontFamily;font:TGPFont;rectf:TGPRectF;p:TGPPen;str:WideString;beging:=TGPGraphics.Create(Canvas.Handl...
阅读全文
GDI+ 学习记录(22) 输出文本1[转]
摘要：//输出文本varg: TGPGraphics;sb: TGPSolidBrush;fontFamily: TGPFontFamily;font: TGPFont;beging := TGPGraphics.Create(Canvas.Handle);sb := TGPSolidBrush.Crea...
阅读全文
GDI+ 学习记录(21) 颜色[转]
摘要：//颜色透明度varg: TGPGraphics;sb: TGPSolidBrush;beging := TGPGraphics.Create(Canvas.Handle);sb := TGPSolidBrush.Create(MakeColor(128,255,0,0)); {128表示半透明}g...
阅读全文
GDI+ 学习记录(20) 绘图质量[转]
摘要：//绘图质量varg: TGPGraphics;p: TGPPen;beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,0,0),2);g.SetSmoothingMode(SmoothingMod...
阅读全文
GDI+ 学习记录(18) 闭合曲线 - ClosedCurve[转]
摘要：//闭合曲线varg: TGPGraphics;p: TGPPen;sb: TGPSolidBrush;pts: array[0..4] ofTGPPoint;beging := TGPGraphics.Create(Canvas.Handle);sb := TGPSolidBrush.Create...
阅读全文
GDI+ 学习记录(19) 路径 - Path[转]
摘要：//绘制与填充路径varg: TGPGraphics;path: TGPGraphicsPath;p: TGPPen;sb: TGPSolidBrush;beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(...
阅读全文
GDI+ 学习记录(17) 曲线 - Curve[转]
摘要：//画曲线varg: TGPGraphics;p: TGPPen;pts: array[0..4] ofTGPPoint;beging := TGPGraphics.Create(Canvas.Handle);p := TGPPen.Create(MakeColor(255,0,0),4);pts[...
阅读全文
浙公网安备 33010602011771号