MB_ICONERROR);
Result := False;
Exit;
End;
//取得着色描述表
h_RC := wglCreateContext(h_DC);
If (h_RC = 0) Then
Begin
glKillWnd(Fullscreen);
MessageBox(0, '无法创建OpenGL 绘制描述表', '错误',
MB_OK Or MB_ICONERROR);
Result := False;
Exit;
End;
//已经取得了设备描述表和着色描述表。
//激活着色描述表
If (Not wglMakeCurrent(h_DC, h_RC)) Then
Begin
glKillWnd(Fullscreen);
MessageBox(0, 'Unable to activate OpenGL rendering context', 'Error',
MB_OK Or MB_ICONERROR);
Result := False;
Exit;
End;
//OpenGL窗口已经创建完成
// 显示窗体，置于最前
ShowWindow(h_Wnd, SW_SHOW); // 显示窗口
SetForegroundWindow(h_Wnd); // 略略提高优先级
SetFocus(h_Wnd); // 设置键盘的焦点至此窗口
glResizeWnd(Width, Height); // 设置透视 GL 屏幕
glInit(); // 初始化新建的GL窗口
Result := True;
End;
Function WinMain(hInstance: HINST; //实例
hPrevInstance: HINST; // 前一个实例
lpCmdLine: PChar; // 命令行参数
nCmdShow: Integer // 窗口显示状态
): Integer; stdcall;
Var
msg : TMsg; // Windowsx消息结构
finished : Boolean; // 用来退出循环的Bool 变量
Begin
finished := False;
//应用程序初始化
//glCreateWnd，创建窗体为800*600
If Not glCreateWnd(800, 600, false, 32) Then
Begin
&
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
