delphi根据不同图片生成不规则窗口的实现(仅限于BMP格式)
2009-12-17 17:02
561 查看
unit CreateImageForm;
interface
uses
Windows, SysUtils, Variants, Classes, Graphics;
procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle);
implementation
procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle);
var
rgn: HRgn;
dc, cdc: HDC;
x, y: integer;
p: Tpoint;
line: boolean;
color: Tcolor;
begin
dc := GetWindowDc(hand);
cdc := CreateCompatibleDc( dc );
SelectObject( cdc, Bmap.Handle );
//WColor := Img.Picture.Bitmap.Canvas.Pixels[0, 0];
//WColor := GetPixel( cdc, 0, 0 );
BeginPath( dc );
for x := 0 to Bmap.Width - 1 do
begin
line := false;
for y := 0 to Bmap.Height - 1 do
begin
color := GetPixel( cdc, x, y );
if not( color=WColor) then
begin
if not line then
begin
line := true;
p.X := x;
p.Y := y;
end;
end;
if ( color=WColor)or( y=Bmap.Height - 1 ) then
begin
if line then
begin
line := false;
MoveToEx( dc, p.X, p.Y, nil );
LineTo(dc, p.X, y );
LineTo(dc, p.X + 1, y );
LineTo(dc, p.X + 1, p.Y );
CloseFigure( dc );
end;
end;
end;
end;
EndPath( dc );
Rgn := PathToRegion( dc );
ReleaseDc( hand, dc );
SetWindowRgn( hand , rgn, true );
end;
end.
如此调用就可以了
procedure TForm1.FormCreate(Sender: TObject);
var
color: TColor;
w1: TBitMap;
begin
w1 := TBitMap.Create;
w1.Assign( Image1.Picture.Bitmap );
color := w1.Canvas.Pixels[0, 0];
CreatRgnForm( w1, color, handle);
end.
interface
uses
Windows, SysUtils, Variants, Classes, Graphics;
procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle);
implementation
procedure CreatRgnForm( Bmap: TBitMap; WColor: TColor; hand:THandle);
var
rgn: HRgn;
dc, cdc: HDC;
x, y: integer;
p: Tpoint;
line: boolean;
color: Tcolor;
begin
dc := GetWindowDc(hand);
cdc := CreateCompatibleDc( dc );
SelectObject( cdc, Bmap.Handle );
//WColor := Img.Picture.Bitmap.Canvas.Pixels[0, 0];
//WColor := GetPixel( cdc, 0, 0 );
BeginPath( dc );
for x := 0 to Bmap.Width - 1 do
begin
line := false;
for y := 0 to Bmap.Height - 1 do
begin
color := GetPixel( cdc, x, y );
if not( color=WColor) then
begin
if not line then
begin
line := true;
p.X := x;
p.Y := y;
end;
end;
if ( color=WColor)or( y=Bmap.Height - 1 ) then
begin
if line then
begin
line := false;
MoveToEx( dc, p.X, p.Y, nil );
LineTo(dc, p.X, y );
LineTo(dc, p.X + 1, y );
LineTo(dc, p.X + 1, p.Y );
CloseFigure( dc );
end;
end;
end;
end;
EndPath( dc );
Rgn := PathToRegion( dc );
ReleaseDc( hand, dc );
SetWindowRgn( hand , rgn, true );
end;
end.
如此调用就可以了
procedure TForm1.FormCreate(Sender: TObject);
var
color: TColor;
w1: TBitMap;
begin
w1 := TBitMap.Create;
w1.Assign( Image1.Picture.Bitmap );
color := w1.Canvas.Pixels[0, 0];
CreatRgnForm( w1, color, handle);
end.
相关文章推荐
- 实现根据图片数量不同的多条目加载
- 前端控制器是整个MVC框架中最为核心的一块,它主要用来拦截符合要求的外部请求,并把请求分发到不同的控制器去处理,根据控制器处理后的结果,生成相应的响应发送到客户端。前端控制器既可以使用Filter实现(Struts2采用这种方式),也可以使用Servlet来实现(spring MVC框架)。
- android eclipse 根据屏幕密度自动生成不同分辨率的图片
- PHP实现根据图片色界在不同位置加水印的方法
- jquery实现根据浏览器窗口大小自动缩放图片的方法
- Python实现中文词云(wordcloud),根据背景图片生成词云
- Java实现的不同图片居中剪裁生成同一尺寸缩略图功能示例
- PHP实现根据图片色界在不同位置加水印的方法
- java实现:根据图片生成配色方案
- jquery实现根据浏览器窗口大小自动缩放图片的方法
- Delphi实现Listbox中的item根据内容显示不同颜色的方法
- ios实现视频录制功能 三 获取视频、保存到相册、根据视频生成占位图片
- HttpHandlerFactory来根据不同的后缀名调用不通的图片生成Handler来生成图片
- 根据浏览器窗口(或不同设备)宽度缩放图片
- vc++根据图片定制不规则窗口
- Win8 本地图片命名规则--根据不同分辨率,web图片使用规则
- MVC扩展控制器工厂,通过实现IControllerFactory,根据action名称生成不同的Controller
- 详解原生JS根据图片多少自动生成相册_实现焦点或按钮切换图片
- java实现不同图片居中剪裁生成同一尺寸缩略图
- Android 实现图片的自动缩放,适应分辨率不同的手机