WEB开发网
开发学院软件开发Delphi 用API函数在DELPHI中实现“非典型”窗体 阅读

用API函数在DELPHI中实现“非典型”窗体

 2006-02-04 13:41:46 来源:WEB开发网   
核心提示: 用API函数在DELPHI中实现“非典型”窗体 现在的一些共享软件特别是一些多媒体播放器软件为了吸引用户,很注重程序界面的设计,用API函数在DELPHI中实现“非典型”窗体,实际上,我们使用API函数也可以实现那些好看又另类的效果,以上几种技巧旨在抛砖引玉,希望大家充分运用各种技巧, 1.异形窗体 窗体只能是
 用API函数在DELPHI中实现“非典型”窗体
   现在的一些共享软件特别是一些多媒体播放器软件为了吸引用户,很注重程序界面的设计。实际上,我们使用API函数也可以实现那些好看又另类的效果。
   1.异形窗体
   窗体只能是方的吗?不是,还可以有其他形状。这要用到两个Win32 API函数。首先用CreateRoundRectRgn()函数在窗体内界定一个椭圆形区域。这里所指的区域(region)是一个特殊的API对象,我们可以在区域内部进行填充和剪裁等操作,从而定义窗体的外部特征。然后调用SetWindowRgn()函数绘制,更进一步还可以再用CombineRgn()函数来合并多个区域,例如在Delphi的单元文件中加入以下代码:
   PRocedure TForm1.FormCreate(Sender: TObject);
   var
    FRegion1:THandle;
    FRegion2:THandle;
   begin
    FRegion1:=CreateRoundRectRgn(20,20,200,200,300,300);//界定一个椭圆区域
    FRegion2:=CreateRectRgn(170,170,400,400);//界定一个矩形区域
    CombineRgn(FRegion1,FRegion1,FRegion2,RGN_OR);//将两个区域连接起来
    SetwindowRgn(handle,FRegion1,True);//对连接后的区域进行绘制
   end;
   程序段中的CreateRoundRectRgn()函数用来创建一个圆角矩形区域,它的原型为:
   HRGN CreateRoundRectRgn(
   int nLeftRect, // 左上角的X坐标
   int nTopRect, // 左上角的Y坐标
   int nRightRect, // 右下角的X坐标
   int nBottomRect, // 右下角的Y坐标
   int nWidthEllipse, //圆角所在椭圆的宽
   int nHeightEllipse  // 圆角所在椭圆的高
   );
   其他图形如多边形、椭圆形等都有对应的API函数,它们的原型如下:
   HRGN CreateEllipticRgn(int nLeftRect,int nTopRect,int nRightRect,int nBottomRect)
   HRGN CreateEllipticRgnIndirect( CONST RECT *lprc)
   HRGN CreatePolygonRgn(CONST POINT *lppt,int cPoints, int fnPolyFillMode)
   HRGN CreatepolypolygonRgn(CONST POINT *lppt,CONST INT *lpPolyCounts,int nCount,int fnPolyFillMode)
   HRGN CreateRectRgn(int nLeftRect,int nTopRect,int nRightRect,int nBottomRect)
   HRGN CreateRectRgnIndirect(CONST RECT *lprc)
   以上函数的参数很好理解,用来说明图形内置矩形的坐标或指向该矩形。重点来看一下另外两个函数:
   函数原型:SetWindowRgn(
        HWND hWnd,     //当前窗体的句柄
        HRGN hRgn,      //当前区域的句柄
        BOOL bRedraw,    //重绘标志
        )
   函数功能:该函数把已创建的区域的句柄作为参数传递给当前窗体的句柄,并在该区域范围内绘制窗体;
   函数原型:CombineRgn(
        HRGN hrgnDest,  // 连接目的区域的句柄
        HRGN hrgnSrc1,  // 第一个连接源区域的句柄
        HRGN hrgnSrc2,  // 第二个连接源区域的句柄
        int fnCombineMode  // 连接模式
        )
   函数功能:该函数将两个区域合并为一个新的区域,其中连接模式可取以下值:
   参数值      作用
   RGN_AND     由区域1与区域2的共有部分即交集创建新的区域
   RGN_COPY     创建区域1的副本作为新的区域
   RGN_DIFF     连接属于区域1但不属于区域2的部分为新的区域
   RGN_OR      连接区域1和区域2的所有部分即并集
   RGN_XOR。   连接区域1和区域2的所有部分即并去掉共有部分
   2.空心窗体
   这种窗体的特点是好端端的一个窗体,中间被挖了一部分。例如在Delphi的单元文件中加入以下代码:
   procedure TForm1.FormCreate(Sender: TObject);
   var
    FRegion3:THandle;
   begin
    Canvas.Font.Name:='华文行楷';//设置字体 
    Canvas.Font.Size:=100;//设置字号
    BeginPath(Canvas.Handle); //得到vanvas上绘制的轮廓
    TextOut(form1.Canvas.Handle,0,20,'程序春秋',8);//将“程序春秋”四个字所占区域抠掉
    EndPath(Canvas.Handle);
    FRegion3:=PathToRegion(Canvas.Handle);//将以上区域赋给窗体
    SetwindowRgn(Handle,FRegion3,True);//开始绘制
   end;
   这里主要用到了三个API函数:
   函数原型:BOOL BeginPath(HDC hdc  //设备环境的句柄)
   函数功能:开始接收当前设备环境的路径轨迹;
   函数原型:BOOL EndPath(HDC hdc  //设备环境的句柄) 
   函数功能:停止接收并将已接收的路径轨迹赋给当前设备环境的句柄
   函数原型  BOOL TextOut(
        HDC hdc, // handle of device context
        int nXStart, // 起始位置的X坐标 
        int nYStart, // 起始位置的Y坐标
        LPCTSTR lpString, // 字符串地址
        int cbString  //字符串所包含字符数(注意一个汉字占两个字符)
        )
   函数功能:在指定位置绘制给定字符串。
   小结:学会熟练使用API进行编程,是一项很重要的技能,有时可以达到意想不到的效果。以上几种技巧旨在抛砖引玉,希望大家充分运用各种技巧,发挥自己想像,设计出更炫的窗体,美化自己的程序

Tags:API 函数 DELPHI

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接