الصفحة الرئيسية>المتعلقة بالبرمجة>كود مصدر دلفي
تنزيل

واجهة مستخدم الرسومات OpenGL

المؤلف: Ansperi LL ، 2021

البريد الإلكتروني: [email protected]

الموقع: http://lemgl.ru

Telegram: 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 تسلسل فئات واجهة المستخدم الرسومية بتنسيق XML
components Компоненты
المكونات dlguibevel.pas إطار
مكونات dlguicheckbox.pas Chekbox (التبديل)
المكونات dlGuicombobox.pas قائمة الافتتاح
المكونات dlguieditbox.pas حقل إدخال النص (سطر واحد)
المكونات dlGuiimage.pas صورة
مكونات dlguilabel.pas نص (يمكن أن يكون متعدد السطر)
المكونات dlGuilistbox.pas قائمة الخطوط
مكونات dlGuimaInmenu.Pas القائمة الرئيسية
المكونات dlguipanel.pas لوحة بدون مكونات ، يمكن استبدالها بـ Bevel (إطار)
مكونات dlGuiprogressBar.pas مؤشر التحميل
مكونات dlguiiradiobutton.pas مفاتيح الاختيار
المكونات dlguitable.pas طاولة
المكونات dlguitrackbar.pas اختيار قيمة رقمية باستخدام شريط التمرير
مكونات dlguitracker.pas يتم استخدام Tracker (الأفقي/العمودي) لمكونات مثل (Combobox ، Listbox ، الجدول) ...
Textures Модули для работы с текстурами
القوام dlTextUreloader.pas وحدة تنزيل تنسيق القوام (BMP ، JPG ، JPEG ، TGA ، PNG)
القوام dlTextUrelist.pas إدارة الملمس (البحث ، الإضافة ، الحذف)
OpenGL Модуль для работы с OpenGL
OpenGL dlopengl.pas العمل مع الإطار OpenGL
Image Список изображений
صورة logo.png شعار
Image Guipalette.bmp لوحة للمكونات
صورة consolas خطوط خطوط
الصور gadugi الخط غادوجي
الصور verdana خط فيردانا

جميع المكونات موروثة من فئة dlguiObject.tguiObject لتنزيل الملمس ، يتم استخدام الوحدات النمطية

  • dltextureloader.pas
  • dltexturelist.pas

لبدء استخدام واجهة المستخدم الرسومية ، تحتاج

  • قم بإنشاء سياق 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);
يوسع
معلومات إضافية
تطبيقات ذات صلة
نوصي لك
أخبار ذات صلة الكل