2012年4月14日
摘要：
procedure RgnWindow();beginvar rgn1,rgn2: HRGN; x,y,w,h, i: Integer;begin w := img1.Width; h := img1.Height;rgn1 := CreateRectRgn(0, 0, w, h);for x := 0 to w - 1 dobegin for y := 0 to h - 1 do begin if img1.Canvas.Pixels[x,y] = clwhite then begin rgn2 := CreateRectRgn(x, y, x+1,... 阅读全文
posted @ 2012-04-14 13:41
生如夏花之绚烂
阅读(245)
评论(0)
推荐(0)