由位图生成区域
摘要：
思路: 扫描图象的scanline, 取不是背景色的连续坐标, 认为是一个height=1的rect,用CreateRectRgn生成region, 再用CombineRgn(.....RGN_OR)与先前生成的region合并生成新的region. 重复扫描完所有扫描线后就得到一个region了. 阅读全文
posted @ 2017-02-07 15:02 游子日月长 阅读(138) 评论(0) 推荐(0) 编辑
2017年2月7日 #
旋转位图
摘要：
Here's code to rotate a bitmap 90 degrees From: Dave Shapiro <daves@cyber-fx.com>Counterclockwise, that is. This rotates a 640x480 24-bit bitmap 90 de 阅读全文
posted @ 2017-02-07 15:01 游子日月长 阅读(115) 评论(0) 推荐(0) 编辑
获得当前颜色深度
摘要：
function GetColorDepth: integer var dc: HDC; begin dc := GetDC(0); Result := GetDeviceCaps(dc, BITSPIXEL); ReleaseDC(0, dc); end; 阅读全文
posted @ 2017-02-07 14:59 游子日月长 阅读(123) 评论(0) 推荐(0) 编辑
求多边形的面积
摘要：
const MaxPointNum = 65535;type PXY = ^TXY; TXY = record // 点的数据结构 x, y: single; end; XYArray = array[0..MaxPointNum] of TXY; PXYArray = ^XYArray; // 线 阅读全文
posted @ 2017-02-07 14:58 游子日月长 阅读(152) 评论(0) 推荐(0) 编辑
MaskBlt 拷贝非矩形区域图象
摘要：
MaskBlt 该函数使用特定的掩码和光栅操作来对源和目标位图的颜色数据进行组合。 原型： BOOL MaskBlt( HDC hdcDest, int nXDest, int nYDest, int nWidth, int nHeight, HDC hdcSrc, int nXSrc, int n 阅读全文
posted @ 2017-02-07 14:57 游子日月长 阅读(160) 评论(0) 推荐(0) 编辑
画多边型
摘要：
procedure TForm1.Button1Click(Sender: TObject);var ptArray : array[0..9] of TPOINT; PtCounts : array[0..1] of integer;begin PtArray[0] := Point(0, 0); 阅读全文
posted @ 2017-02-07 14:56 游子日月长 阅读(96) 评论(0) 推荐(0) 编辑
判断画布是否是图元格式画布
摘要：
if (GetDeviceCaps(Canvas.Handle, TECHNOLOGY) and DT_METAFILE) = DT_METAFILE then IsMetafileDc := True; 阅读全文
posted @ 2017-02-07 14:55 游子日月长 阅读(117) 评论(0) 推荐(0) 编辑
转化RGB颜色为CMYK颜色
摘要：
procedure RGBTOCMYK(R : byte; G : byte; B : byte; var C : byte; var M : byte; var Y : byte; ... 阅读全文
posted @ 2017-02-07 14:54 游子日月长 阅读(676) 评论(0) 推荐(0) 编辑