If (Not UnRegisterClass('OpenGL', hInstance)) Then
Begin
MessageBox(0, '无法注销窗口类!', '错误', MB_OK Or
MB_ICONERROR);
hInstance := 0;
End;
End;
//==============================================================================
// 创建OpenGL窗口,
// 带有5个参数：窗口的标题栏，窗口的宽度，窗口的高度，色彩位数(16/24/32)，
// 全屏标志(TRUE --全屏模式， FALSE--窗口模式 )。
// 返回的布尔值 窗口是否成功创建。
//==============================================================================
Function glCreateWnd(Width, Height: Integer; Fullscreen: Boolean; PixelDepth:
Integer): Boolean;
Var
wndClass : TWndClass; // 窗口类
dwStyle : DWORD; // 窗口风格
dwExStyle : DWORD; // 扩展窗口风格
PixelFormat : GLuint; // 象素格式
h_Instance : HINST; // 当前实例
dmScreenSettings : DEVMODE; // 设备模式
pfd : TPIXELFORMATDESCRIPTOR; //格式描述符
Begin
h_Instance := GetModuleHandle(Nil); // 取得窗口的实例
ZeroMemory(@wndClass, SizeOf(wndClass)); // 初始化内存
With wndClass Do // 设置窗口类
Begin
style := CS_HREDRAW Or // 如果长度变化，
CS_VREDRAW Or // 如果高度变化，就是只要变化就强制重画
CS_OWNDC; //CS_OWNDC为窗口创建一个私有的DC。这意味着DC不能在程序间共享。
lpfnWndProc := @WndProc; // WndProc处理消息
// cbClsExtra := 0; // 无额外窗口数据
// cbWndExtra := 0; // 无额外窗口数据
hInstance := h_Instance; // 设置实例
//hIcon := LoadIcon(0, IDI_WINLOGO); // 装入缺省图标
hCursor := LoadCursor(0, IDC_ARROW); //载入鼠标指针
//hbrBackground := 0; //
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
