GL2D_GUI

Antarmuka pengguna grafis terbuka

Penulis: Ansperi LL, 2021

Email: [email protected]

Situs: http://lemgl.ru

Telegram: https://t.me/delphi_lemgl

---

Dikumpulkan di komunitas Delphi 10.4

---

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

Daftar file (relevan untuk versi 2.14):

Mengajukan	Keterangan
GUIv2	Основная папка
dlguifont.pas	Bekerja dengan font
dlguiform.pas	Formulir dengan daftar komponen
dlguiformlist.pas	Daftar formulir termasuk. tampilan mereka (formlist.draw)
dlguiobject.pas	Kelas utama dari mana komponen dan bentuk diwariskan
dlguimouse.pas	Komponen untuk menampilkan kursor mouse
dlguipaletteheelper.pas	Modul untuk bekerja dengan palet, menurut koordinat, menentukan warna dalam palet
dlguitypes.pas	Jenis dan kelas yang digunakan dalam modul
DlguiverTexController.pas	Modul untuk bekerja dengan puncak di objek (komponen)
dlguixmlserial.pas	Serialisasi kelas GUI dalam format XML
components	Компоненты
Komponen dlguibevel.pas	Bingkai
komponen dlguicheckbox.pas	Chekbox (sakelar)
komponen dlguicomboBox.pas	Daftar pembuka
komponen dlguieditbox.pas	Bidang Input Teks (Single -Line)
komponen dlguiimage.pas	Gambar
Komponen dlguilabel.pas	Teks (bisa multi -line)
komponen dlguilistbox.pas	Daftar baris
Komponen dlguimainmenu.pas	Menu utama
Komponen dlguipanel.pas	Panel tanpa komponen, dapat diganti dengan bevel (bingkai)
Komponen dlguiprogressbar.pas	Indikator pemuatan
komponen dlguiiradiobutton.pas	Sakelar pilihan
Komponen dlguitable.pas	Meja
komponen dlguitrackbar.pas	Memilih nilai numerik menggunakan slider
komponen dlguitracker.pas	Pelacak (horizontal/vertikal) digunakan untuk komponen seperti (ComboBox, ListBox, Tabel) ...
Textures	Модули для работы с текстурами
Tekstur dltextureloader.pas	Modul untuk Mengunduh Tekstur Format (BMP, JPG, JPEG, TGA, PNG)
Tekstur dltexturelist.pas	Manajemen Tekstur (Pencarian, Penambahan, Penghapusan)
OpenGL	Модуль для работы с OpenGL
OpenGl dlopengl.pas	Bekerja dengan Kerangka OpenGL
Image	Список изображений
Image Logo.png	Logo
Image Guipalette.bmp	Palet untuk komponen
Gambar Consolas	Font Consolas
Gambar gadigi	Font Gadigi
Gambar Verdana	Font Verdana

---

Semua komponen diwarisi dari kelas DLGUIObject.tguiObject untuk mengunduh tekstur, modul digunakan

• dltextureloader.pas
• dltextureList.pas

Untuk mulai menggunakan GUI, Anda perlu

• Buat konteks OpenGL (Modul ISP DLOPENGL.PAS)
• Unduh tekstur (dltextureloader.pas)
• Buat formulir (dlguform.pas)
• Buat komponen dan tambahkan ke formulir (komponen ...)
• Tambahkan formulir ke daftar formulir (dlguiformlist.pas)

Contoh membuat komponen:

Membentuk:

 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;

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

Tombol (tombol):

 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;

Bidang Input:

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

Form.AddComponent(EditBox);