椭圆形的窗体
2016-02-08 12:49
267 查看
// 新视窗类
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实现程序窗体变形
![](http://img.blog.csdn.net/20140706152937046?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvemVuc3VpMjAwOA==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
注:所有源程序下载,请訪问下载频道-我的资源。
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实现程序窗体变形
注:所有源程序下载,请訪问下载频道-我的资源。
相关文章推荐
- YTU 2634: E3 继承了,成员函数却不可访问
- hdu 5620
- YTU 2633: P3 数钱是件愉快的事
- YTU 2632: B2 友元光顾
- YTU 2631: B1 能存各种类型数据的Store类
- Codeforces 625 D Finals in arithmetic
- YTU 2630: E2 驾驭const
- YTU 2629: E1 一种颜色,三个分量
- cocos2dx3.2 异步加载和动态加载
- 哈理工 1170 语法检查-括号匹配【stack应用】【水题~】
- YTU 2626: B 统计程序设计基础课程学生的平均成绩
- JAVA 内部类、外部类、继承、抽象类、接口实战
- YTU 2625: B 构造函数和析构函数
- 聊聊软件测试04
- 二进制中1的个数
- YTU 2623: B 抽象类-形状
- Codeforces Round #342 (Div 2) 解题报告
- Codeforces Round #342 (Div 2) 解题报告
- cocos2dx3.0 超级马里奥开发笔记(一)——loadingbar、TableView和pageview的使用
- Two Sigma OA