三九宝宝网宝宝绘画儿童画

Delphi中如何使用Png等透明格式图片还做 Form的形状

02月16日 编辑 39baobao.com

[劳动合同书的封面格式]劳动合同书 用人单位(以下简称甲方)名称: 温州市 有限公司 单位地址: 温州市龙湾区永兴工业区 电话: 86 单位性质: 私 营 法定代表人(主要负责人): 劳动者(以下简称乙方)姓名 性别 出生...+阅读

Raize_4.3.2组件包含有这样的控件,可以直接使用控件--RzFormShape

或者重新绘制:

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons;

private

function CreateRegion(wMask: TBitmap; wColor: TColor;

hControl: THandle): HRGN;

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

dc_c := CreateCompatibleDC(dc);

SelectObject(dc_c, wMask.Handle);

BeginPath(dc);//开始绘制

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;

coord.y := y;

end;

end;

if (color = wColor) or (y=wMask.Height-1) then

begin

if line then

begin

line := false;

MoveToEx(dc, coord.x, coord.y, nil);

LineTo(dc, coord.x, y);

LineTo(dc, coord.x + 1, y);

LineTo(dc, coord.x + 1, coord.y);

CloseFigure(dc);

end;

end;

end;

end;

EndPath(dc);//结束绘制

rgn := PathToRegion(dc);

ReleaseDC(hControl, dc); //释放DC

Result := rgn;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

w1:TBitmap;

w2:TColor;

rgn: HRGN;

begin

w1:=TBitmap.Create;

w1.Assign(image1.Picture.Bitmap);//取得图片对象

w2:=w1.Canvas.Pixels[0,0];

rgn := CreateRegion(w1,w2,Handle);//生成窗体区域

if rgn<>0 then

begin

SetWindowRgn(Handle, rgn, true);//设定窗体形状

end;

w1.Free;

end;

以下为关联文档:

劳动合同的封面格式和具体内容是怎样的劳动合同书 用人单位(以下简称甲方)名称: 温州市 有限公司 单位地址: 温州市龙湾区永兴工业区 电话: 86 单位性质: 私 营 法定代表人(主要负责人): 劳动者(以下简称乙方)姓名 性别 出生...

怎么把图片改成jpg格式很多软件都可以,看你熟练用那个软件了。 把图片软件成JPG格式,还要看你的原文件是什么格式,如果是常见的图片格式,那就用系统自带的看图软件和画图软件,然后直接另存为jpg格式就...

米菲快乐课堂米菲的形状效果怎么样内容提要 ,荷兰作家迪克·布鲁纳自写自画的《米菲》系列故事书,是专为低幼儿童创作的。画面极其简洁,故事简单易懂,而且大多故事情节来源于低幼儿童的真实生活。深得世界各国小...

ps怎么把导入的图片做成16 16的ico格式然后还不糊ps不能保存ico格式。 一、要保存ico图标,有两种方法: 1、下载安装 2、在线ico图标制作 ,在浏览器中输入《在线ico图标制作 》,资源十分丰富,太多太多。 二、制作方法 1、先使用PS...

excel如何剪切图片怎样将Excel中的表格剪切成图片一样的格式第一步:单击右上角【最大化】 第二步:按键盘上的 ScreenPrint键 第三步:新建Word空白文档 第四步:点击【粘贴】...

怎样用ps把一张图片裁剪成不规则的形状使用软件:PS CC版 photoshop将图片裁剪成不规则形状,具体步骤如下: 1、启动ps软件,进入ps的界面后,将特定的图片拖进去; 2、打开图片之后,双击该背景图层右边的锁头图标,在“新建图...

PS不规则形状的图片怎么新建一个文件,或者直接打开你准备好的背景文件。现在我们看到图层面板有一个背景图层,鼠标双击这个背景图层使它变为图层0。(如果你找不到图层面板,请在上面“窗口菜单”中勾上...

在PS中怎么复制图片上字体的格式用ps复制图片上的字方法: 1、打开Photoshop软件。 2、选择【矩形选框工具】。 3、选中文字。 4、按住ctrl+alt,拖动选区,就复制了想要的文字。...

各种各样的云的形状名称寓意着什么天气唔……我想起了初中学过的一篇课文叫看云识天气,也许对你有用八。 天上的云,真是姿态万千,变化无常。它们有的像羽毛,轻轻地飘在空中;有的像鱼鳞,一片片整整齐齐地排列着;有的像羊...

推荐阅读
图文推荐