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
巅枫
阅读(908)
推荐(0) 编辑
GDI+ 学习记录(30) MetaFile 文件操作
摘要:WMF:Windows MetaFile (windows 图元文件) “Windows 图元文件”是 16 位图元文件格式,可以同时包含矢量信息和位图信息。它针对 Windows 操作系统进行了优化。EMF:Enhancement MetaFile (增强型图元文件) “增强型图元文件”是 32 位格式,可以同时包含矢量信息和位图信息。此格式是对“Windows 图元文件格式”的改进,包含了一些扩展功能,例如,下面的功能:内置的缩放比例信息 · 与文件一起保存的内置说明 调色板和设备独立性方面的改进EMF 格式是可扩展的格式,这意味着程序员可以修改原始规范以添加功能或满足特定的需要
阅读全文
posted @
2010-12-08 21:51
巅枫
阅读(1054)
推荐(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
巅枫
阅读(1615)
推荐(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
巅枫
阅读(1721)
推荐(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
巅枫
阅读(1805)
推荐(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
巅枫
阅读(567)
推荐(0) 编辑
GDI+ 学习记录(23) 输出文本2
摘要:文本对齐方式:Delphi微软说明StringAlignmentCenterCenter指定文本在布局矩形中居中对齐。StringAlignmentFarFar指定文本远离布局矩形的原点位置对齐。在左到右布局中,远端位置是右。在右到左布局中,远端位置是左。StringAlignmentNearNear指定文本靠近布局对齐。在左到右布局中,近端位置是左。在右到左布局中,近端位置是右。文本格式化标志:Delphi微软说明StringFormatFlagsDirectionRightToLeftDirectionRightToLeft按从右向左的顺序显示文本。StringFormatFlagsDir
阅读全文
posted @
2010-12-08 19:52
巅枫
阅读(1809)
推荐(0) 编辑
GDI+ 学习记录(22) 输出文本1
摘要:文本样式类型表:Delphi微软说明FontStyleBoldBold加粗文本。FontStyleItalicItalic倾斜文本。FontStyleRegularRegular普通文本。FontStyleStrikeoutStrikeout中间有直线通过的文本。FontStyleUnderlineUnderline带下划线的文本。坐标单位类型表:Delphi微软说明UnitDisplayDisplay指定显示设备的度量单位。通常,视频显示使用的单位是像素;打印机使用的单位是 1/100 英寸。UnitDocumentDocument将文档单位(1/300 英寸)指定为度量单位。UnitInc
阅读全文
posted @
2010-12-08 19:34
巅枫
阅读(850)
推荐(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
巅枫
阅读(952)
推荐(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
巅枫
阅读(491)
推荐(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
巅枫
阅读(617)
推荐(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
巅枫
阅读(740)
推荐(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
巅枫
阅读(479)
推荐(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
巅枫
阅读(693)
推荐(0) 编辑