![]() |
Модераторы: Snowy, Alexeis, MetalFan |
![]() ![]() ![]() |
|
Миринда |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 53 Регистрация: 18.3.2012 Репутация: нет Всего: нет |
Здравствуйте! Нужен совет в такой ситуации.
Начала изучать OpenGl. Должна выполнить лабораторную, а в последующем - курсовую. У меня Delphi 2009. Подскажите, что нужно сделать для того чтобы создать проект на OpenGl в Delphi ? Как подключить заголовочный файл позволяющий подключать библиотеку OpenGL к проектам Delphi 2009 ? Где что скачать ? |
|||
|
||||
Illusion Dolphin |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1198 Регистрация: 3.5.2003 Репутация: 13 Всего: 63 |
-------------------- В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен. Шифрование и организация фотографий - Photo Database 4.5 |
|||
|
||||
Alexeis |
|
|||
![]() Амеба ![]() Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 55 Всего: 459 |
А еще снизу ссылки есть. А вот учебник с примерами http://pmg.org.ru/nehe/
-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
Миринда |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 53 Регистрация: 18.3.2012 Репутация: нет Всего: нет |
Спасибо за подсказки!
Объясните пожалуйста, почему этот код, (взяла из видеоурока Владимира Любаева на http://www.delphiexpert.ru/) работает на Delphi7 , но не работает на Delphi 2009 ? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dglopengl, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; dc,rc: hdc; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin glClearColor (0.5, 0.1, 0.1, 1.0); //Функция для изменения цвета формы, имеющая четыре //параметра. Первые три - это цвет (R,G,B) от 0 до 1, //четвертый - прозрачность glClear (GL_COLOR_buffer_bit); //(очистка буфера цвета) SwapBuffers(dc); //Выводим буфер на экран end; procedure TForm1.FormCreate(Sender: TObject); begin DC:=GetDC(Handle); //Получаем дескриптор окна RC:=CreateRenderingContext(DC, [opDoubleBuffered],//Включаем двойную буферизацию 32, // Работаем в 32-битной системе 24, 0, 0, 0, 0); ActivateRenderingContext(DC, RC); end; end. Если я правильно поняла этот сайт http://pmg.org.ru/nehe/ обучает только на С++ ? |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Звук, графика и видео" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |