Можно ли средствами OpenGL рисовать на канве?

@ivan.-94 · Регистрация: 02.06.2012

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.
Можно ли средствами OpenGL рисовать скажем на конве формы?
Если можно то как?

Добавлено через 6 часов 10 минут
ну в общем меня интересует как можно более простой способ скинуть с процессора на видеокарту обработку графики приложения.
Писать приложение полностью на OpenGL не айс.
Есть какие идеи?

@kzru_hunter · 03.05.2015, 19:57

Вот что-то нашёл, но не пробовал: http://edn.embarcadero.com/article/10528
Это?

@ivan.-94 · 03.05.2015, 23:10 **[ТС]**

kzru_hunter, вот это уже интересно, спасибо - буду читать)))

Добавлено через 2 часа 56 минут
Столкнулся с проблемой:
Как получить HWND у TImage?
HDC то понятно - Image1->Canvas->Handle;

@gunslinger · 04.05.2015, 00:33

У Image отсутствует HWND. Но можно поместить Image на что-то, имеющее HWND. Например, на Panel, и получать уже его HWND.

C++
1
2
3
  HWND hWnd = FindWindow(L"TForm1", Caption.c_str());
  HWND hWnd2 = FindWindowEx(hWnd, NULL, L"TPanel", Panel1->Caption.c_str());
  Caption = "HWND панели = " + IntToStr(int(hWnd2));

@ivan.-94 · 04.05.2015, 00:36 **[ТС]**

gunslinger,
HWND у TPanel: Panel1->Handle;

@gunslinger · 04.05.2015, 00:50

Да, я люблю извращаться, но сути это не меняет.

@ivan.-94 · 04.05.2015, 20:35 **[ТС]**

Надеялся разгрузить процессор и заставить обрабатывать графику видеокарту - но вот я не могу понять, что происходит и за счет чего?

Можно ли средствами OpenGL рисовать на канве?

GLSkeleton.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "GLSkeleton.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Application->OnIdle = IdleLoop;
    _clear87();
    _control87(MCW_EM, MCW_EM);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdleLoop(TObject*, bool& done)
{
     done = false;
     RenderGLScene();
     SwapBuffers(hdc);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RenderGLScene()
{
     //Place your OpenGL drawing code here
    DrawBackground();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawBackground()
{
     //Place your OpenGL drawing code here
    glClear(GL_COLOR_BUFFER_BIT);
    glColor3f(1.0,0.0,0.0);
    float dx, dy;
    dy = 50;
    dx = 50;
    for (float y = 0; y < Height; y+=dy) {
        for (float x = 0; x < Width; x+=dx) {
            glBegin(GL_LINE_LOOP);
                glVertex3f(   x, y+dy, 0.0f); // Слева вверху
                glVertex3f(x+dx, y+dy, 0.0f); // Справа вверху
                glVertex3f(x+dx,     y, 0.0f); // Справа внизу
                glVertex3f(   x,     y, 0.0f); // Слева внизу
            glEnd();
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    //hdc = Image1->Canvas->Handle;//*/GetDC(Handle);
    hdc = GetDC(Panel1->Handle);
    SetPixelFormatDescriptor();
    hrc = wglCreateContext(hdc);
    wglMakeCurrent(hdc, hrc);
    SetupRC();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetupRC()
{
    glClearColor(1.0f, 1.0f, 1.0f, 1.0f);
    glClear(GL_COLOR_BUFFER_BIT);
    glFlush();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    ReleaseDC(Panel1->Handle, hdc);
    wglMakeCurrent(hdc, NULL);
    wglDeleteContext(hrc);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetPixelFormatDescriptor()
{
    PIXELFORMATDESCRIPTOR pfd = {
        sizeof(PIXELFORMATDESCRIPTOR),
        1,
        PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER,
        PFD_TYPE_RGBA,
        24,
        0,0,0,0,0,0,
        0,0,
        0,0,0,0,0,
        32,
        0,
        0,
        PFD_MAIN_PLANE,
        0,
        0,0,0
        };
    PixelFormat = ChoosePixelFormat(hdc, &pfd);
    SetPixelFormat(hdc, PixelFormat, &pfd);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
    glViewport(0, 0, Panel1->Width, Panel1->Height);
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();
 
    gluOrtho2D(0, Panel1->Width, 0, Panel1->Height);
}
//---------------------------------------------------------------------------

GLSkeleton.h

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
//---------------------------------------------------------------------------
 
#ifndef GLSkeletonH
#define GLSkeletonH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Imaging.jpeg.hpp>
#include <GL/gl.h>
#include <GL/glu.h>
#include <GL/glaux.h>
#include<float.h>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormResize(TObject *Sender);
private:    // User declarations
    HDC hdc;
    HGLRC hrc;
    int PixelFormat;
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall IdleLoop(TObject*, bool&);
    void __fastcall RenderGLScene();
    void __fastcall DrawBackground();
    void __fastcall SetPixelFormatDescriptor();
    void __fastcall SetupRC();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

@ivan.-94 · 04.05.2015, 21:09 **[ТС]**

В IdleLoop поставил done = true; и проц на ноль упал.
Что означает этот параметр в событии OnIdle ?

Добавлено через 5 минут
Вот отрыл:

OnIdle - событие ничегонеделанья, не связано с таймером.

На самом деле в TApplication.HandleMessage/ProcessMessage фактически аналог игрового цикла на PeekMessage:
If PeekMessage then <обработать> else OnIdle;
Если в OnIdle установить Done := True - Application "впадает в спячку" (WaitMessage), при Done := False будет крутиться постоянно.

Добавлено через 3 минуты
И это "Application "впадает в спячку"" не означает, что приложение висит - оно функционирует без каких либо проблем.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12

	Можно ли средствами OpenGL рисовать на канве? 03.05.2015, 19:32. Показов 2016. Ответов 7 Метки нет (Все метки) Всем доброго времени суток. Можно ли средствами OpenGL рисовать скажем на конве формы? Если можно то как? Добавлено через 6 часов 10 минут ну в общем меня интересует как можно более простой способ скинуть с процессора на видеокарту обработку графики приложения. Писать приложение полностью на OpenGL не айс. Есть какие идеи? 0

@kzru_hunter 1124 / 795 / 101 Регистрация: 01.02.2011 Сообщений: 1,887 Записей в блоге: 1
	03.05.2015, 19:57
	Вот что-то нашёл, но не пробовал: http://edn.embarcadero.com/article/10528 Это? 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	03.05.2015, 23:10 [ТС]
	kzru_hunter, вот это уже интересно, спасибо - буду читать))) Добавлено через 2 часа 56 минут Столкнулся с проблемой: Как получить HWND у TImage? HDC то понятно - Image1->Canvas->Handle; 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	04.05.2015, 00:36 [ТС]
	gunslinger, HWND у TPanel: Panel1->Handle; 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	04.05.2015, 00:50
	Да, я люблю извращаться, но сути это не меняет. 1