Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.07.2010, 00:15   #1
Miha85193
Delphi, OpenGL API
Форумчанин
 
Аватар для Miha85193
 
Регистрация: 29.03.2010
Сообщений: 152
По умолчанию Как проверить готова ли программа к выводу фигур

Есть модуль, который содержит методы, выводящие фигуры, с помощью OpenGL, на поверхность окна. Если правильно не инициализировать OpenGL в приложении, то при запуске оно вылетит с ошибкой. Я хочу усовершенствовать данный модуль, а именно ввести в него процедуру, которая проверяла бы, готова ли OpenGL к выводу, на пример вот этого:
Код:
    glBegin(GL_QUADS);                   
    glColor3f(0.0,1.0,0.0);           
    glNormal3f(0.0, 0.0, 1.0);
    glVertex3f( 1.0, 1.0,-1.0);         
    glVertex3f(-1.0, 1.0,-1.0);      
    glVertex3f(-1.0, 1.0, 1.0);        
    glVertex3f( 1.0, 1.0, 1.0);         

    glColor3f(1.0,0.5,0.0);           
    glNormal3f(-1.0, 0.0, 0.0);
    glVertex3f( 1.0,-1.0, 1.0);          
    glVertex3f(-1.0,-1.0, 1.0);        
    glVertex3f(-1.0,-1.0,-1.0);        
    glVertex3f( 1.0,-1.0,-1.0);       

    glColor3f(1.0,0.0,0.0);             
    glNormal3f(1.0, 0.0, 0.0);
    glVertex3f( 1.0, 1.0, 1.0);          
    glVertex3f(-1.0, 1.0, 1.0);         
    glVertex3f(-1.0,-1.0, 1.0);         
    glVertex3f( 1.0,-1.0, 1.0);          

    glColor3f(1.0,1.0,0.0);             
    glNormal3f(0.0, 1.0, 0.0);
    glVertex3f( 1.0,-1.0,-1.0);          
    glVertex3f(-1.0,-1.0,-1.0);       
    glVertex3f(-1.0, 1.0,-1.0);        
    glVertex3f( 1.0, 1.0,-1.0);         

    glColor3f(0.0,0.0,1.0);           
    glNormal3f(0.0, -1.0, 0.0);
    glVertex3f(-1.0, 1.0, 1.0);      
    glVertex3f(-1.0, 1.0,-1.0);     
    glVertex3f(-1.0,-1.0,-1.0);      
    glVertex3f(-1.0,-1.0, 1.0);     

    glColor3f(1.0,0.0,1.0);          

    glVertex3f( 1.0, 1.0,-1.0);          
    glVertex3f( 1.0, 1.0, 1.0);         
    glVertex3f( 1.0,-1.0, 1.0);         
    glVertex3f( 1.0,-1.0,-1.0);       
  glEnd();
Miha85193 вне форума Ответить с цитированием
Старый 15.07.2010, 00:20   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

if wglGetCurrentContext<>0 then //контекст GL выбран, можно выводить.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 17.07.2010, 17:34   #3
Miha85193
Delphi, OpenGL API
Форумчанин
 
Аватар для Miha85193
 
Регистрация: 29.03.2010
Сообщений: 152
По умолчанию

А если на пример не была вызвана InitOpenGL?
Miha85193 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа готова – пол дела, Главное защита от копирования!.. Игорь22 Общие вопросы Delphi 15 03.02.2015 14:47
Как проверить, верно ли считает программа? Mixim Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 05.12.2009 07:14
Microsoft готова заплатить News Corp. за уход из баз Google Levsha100 Свободное общение 7 25.11.2009 23:54
нужна помощ задача почти готова 33artem Паскаль, Turbo Pascal, PascalABC.NET 1 24.05.2009 18:08