首页 > 其他 > 详细

椭圆形的窗口

时间:2014-07-08 12:51:09      阅读:364      评论:0      收藏:0      [点我收藏+]

//  新视窗类

with wc do begin

    style := CS_VREDRAW or CS_HREDRAW;
    lpfnWndProc := @GdiProc1;
    cbClsExtra := 0;
    cbWndExtra := 0;
    hCursor := LoadCursor(0, IDC_ARROW);//  ;
    hbrBackground := GetSysColorBrush( windows.COLOR_INFOBK );//HBRUSH(GetStockObject(windows.GRAY_BRUSH));
    hInstance := HInstance;
    lpszMenuName := nil;
    lpszClassName := szAppName;
    //hIcon := ficon1;
    end;
windows.RegisterClass(wc);


//  建窗口
Main := CreateWindowExA(WS_EX_OVERLAPPEDWINDOW, szAppName, szAppName, WS_VISIBLE or WS_SYSMENU  or WS_SizeBox or WS_GROUP,
                        Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT), 800, 600, HWND_DESKTOP, 0, 0, nil);

//  获取窗体尺寸

GetWindowRect(Main, re1);

main_DC := GetWindowDC(Main);

rg1 := CreateEllipticRgnIndirect( re1 );                                                 // 创建一个内切于特定矩形的椭圆区域
FillRect(main_DC, re1, 15 + 5 );
Rectangle(main_DC, re1.Left, re1.Top, re1.Right, re1.Bottom);

SetWindowRgn(Main, rg1, true);                                                          // 用SetWindowRgn实现程序窗口变形

bubuko.com,布布扣

注:全部源程序下载,请访问下载频道-我的资源。

椭圆形的窗口,布布扣,bubuko.com

椭圆形的窗口

原文:http://blog.csdn.net/zensui2008/article/details/37336293

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!