万一 - 博客园

2007年12月28日

摘要：此页已更新到: System 单元下的公用函数目录//绝对值: Absvar d: Real; v: Variant;begin d := Abs(-1.2); ShowMessage(FloatToStr(d)); {1.2} v := '-100'; ShowMessage(v); {-100; v 是变体类型无需转换} v := Abs(v); ShowMessage(v);... 阅读全文

posted @ 2007-12-28 14:57 万一阅读(5500) 评论(0) 推荐(0)

Math 中常用的数学函数

摘要： //整除与余数: DivMod const a = 11; b = 3; var x,y: Word; begin ShowMessage(IntToStr(a div b)); {整除得 3} ShowMessage(IntToStr(a mod b)); {余数 2} DivMod(a,b,x,y); ShowMessage(IntToStr(x)); {3} ... 阅读全文

posted @ 2007-12-28 13:08 万一阅读(6637) 评论(1) 推荐(0)

返回整数的四种情况

摘要： //返回整数的四种情况const a = 1.8; b = -1.8;begin {返回比值大的最小整数:} ShowMessage(IntToStr(Ceil(1.8)) + ',' + IntToStr(Ceil(-1.8))); {返回：2,-1} {返回比值小的最大整数:} ... 阅读全文

posted @ 2007-12-28 13:04 万一阅读(3910) 评论(4) 推荐(0)

2007年12月27日

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; ... 阅读全文

posted @ 2007-12-27 23:13 万一阅读(4265) 评论(9) 推荐(0)

GDI+ 学习记录(29): 区域 - Region

摘要： //创建并填充区域 var g: TGPGraphics; sb: TGPSolidBrush; region: TGPRegion; {定义区域} begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGold); region := TGPRegion.Create(M... 阅读全文

posted @ 2007-12-27 23:12 万一阅读(4168) 评论(2) 推荐(0)

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,... 阅读全文

posted @ 2007-12-27 23:11 万一阅读(12473) 评论(0) 推荐(0)

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 不一样, 是不是分... 阅读全文

posted @ 2007-12-27 23:09 万一阅读(6064) 评论(2) 推荐(1)

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.F... 阅读全文

posted @ 2007-12-27 23:08 万一阅读(7055) 评论(7) 推荐(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.Draw... 阅读全文

posted @ 2007-12-27 22:34 万一阅读(7045) 评论(2) 推荐(0)

GDI+ 学习记录(24): 输出文本<3>

摘要： //获取字体信息 var fontFamily: TGPFontFamily; font: TGPFont; begin fontFamily := TGPFontFamily.Create('宋体'); font := TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPixel); ShowMessage(Float... 阅读全文

posted @ 2007-12-27 22:33 万一阅读(3085) 评论(0) 推荐(0)