03 2020 档案

dglopengl-02------01例子学习
摘要：procedure TForm1.FormCreate(Sender: TObject);begin DC := GetDC(Handle);//获取句柄 if not InitOpenGL then Application.Terminate;//如果初始化opengl失败则退出程序 RC := 阅读全文
posted @ 2020-03-31 15:22 下雨天不爱打伞 阅读(238) 评论(0) 推荐(0)
DGLOPENGL学习01
摘要：https://delphigl.com 请从这里下载dglopengl.pas在option里面添加引用。 由于是德语网站，请添加翻译软件，嗯，翻译后的语句读起来也是不是很明白。。。 点击顶部的tut0rial进入教程，同样需要翻译软件帮忙，德语完全看不懂。 以下是第一个教程的代码，稍作了一些改动 阅读全文
posted @ 2020-03-31 14:35 下雨天不爱打伞 阅读(228) 评论(0) 推荐(0)
第五天之添加字体
摘要：显示字体的方法： A 00000000 00011000 00011000 00011000 00011000 00100100 00100100 00100100 00100100 01000010 01000010 .... 用了8x16的一个矩阵来表示。 首先定义字体需要显示的数组 stati 阅读全文
posted @ 2020-03-30 13:18 下雨天不爱打伞 阅读(175) 评论(0) 推荐(0)