GDI+ 学习记录(31) 图像颜色变换(TGPImageAttributes)
摘要：//正常显示图片, 没有变换var g:TGPGraphics; img:TGPImage;begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); img:=TGPImage.Create('d:\mm.png');{测试文件要存在} g.DrawImage(img,10,10,img.GetWidth,img.Ge...
阅读全文
posted @
2010-12-08 21:58
巅枫
阅读(911)
推荐(0) 编辑
GDI+ 学习记录(30) MetaFile 文件操作
摘要：WMF:Windows MetaFile (windows 图元文件) “Windows 图元文件”是 16 位图元文件格式，可以同时包含矢量信息和位图信息。它针对 Windows 操作系统进行了优化。EMF:Enhancement MetaFile (增强型图元文件) “增强型图元文件”是 32 位格式，可以同时包含矢量信息和位图信息。此格式是对“Windows 图元文件格式”的改进，包含了一些扩展功能，例如，下面的功能：内置的缩放比例信息 · 与文件一起保存的内置说明 调色板和设备独立性方面的改进EMF 格式是可扩展的格式，这意味着程序员可以修改原始规范以添加功能或满足特定的需要
阅读全文
posted @
2010-12-08 21:51
巅枫
阅读(1076)
推荐(0) 编辑
GDI+ 学习记录(29) 区域 - Region
摘要：//创建并填充区域var g:TGPGraphics; sb:TGPSolidBrush; region:TGPRegion;{定义区域}begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); sb:=TGPSolidBrush.Create(aclGold); region:=TGPRegion.Create(M...
阅读全文
posted @
2010-12-08 21:38
巅枫
阅读(1620)
推荐(0) 编辑
GDI+ 学习记录(28) 图像颜色的数据格式 - PixelFormat
摘要：PixelFormat: (指定图像中每个像素的颜色数据的格式)Delphi微软说明PixelAlphaAlpha像素数据包含没有进行过自左乘的 alpha 值。PixelCanonicalCanonical默认像素格式，每像素 32 位。此格式指定 24 位颜色深度和一个 8 位 alpha 通道。PixelDontCareDontCare没有指定像素格式。PixelExtendedExtended保留。PixelFormat16bppArgb1555Format16bppArgb1555像素格式为每像素 16 位。该颜色信息指定 32,768 种色调，其中 5 位为红色，5 位为绿色，5
阅读全文
posted @
2010-12-08 21:24
巅枫
阅读(1722)
推荐(0) 编辑
GDI+ 学习记录(27) Bitmap
摘要：//用 Bitmap 显示图像var g:TGPGraphics; bit:TGPBitmap;begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); bit:=TGPBitmap.Create('d:\mm.jpg'); g.DrawImage(bit,11,11); {没有指定宽高，默认大小可能跟分辨率有关} ...
阅读全文
posted @
2010-12-08 21:18
巅枫
阅读(1884)
推荐(0) 编辑
GDI+ 学习记录(26) 显示图像 - Image
摘要：缩放或旋转图像时的算法选项:Delphi微软说明InterpolationModeBicubicBicubic指定双三次插值法。不进行预筛选。将图像收缩为原始大小的 25% 以下时，此模式不适用。InterpolationModeBilinearBilinear指定双线性插值法。不进行预筛选。将图像收缩为原始大小的 50% 以下时，此模式不适用。InterpolationModeDefaultDefault指定默认模式。InterpolationModeHighHigh指定高质量插值法。InterpolationModeHighQualityBicubicHighQualityBicubic指
阅读全文
posted @
2010-12-08 20:51
巅枫
阅读(1807)
推荐(0) 编辑
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...
阅读全文
posted @
2010-12-08 20:10
巅枫
阅读(631)
推荐(0) 编辑
GDI+ 学习记录(24) 输出文本3
摘要：//获取字体信息var fontFamily: TGPFontFamily; font: TGPFont;begin fontFamily := TGPFontFamily.Create('宋体'); font := TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPixel); ShowMessage(FloatToStr(fon...
阅读全文
posted @
2010-12-08 20:02
巅枫
阅读(568)
推荐(0) 编辑
GDI+ 学习记录(23) 输出文本2
摘要：文本对齐方式:Delphi微软说明StringAlignmentCenterCenter指定文本在布局矩形中居中对齐。StringAlignmentFarFar指定文本远离布局矩形的原点位置对齐。在左到右布局中，远端位置是右。在右到左布局中，远端位置是左。StringAlignmentNearNear指定文本靠近布局对齐。在左到右布局中，近端位置是左。在右到左布局中，近端位置是右。文本格式化标志:Delphi微软说明StringFormatFlagsDirectionRightToLeftDirectionRightToLeft按从右向左的顺序显示文本。StringFormatFlagsDir
阅读全文
posted @
2010-12-08 19:52
巅枫
阅读(1813)
推荐(0) 编辑
GDI+ 学习记录(22) 输出文本1
摘要：文本样式类型表:Delphi微软说明FontStyleBoldBold加粗文本。FontStyleItalicItalic倾斜文本。FontStyleRegularRegular普通文本。FontStyleStrikeoutStrikeout中间有直线通过的文本。FontStyleUnderlineUnderline带下划线的文本。坐标单位类型表:Delphi微软说明UnitDisplayDisplay指定显示设备的度量单位。通常，视频显示使用的单位是像素；打印机使用的单位是 1/100 英寸。UnitDocumentDocument将文档单位（1/300 英寸）指定为度量单位。UnitInc
阅读全文
posted @
2010-12-08 19:34
巅枫
阅读(854)
推荐(0) 编辑
GDI+ 学习记录(21) 颜色
摘要：//颜色透明度var g: TGPGraphics; sb: TGPSolidBrush;begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(128,255,0,0)); {128表示半透明} g.FillRectangle(sb,10,10,100,100); sb.Fr...
阅读全文
posted @
2010-12-08 18:59
巅枫
阅读(528)
推荐(0) 编辑
GDI+ 学习记录(19) 路径 - Path
摘要：路径中的拐点结合样式:Delphi微软说明LineJoinBevelBevel指定成斜角的联接。这将产生一个斜角。LineJoinMiterMiter指定斜联接。这将产生一个锐角或切除角，具体取决于斜联接的长度是否超过斜联接限制。LineJoinMiterClippedMiterClipped指定斜联接。这将产生一个锐角或斜角，具体取决于斜联接的长度是否超过斜联接限制。LineJoinRoundRound指定圆形联接。这将在两条线之间产生平滑的圆弧。
阅读全文
posted @
2010-12-08 18:37
巅枫
阅读(953)
推荐(0) 编辑
GDI+ 学习记录(18) 闭合曲线 - ClosedCurve
摘要：//闭合曲线var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint;begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPe...
阅读全文
posted @
2010-12-08 18:32
巅枫
阅读(492)
推荐(0) 编辑
GDI+ 学习记录(17) 曲线 - Curve
摘要：//画曲线var g: TGPGraphics; p: TGPPen; pts: array[0..4] of TGPPoint;begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),4); pts[0].X := 11; pts[0].Y := 11; pts[1]....
阅读全文
posted @
2010-12-08 18:28
巅枫
阅读(621)
推荐(0) 编辑
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.Fr...
阅读全文
posted @
2010-12-08 17:50
巅枫
阅读(748)
推荐(0) 编辑
GDI+ 学习记录(15) 多边形 - Polygon
摘要：var g:TGPGraphics; p:TGPPen; sb:TGPSolidBrush; pts:array[0..4] of TGPPoint;begin g:=TGPGraphics.Create(Canvas.Handle); g.Clear(aclWhite); p:=TGPPen.Create(aclRed,2); sb:=TGPSolidBrush.Create(a...
阅读全文
posted @
2010-12-08 17:41
巅枫
阅读(418)
推荐(0) 编辑
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),...
阅读全文
posted @
2010-12-08 17:34
巅枫
阅读(480)
推荐(0) 编辑
GDI+ 学习记录(13) 弧线 - Arc
摘要：//画弧线var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),2); g.DrawArc(p,11,32,300,200,0,90); {参数 2-5 是一个椭圆} p.SetColor(MakeColor(0,...
阅读全文
posted @
2010-12-08 17:22
巅枫
阅读(447)
推荐(0) 编辑
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)...
阅读全文
posted @
2010-12-08 17:19
巅枫
阅读(697)
推荐(0) 编辑
