delphi任意形状窗体制作资源-CSDN文库

4星 · 超过85%的资源需积分: 10 23 浏览量 2009-09-23 08:29:08 上传评论收藏 35KB DOC 举报

资源推荐

资源详情

资源评论

不过后来看到了罗云彬(http://asm.yeah.net)大侠给出了不同的算法，我以为更好些，源程序

可是用 100%的汇编写成的（厉害吧！）我改为了 Delphi 的样子！首先解释两个函数。

1 、原形： function CreateRectRgn(p1, p2, p3, p4: Integer): HRGN; stdcall; 创建一个由点

p1，p2 和 p3，p4 描述的矩形区域；

2、原形：function CombineRgn(p1, p2, p3: HRGN; p4: Integer): Integer; stdcall;把 p2 和 p3 区

域合并为区域 p1，p4 是合并方式，p4 取值如下：RGN_AND 交集合并，RGN_COPY 拷贝

p2 的内容,RGN_DIFF 合并 p2 和 p3 不相交的地方，RGN_OR 并集合并，RGN_XOR 不同时

在 p2 和 p3 中的部分。

下面给出完整源程序：

function Tform1.CreateRegion(wMask: TBitmap; wColor: TColor; hControl: THandle): HRGN;

var

dc, dc_c : HDC;

rgn : HRGN;

x, y : integer;

coord : TPoint;

line : boolean;

color : TColor;

begin

dc := GetWindowDC(hControl);

dc_c := CreateCompatibleDC(dc);

{创建一个与特定设备场景一致的内存设备场景}

SelectObject(dc_c, wMask.Handle);

{把位图选入内存设备场景这样才可以操作！}

BeginPath(dc);

{启动一个路径分支。

在这个命令后执行的 GDI 绘图命令会自动成为路径的一部分。

对线段的连接会结合到一起。并且设备场景中任何现成的路径都会被清除。}

for x := 0 to wMask.Width - 1 do

begin

line := false;

for y := 0 to wMask.Height - 1 do

begin

color := GetPixel(dc_c, x, y);

if not (color = wColor) then

begin

if not line then

{如果这个不同颜色的线段开始了当然就不记录了！}

begin

line := true; {这是记录下这一列连续的不是背景颜色的颜色段的第一个位子。}

coord.x := x; {其实这个 X 是不用的，因为 coord.x 是恒等于 x 的。但尊重源作者，保

留！}

coord.y := y;

end;

end;

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余5页未读，立即下载

内容反馈

zhlkh

2014-03-04

很实用的东西，适合学习
magical_li001

2014-01-08

这个很有参考意义，谢谢。

xinglong1985

粉丝: 0
资源: 2

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip