GL2D_GUI
1.0.0
在Delphi 10.4社区收集
ps: Отрисовка использует старый формат вывода изображения через glBegin/glEnd, в принципе для своих задач он подходит, вершин которые передаются с CPU->GPU не так много как с 3D объектами. Возможно когда нибудь и будет переделываться на буффер VBO
文件列表(与版本2.14相关):
| 文件 | 描述 |
|---|---|
GUIv2 | Основная папка |
| dlguifont.pas | 使用字体工作 |
| dlguiform.pas | 与组件列表的形式 |
| dlguiformlist.pas | 表格列表他们的显示(formlist.draw) |
| dlguiobject.pas | 零件和表单继承的主要类 |
| dlguimouse.pas | 显示鼠标光标的组件 |
| dlguipaletteheelper.pas | 根据坐标,与调色板合作的模块确定了调色板中的颜色 |
| dlguitypes.pas | 模块中使用的类型和类 |
| dlguivertexcontroller.pas | 用于与对象(组件)中峰的模块 |
| dlguixmlserial.pas | XML格式的GUI类序列化 |
components | Компоненты |
| 组件 dlguibevel.pas | 框架 |
| 组件 dlguicheckbox.pas | chekbox(开关) |
| 组件 dlguicombobox.pas | 开场列表 |
| 组件 dlguieditbox.pas | 文本输入字段(单线) |
| 组件 dlguiimage.pas | 图像 |
| 组件 dlguilabel.pas | 文字(可以是多行) |
| 组件 dlguilistbox.pas | 行列表 |
| 组件 dlguimainmenu.pas | 主菜单 |
| 组件 dlguipanel.pas | 没有组件的面板,可以用斜角(帧)代替 |
| 组件 dlguiprogressbar.pas | 加载指示器 |
| 组件 dlguiiradiobutton.pas | 选择开关 |
| 组件 dlgutable.pas | 桌子 |
| 组件 dlguitrackbar.pas | 使用滑块选择数值 |
| 组件 dlguitracker.pas | 跟踪器(水平/垂直)用于(ComboBox,ListBox,Table)等组件... |
Textures | Модули для работы с текстурами |
| 纹理 dltextureloader.pas | 下载格式纹理的模块(BMP,JPG,JPEG,TGA,PNG) |
| 纹理 dltexturelist.pas | 纹理管理(搜索,加法,删除) |
OpenGL | Модуль для работы с OpenGL |
| opengl dlopengl.pas | 使用框架OpenGL |
Image | Список изображений |
| 图像 logo.png | 标识 |
| 图像 guipalette.bmp | 组件的调色板 |
| 图像 consolas | Consolas字体 |
| 图像 gadugi | 字体Gadugi |
| 图像 Verdana | 字体Verdana |
所有组件均从dlguiobject.tguiobject类继承,用于下载纹理,使用模块
要开始使用GUI,您需要
形式:
uses dlGUIForm;
...
var Form : TGUIForm; // Класс формы
...
// Загрузка текстур
TextureList.Add( ' GUI ' , ' .ImageGUIPallette.bmp ' , GL_RGB, GL_MODULATE, GL_NEAREST, True, RGB( 252 , 52 , 252 ));
TextureList.Add( ' GUIFont ' , ' .ImageVerdanaVerdana 8.fgl.png ' , GL_RGBA, GL_MODULATE, GL_LINEAR);
...
Form:= TGUIForm.Create( ' FormName ' , TextureList.Search( ' GUI ' )); // Создание класса формы
Form.Caption:= ' Заголовок формы ' ;
Form.SetRect( 0 , 0 , 200 , 100 ); // Начальная позиция и размер формы
Form.Font.SetTextureLink(TextureList.Search( ' GUIFont ' )); // Установка шрифта формы
// Добавление формы в список форм
FormList.AddForm(Form);
... (render)
FormList.Draw; При добавлении на форму компонентов если у компонента не указана текстура и шрифт, то она назначается такой же как у формы
按钮(按钮):
uses dlGUIButton;
...
var Button: TGUIButton;
...
Button:= TGUIButton.Create; // Создание класса кнопки
Button.SetRect( 10 , 10 , 200 , 10 ); // Позиция и размер кнопки
Button.Caption:= ' Текст кнопки ' ; // Текст
Button.OnClick:= Proc; // Вызываемая процедура
// Включить всплывающую подсказку
Button.Hint.Enable:= True;
Button.Hint.Text := ' Текст всплывающей подсказки ' ;
Button.Flat := False; // Скрыть/Показать рамку кнопки
// Если добавляем на форму
Form.AddComponent(Button);
// Если просто нужно отобразить
Button.Draw;输入字段:
uses dlGUIEditBox;
...
var EditBox: TGUIEditBox;
...
EditBox:= TGUIEditBox.Create;
EditBox.SetPos( 10 , 10 , 200 , 20 );
Form.AddComponent(EditBox);