摘要: 以灰度化代码为例procedure Grayscale(const Bitmap:TBitmap);var X: Integer; Y: Integer; PRGB: pRGBTriple; Gray: Byte;begin for Y := 0 to (Bitmap.Height - 1) do begin PRGB := Bitmap.ScanLine[Y]; for X := 0 to (B... 阅读全文
posted @ 2009-01-13 19:58 小洋房 阅读(3908) 评论(1) 推荐(2) 编辑