dglOpenGL выгодно или нет?

Здравствуйте товарищи программеры

В общем такая вот тема, сегодня где в интернете напоролся на такую библиотеку dglOpenGL, народ писал отзывы очень хорошие о ней... только вот никто не сказал как с ней работать потом на какомто форуме даже не понятно на каком языке этот форум был, я нашел кодик, вроде бы инициализации, все намного проще чем в OpenGL библиотеке, по крайней мере, все проще не так как описано в программировании ОГЛа в делфи, у того же Краснова, там замучаться можно, для меня, как для начинающего, трудно понять что к чему, а тут вот как-то проще понял всю систему инициализации и дальнейшей проработки проекта, так вот хотел спросить, правильно ли я сделал по примеру с форума, языка которого не понимал ?))))

вот я прикреплю сейчас проект, и посмотрите пожалуйста, нормально или нет

Вложения

dglOpengl.rar (220.5 Кб, 173 просмотров)

0

если вы это сделали по примеру с форума, то нет сомнений правильно.

0

Сообщение от Elch все намного проще чем в OpenGL библиотеке, по крайней мере, все проще не так как описано в программировании ОГЛа в делфи, у того же Краснова

Куда уж проще то?

0

Сообщение от NightmareZ Куда уж проще то?

Да начал я разбираться с ней за ночь

ив от проблема.... при обновлении формы, у меня страшно мерцает изображение, даже сказать не мерцает, а как пленка чуть темного цвета чем я очищаю буффер, тянется через всю форму, делая тем самым очень плохие впечатления о всей работе , и вот двойная буфферизация включена, и все вот вроде хорошо, только вот такая небольшая пакасть, посмотрел я процедуру инициализации, и в ней уже встроен формат пиксела, так что его я сам какбы отформатировать не смогу уже, ну или надо лезть куда-то в этот исходник исправлять, что я не знаю где, как и почему ..., может можно что-то сделать такого, вот когда разбирался с OpenGl была такая же самая проблема, помогло от этого избавиться включением альфа бленда, ну тут вот если я его включаю мне выпрыгивает маленькое окошко с кнопкой ОК и ничего на нем не написано, нажимаю я эту ОК окошко закрывается, но если я начинаю что-то делать с формой, то это окошко выпрыгивает снова не давая тем самым скажем растягивать окно, или тыкать по нему мышкой... вот вроде все так удобно, и все так не хорошо получилось

кто знает чем помочь. помогите пожалуйста

P.S. включение на форме DoubleBuffered := True прошу не предлагать, с этого результат получается всегда: черное окно, и загрузка не знаю от чего, процессора, да и так прогрессивно, что он виснуть начинает

0

Сообщение от Elch Да начал я разбираться с ней за ночь ив от проблема.... при обновлении формы, у меня страшно мерцает изображение, даже сказать не мерцает, а как пленка чуть темного цвета чем я очищаю буффер, тянется через всю форму, делая тем самым очень плохие впечатления о всей работе , и вот двойная буфферизация включена, и все вот вроде хорошо, только вот такая небольшая пакасть, посмотрел я процедуру инициализации, и в ней уже встроен формат пиксела, так что его я сам какбы отформатировать не смогу уже, ну или надо лезть куда-то в этот исходник исправлять, что я не знаю где, как и почему ..., может можно что-то сделать такого, вот когда разбирался с OpenGl была такая же самая проблема, помогло от этого избавиться включением альфа бленда, ну тут вот если я его включаю мне выпрыгивает маленькое окошко с кнопкой ОК и ничего на нем не написано, нажимаю я эту ОК окошко закрывается, но если я начинаю что-то делать с формой, то это окошко выпрыгивает снова не давая тем самым скажем растягивать окно, или тыкать по нему мышкой... вот вроде все так удобно, и все так не хорошо получилось кто знает чем помочь. помогите пожалуйста P.S. включение на форме DoubleBuffered := True прошу не предлагать, с этого результат получается всегда: черное окно, и загрузка не знаю от чего, процессора, да и так прогрессивно, что он виснуть начинает

Я кажется понял, в делфи все это ерунда выходит, и наверно никак этого не избежать, потому что читал книжку, к книжке были исходники автора, как он там все делал и бла бла бла, я его код запускал и там такая же бяка была... эх.... прийдется С учить

0

Сообщение от Elch Я кажется понял, в делфи все это ерунда выходит, и наверно никак этого не избежать, потому что читал книжку, к книжке были исходники автора, как он там все делал и бла бла бла, я его код запускал и там такая же бяка была... эх.... прийдется С учить

Что за поток сознания?

Чем тебе Краснов не угодил?

0

мерцание окна при изменении размеров происходит потому что винда обновляет окно и полностью заполняет канву формы цветом из свойства Color.
Вам всего лишь нужно добавить мессодж-метод формы на событие WM_ERASEBKGND

0

Сообщение от NightmareZ Что за поток сознания? Чем тебе Краснов не угодил?

На счет Краснова.....я промолчу... не нравится он мне, всмысле не Краснов , а его объяснения, много не понятно что и почему... я вот тут сижу и разбираю все по книжке OpenGL суперкнига, там хоть на С написано но более понятно и доступно для понимания, но код то с С перевести можно, за счет этой книги я понял намного больше чем я прочел этого Краснова... по крайней мере мне так вот... не знаю как другим.

Сообщение от snake32 мерцание окна при изменении размеров происходит потому что винда обновляет окно и полностью заполняет канву формы цветом из свойства Color. Вам всего лишь нужно добавить мессодж-метод формы на событие WM_ERASEBKGND Delphi 1 2 3 4 5 6 7 8 9 10 TForm = class ... procedure OnEraseBackground( var msg:TMessage ); message WM_ERASEBKGND; ... end; // где-то в implementation procedure TForm.OnEraseBackground( var msg:TMessage ); begin   msg.Result := 1;//когда Result = 1 винда не очищает фон end;

на счет мерцания, я нашел кажись лекарство... это использование InvalidateRect ... его использую и вроде все в порядке со всем

0

Сообщение от Elch на счет мерцания, я нашел кажись лекарство... это использование InvalidateRect

А до этого как было?

0

Мерцание происходит из-за того, что метод Refresh работает слишком медленно. Вместо него надо использовать InvalidateRect(...), что было написано в книге Краснова.
Попробуйте назначить Refresh на одну клавишу, а InvalidateRect на другую, и обновлять экран - вы увидите разницу (пример приведен из книги Краснова(

0

В Вашем коде есть грубые ошибки (у меня он до правки вообще не работал).

Исправте следующее и все должно быть ок:

1.
procedure TForm1.FormCreate(Sender: TObject);
begin
DC := GetDC(Handle);
RC := CreateRenderingContext(Canvas.Handle,[opDoubleBuffered],32,24,0,0,0,0);
ActivateRenderingContext(DC, RC); // - добавить
end;

2.
procedure TForm1.FormPaint(Sender: TObject);
begin
//ActivateRenderingContext(DC, RC); - удалиь
wglMakeCurrent(Canvas.Handle, RC); //используйте, если у вас есть вариант одновременной работы нескольких окон OpenGL
glClearColor(0.1,0.5,0.7,1.0);
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glPointSize(10);
glBegin(GL_POINTS);
glColor3f(0.5,1.0,0.5);
glVertex2f(0.0,0.0);
glEnd;
SwapBuffers(DC);
//DeactivateRenderingContext; - удалить
end;

3.
procedure TForm1.FormResize(Sender: TObject);
begin
wglMakeCurrent(Canvas.Handle, RC);
glViewport(0, 0, ClientWidth, ClientHeight);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
//wglMakeCurrent(0, 0); - удалить
Refresh;
end;

0