异形窗体的实现

原创 2002年08月29日 17:13:00

一定有很多人看到过一些奇形怪状的窗体,例如一些屏幕精灵。其实实现起来非常容易,做到三点就好啦。下面我使用Delphi做了一个VCL控件(TBmpShape),你只需要指定一幅图片就可以将窗体变成你的图片的形状。

1。准备一幅位图图片,一定要BMP格式的

2。将VCL控件放在你的窗体(FORM)上,注意不能是其他的容器,设置PICTURE属性,指定制作好的图片。

3。设置图片的背景颜色,必须是你的图片的背景颜色准确值

4。在本窗体的FormCreate事件中写一行代码

BmpShape1.Apply;

做到上面四点就可以了,编译运行你的窗体,是不是不一样啊。

下面是具体的代码,不是太长吧。

unit BmpShape;
{
2002/08/22  by ultrared
根据BMP文件创建窗口
注意:
1. BMP文件最左上的一个点颜色作为背景色
2. BmpShape控件只能用在TForm容器上
3. BMP文件可以是256色或者24位色
4。大块背景色必须和背景色绝对相等才能获得正常效果
}
interface

uses
 Forms,Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,Graphics;

type
 TBmpShape = class(TImage)
 private
  { Private declarations }
  BackColor:TColor;//背景颜色
  FColorDither:boolean;//是否允许背景颜色有一定的抖动
  function GetRegion:HRGN;//前景图片的区域
  procedure setColorDither(cd:Boolean);
 protected
  { Protected declarations }
 public
  { Public declarations }
  constructor Create(AOwner:TComponent);override;
  procedure Apply;//使用效果
 published
  { Published declarations }
  property Dither:Boolean read FColorDither write setColorDither;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Samples', [TBmpShape]);
end;

procedure TBmpShape.setColorDither(cd:Boolean);
begin
 if cd<>FColorDither then
  FColorDither:=cd;
end;

constructor TBmpShape.Create(AOwner:TComponent);
begin
 inherited Create(AOwner);
 BackColor:=RGB(0,0,0);
 FColorDither:=FALSE;
end;

//核心子程序,获得BMP图片的前景区域
function TBmpShape.GetRegion:HRGN;
var
 i,j:integer;
 rgn1,rgn2:HRGN;
 StartY:integer;
 r,g,b,r1,g1,b1:BYTE;
 cc:TColor;
begin
 if Picture.Bitmap<>nil then
 begin
  BackColor:=Picture.Bitmap.Canvas.Pixels[0,0];
  rgn1:=CreateRectRgn(0,0,0,0);
  for i:=0 to Picture.Bitmap.Width-1 do
  begin
   StartY:=-1;
   for j:=0 to Picture.Bitmap.Height-1 do
   begin
    cc:=Picture.Bitmap.Canvas.Pixels[i,j];
    if FColorDither then
    begin
     //允许和背景有一定的色差
     r:=(cc and $FF0000) shr 16;
     g:=(cc and $FF00) shr 8;
     b:=cc and $FF;
     r1:=(BackColor and $FF0000) shr 16;
     g1:=(BackColor and $FF00) shr 8;
     b1:=BackColor and $FF;
     if (abs(r-r1)<10) and (abs(g-g1)<10) and (abs(b-b1)<10) then
     begin
      if (StartY>=0) and (j>=StartY) then
      begin
       rgn2:=CreateRectRgn(i,StartY,i+1,j);
       CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
       StartY:=-1;
      end;
     end
     else
     begin
      if Starty<0 then
       StartY:=j
      else if j=(Picture.Bitmap.Height-1) then //最下面一个点
      begin
       rgn2:=CreateRectRgn(i,StartY,i+1,j);
       CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
      end;
     end;
    end
    else //不允许色差
    begin
     if cc=BackColor then
     begin
      if (StartY>=0) and (j>=StartY) then
      begin
       rgn2:=CreateRectRgn(i,StartY,i+1,j);
       CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
       StartY:=-1;
      end;
     end
     else
     begin
      if Starty<0 then
       StartY:=j
      else if j=(Picture.Bitmap.Height-1) then //最下面一个点
      begin
       rgn2:=CreateRectRgn(i,StartY,i+1,j);
       CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
      end;
     end;
    end;
   end;
  end;
  result:=rgn1;
 end
 else
  result:=0;
end;

procedure TBmpShape.Apply;
begin
 if Parent is TForm then
 begin
  Left:=0;
  Top:=0;
  Width:=Picture.Bitmap.Width;
  Height:=Picture.Bitmap.Height;
  with (Parent as Tform) do
  begin
   BorderStyle:=bsNone;
   Width:=Self.Width;
   Height:=Self.Height;
  end;
  SetWindowRgn(Parent.Handle,GetRegion,FALSE);
 end;
end;

end.

jdk7透明异形窗体

在jdk6中设置透明异形窗体的方法与jdk7方法的比较 Method in Java SE 6 Update 10 JDK 7 Equivalent AWTUtili...
  • zhhaogen
  • zhhaogen
  • 2011年10月23日 21:35
  • 2671

Java窗体透明化(无边框)

Java 窗体透明化(无边框)这几天我在写一个记事本程序,为了方便记事本记事,我准备将记事本界面透明化。于是上网查了一下资料。然后将透明化界面做了出来。可是在做的过程中我还是遇到了一些小小的问题,所以...
  • x1020915098
  • x1020915098
  • 2017年02月24日 16:01
  • 2826

Qt开发:无边框异形窗口,透明背景,可移动

很多端游的启动器客户端都是异形窗口,无边框,自绘并重写了最小化、最大化、关闭按钮。本文具体讲一下实现。 步骤: 1,设置窗口透明度、窗口无边框样式、窗口背景透明。 2,准备ps过的带透明...
  • u012234115
  • u012234115
  • 2015年02月13日 00:41
  • 3118

Qt5.8 异形窗口

#ifndef QT_SHAPEDWINDOW_H #define QT_SHAPEDWINDOW_H #include #include #pragma execution_character...
  • sz76211822
  • sz76211822
  • 2017年06月14日 10:10
  • 358

QT中异形窗口的绘制

转自http://www.cppblog.com/eXile/archive/2007/12/09/38084.html     这里讨论的只是Windows平台上的实现。   在QT中绘制异形...
  • xiaofengkuang
  • xiaofengkuang
  • 2011年12月09日 18:27
  • 2433

qt 创建异形窗体

我们可以看到QPixmap::mask()函数返回图片中Alpha值不为0有区域,就是异形。 QSplashScreen::setMask()就是设置掩码区域。 所以实际的显示效果就是只显示出Al...
  • shell_albert
  • shell_albert
  • 2015年06月17日 16:12
  • 1010

异形窗体的实现

一定有很多人看到过一些奇形怪状的窗体,例如一些屏幕精灵。其实实现起来非常容易,做到三点就好啦。下面我使用Delphi做了一个VCL控件(TBmpShape),你只需要指定一幅图片就可以将窗体变成你的图...
  • ultrared
  • ultrared
  • 2002年08月29日 17:13
  • 771

java制作透明窗体(类似PS欢迎界面 )

首先得准备一张png格式图片,因为png支持透明效果,图片如下 将Jframe设置为没有边框和标题的形式,代码如下: setUndecorated(true); 重写Jframe的paint方法,并将...
  • c1481118216
  • c1481118216
  • 2016年07月04日 08:27
  • 2344

Java实现不规则窗体

第一篇博客都不知道有没有人会看。。。。。。。 首先上一张效果图吧: 原理很简单,就是新建JLabel的时候重写一下JLabel的paint方法,然后对窗体设置一下就行,上代码: import com....
  • qq_26971803
  • qq_26971803
  • 2015年11月15日 21:13
  • 996

异形窗口 - 显示hello

void CTestdDlg::OnBnClickedButton1() { // TODO: 在此添加控件通知处理程序代码 HRGN wndRgn; CClientDC dc(this); ...
  • SP_daiyq
  • SP_daiyq
  • 2015年03月21日 07:20
  • 578
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:异形窗体的实现
举报原因:
原因补充:

(最多只允许输入30个字)