GL2D_GUI

Interfaz de usuario gráfico OpenGL

Autor: Ansperi LL, 2021

Correo electrónico: [email protected]

Sitio: http://lemgl.ru

Telegram: https://t.me/delphi_lemgl

---

Recolectado en la comunidad Delphi 10.4

---

ps: Отрисовка использует старый формат вывода изображения через glBegin/glEnd, в принципе для своих задач он подходит, вершин которые передаются с CPU->GPU не так много как с 3D объектами. Возможно когда нибудь и будет переделываться на буффер VBO

Lista de archivos (relevante para la versión 2.14):

Archivo	Descripción
GUIv2	Основная папка
dlguifont.pas	Trabajar con fuentes
dlguiforme.pas	Formulario con una lista de componentes
dlguiformeList.pas	Lista de formularios incl. su pantalla (FormList.Draw)
dlguiObject.pas	La clase principal de la que se heredan los componentes y los formularios
dlguimouse.pas	Componente para mostrar el cursor del mouse
dlguipaletteheelper.pas	El módulo para trabajar con una paleta, según las coordenadas, determina el color en la paleta
dlguitypes.pas	Tipos y clases que se utilizan en módulos
Dlguivertexcontroller.pas	Módulo para trabajar con picos en objetos (componentes)
dlguixmlSerial.pas	Serialización de clases de GUI en formato XML
components	Компоненты
componentes dlguibevel.pas	Marco
componentes dlguicheckbox.pas	Chekbox (interruptor)
componentes dlguicomboBox.pas	Lista de aperturas
componentes dlguieditbox.pas	Campo de entrada de texto (línea única)
componentes dlguiimage.pas	Imagen
componentes dlguilabel.pas	Texto (puede ser múltiple)
componentes dlguilistbox.pas	Lista de líneas
componentes dlguimainmenu.pas	El menú principal
componentes dlguipanel.pas	Panel sin componentes, puede ser reemplazado por bisel (marco)
componentes dlguiprogressbar.pas	Indicador de carga
componentes dlguiiradiobutton.pas	Interruptores de selección
componentes dlGuitable.pas	Mesa
componentes dlguitrackbar.pas	Seleccionar un valor numérico usando un control deslizante
componentes dlguitracker.pas	El rastreador (horizontal/vertical) se usa para componentes como (comboBox, listbox, tabla) ...
Textures	Модули для работы с текстурами
Texturas dltextureloader.pas	Módulo para descargar texturas de formato (BMP, JPG, JPEG, TGA, PNG)
Texturas dltextureList.pas	Gestión de textura (búsqueda, adición, eliminación)
OpenGL	Модуль для работы с OpenGL
OpenGL dlopengl.pas	Trabajar con el marco OpenGL
Image	Список изображений
Image logo.png	Logo
Imagen guipalette.bmp	Paleta para componentes
Imagen Consolas	Fuente de consolas
Imágenes Gadugi	Font Gadugi
Imágenes Verdana	Fuente verdana

---

Todos los componentes se heredan de la clase dlguiObject.tGuiObject para descargar textura, se utilizan módulos

• dltextureloader.pas
• dltextureList.pas

Para comenzar a usar GUI, necesitas

• Cree el contexto de OpenGL (módulo ISP dlopengl.pas)
• Descargar texturas (dltextureloader.pas)
• Crear un formulario (dlguform.pas)
• Crea componentes y agrégalos a la forma (componentes ...)
• Agregue el formulario a la lista de formularios (dlguiformList.pas)

Un ejemplo de creación de componentes:

Forma:

 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;

При добавлении на форму компонентов если у компонента не указана текстура и шрифт, то она назначается такой же как у формы

Botón (botón):

 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;

Campo de entrada:

 uses dlGUIEditBox;
...
var EditBox: TGUIEditBox;
...
EditBox:= TGUIEditBox.Create;
EditBox.SetPos( 10 , 10 , 200 , 20 );

Form.AddComponent(EditBox);