หน้าแรก>การเขียนโปรแกรมที่เกี่ยวข้อง>ซอร์สโค้ดเดลฟี
ดาวน์โหลด

อินเทอร์เฟซผู้ใช้กราฟิก OpenGL

ผู้แต่ง: Ansperi LL, 2021

อีเมล: [email protected]

เว็บไซต์: http://lemgl.ru

โทรเลข: https://t.me/delphi_lemgl

รวบรวมในชุมชน 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 การทำให้เป็นอนุกรมของคลาส GUI ในรูปแบบ XML
components Компоненты
ส่วนประกอบ dlguibevel.pas กรอบ
ส่วนประกอบ dlguicheckbox.pas Chekbox (สวิตช์)
ส่วนประกอบ dlguicombobox.pas รายการเปิด
ส่วนประกอบ dlguieditbox.pas ฟิลด์อินพุตข้อความ (Single -Line)
ส่วนประกอบ dlguiimage.pas ภาพ
ส่วนประกอบ dlguilabel.pas ข้อความ (สามารถเป็นหลายบรรทัด)
ส่วนประกอบ dlguilistbox.pas รายการบรรทัด
ส่วนประกอบ dlguimainmenu.pas เมนูหลัก
ส่วนประกอบ dlguipanel.pas พาเนลที่ไม่มีส่วนประกอบสามารถแทนที่ด้วย bevel (เฟรม)
ส่วนประกอบ dlguiprogressbar.pas ตัวบ่งชี้การโหลด
ส่วนประกอบ dlguiiradiobutton.pas สวิตช์การเลือก
ส่วนประกอบ dlguitable.pas โต๊ะ
ส่วนประกอบ dlguitrackbar.pas การเลือกค่าตัวเลขโดยใช้ตัวเลื่อน
ส่วนประกอบ dlguitracker.pas ตัวติดตาม (แนวนอน/แนวตั้ง) ใช้สำหรับส่วนประกอบต่าง ๆ เช่น (combobox, listbox, ตาราง) ...
Textures Модули для работы с текстурами
พื้นผิว dltextureLoader.pas โมดูลสำหรับการดาวน์โหลดพื้นผิวรูปแบบ (BMP, JPG, JPEG, TGA, PNG)
พื้นผิว dltextureList.pas การจัดการพื้นผิว (ค้นหาเพิ่มเติมการลบ)
OpenGL Модуль для работы с OpenGL
opengl dlopengl.pas ทำงานกับเฟรมเวิร์ก OpenGL
Image Список изображений
image logo.png โลโก้
image guipalette.bmp จานสีสำหรับส่วนประกอบ
image consolas ตัวอักษร consolas
รูปภาพ gadugi ฟอนต์ Gadugi
รูปภาพ verdana ฟอนต์ Verdana

ส่วนประกอบทั้งหมดได้รับการสืบทอดมาจากคลาส dlguiobject.tguiobject เพื่อดาวน์โหลดพื้นผิวโมดูลจะใช้

  • dltextureloader.pas
  • dltextureList.pas

ในการเริ่มใช้ GUI คุณต้องการ

  • สร้างบริบทของโมดูล OpenGL (ISP DLOPENGL.PAS)
  • ดาวน์โหลดพื้นผิว (dltextureloader.pas)
  • สร้างแบบฟอร์ม (dlguform.pas)
  • สร้างส่วนประกอบและเพิ่มลงในแบบฟอร์ม (ส่วนประกอบ ... )
  • เพิ่มแบบฟอร์มลงในรายการของแบบฟอร์ม (dlguiformlist.pas)

ตัวอย่างของการสร้างส่วนประกอบ:

รูปร่าง: 

 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);
ขยาย
ข้อมูลเพิ่มเติม
แอปที่เกี่ยวข้อง
แนะนำสำหรับคุณ
ข้อมูลที่เกี่ยวข้อง ทั้งหมด