|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.07.2007, 19:34 | #21 |
Пользователь
Регистрация: 03.02.2007
Сообщений: 45
|
Что то не сильно помогло. Куда его вставлять надо?
|
06.07.2007, 10:54 | #22 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
после создания самого куба и то же самое делай с источником света
|
06.07.2007, 15:31 | #23 | |
Пользователь
Регистрация: 03.02.2007
Сообщений: 45
|
Вот так кубик видно.
Цитата:
|
|
06.07.2007, 21:52 | #24 | |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Цитата:
|
|
06.07.2007, 22:08 | #25 | |
Пользователь
Регистрация: 03.02.2007
Сообщений: 45
|
Цитата:
|
|
07.07.2007, 10:37 | #26 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Вот тебе код из книги Краснова со всеми комментами я его чуть подправил теперь он переходит в полноэкранный режим при создании.
program WinMin; uses Windows, Messages, GlScene, GlWin32FullScreenViewer; const AppName = 'WinMin'; Var SView:TGLFullScreenViewer; Window : HWnd; {Ссылка на окно, позволяет однозначно определить каждое окно.} Message : TMsg; {Сообщение - реакция ядра Windows на какое-либо событие.} WindowClass : TWndClass; {Структура класса окна, включает адрес "оконной" функции, обрабатывающей поступающие от Windows сообщения, атрибуты всех окон, принадлежащих этому классу, т.е. задаются основные свойства класса.} function WindowProc (Window : HWnd; Message, WParam : Word; LParam : LongInt) : LongInt; stdcall; begin WindowProc := 0; case Message of wm_Destroy : begin {Ядро Windows пытается закрыть окно - обработку этого сообщения нельзя опускать.} PostQuitMessage (0); {Посылает прикладной программе сообщение wm_Quit код 0 - успешное завершение.} Exit; end; end; // Все сообщения, не обрабатываемые оконной функцией, передаются функции ядра Windows DefWindowProc. WindowProc := DefWindowProc (Window, Message, WParam, LParam); {DefWindowProc обеспечивает обработку тех сообщений окна, которые не обрабатывает прикладная программа.} end; begin // Всем полям структуры присваиваются определённые значения (определяются атрибуты окна). with WindowClass do begin Style := cs_HRedraw or cs_VRedraw; {Стиль окна класса: окно будет перерисовываться при изменении его горизонтальных и вертикальных размеров.} lpfnWndProc := @WindowProc; {Указатель на оконную функцию, которая будет обрабатывать все сообщения, посылаемые окну.} cbClsExtra := 0; {Выделенная память, используемая программой по своему усмотрению.} cbWndExtra := 0; {Выделенная память, используемая программой по своему усмотрению.} hInstance := 0; {Ссылка на экземпляр программы, используется ядром Windows для однозначного определения сегмента данных экземпляра программы.} hIcon := LoadIcon (0, idi_Application); {Ссылка на иконку для окна, для отображения минимизированного окна, сейчас - иконка, соответствующая приложению.} hCursor := LoadCursor (0, idc_Arrow); {Ссылка на курсор, сейчас - в виде стрелки.} hbrBackground := GetStockObject (White_Brush); {Ссылка на шаблон заполнения фона для окна.} lpszMenuName := ''; {Ссылка на строку имени меню.} lpszClassName := AppName; {Имя класса.} end; // Регистрация окна с заданными атрибутами. // Параметр функции - структура типа TWndClass, содержащая атрибуты окон данного класса. If RegisterClass (WindowClass) = 0 then Halt (255); {Регистрация невозможна, завершение работы программы.} Window := CreateWindow {Создает окно и возвращает ссылку на окно типа HWnd.} (AppName, {Имя класса, к которому принадлежит создаваемое окно.} 'Win_Min', {Заголовок окна.} ws_OverlappedWindow, {Стиль окна, сейчас - комбинация стилей.} cw_UseDefault, {X - начальная позиция верхнего левого угла, сейчас - значение по умолчанию.} cw_UseDefault, {Y - начальная позиция верхнего левого угла, сейчас - значение по умолчанию.} cw_UseDefault, {Width - начальная ширина окна, сейчас - значение по умолчанию.} cw_UseDefault, {Height - начальная ширина окна, сейчас - значение по умолчанию.} 0, {WndParent - родительское окно данного окна.} 0, {Menu - меню, используемое данным окном.} HInstance, {Instance - указывает на экземпляр программы. этот параметр указывается, чтобы оконная функция имела доступ к сегменту данных программы.} nil); {Param - определяет дополнительную информацию, посылаемую через сообщение wm_Create.} // Окно создано, его необходимо отбразить на экране. SView:=TGLFullScreenViewer.Create(n il); //ShowWindow (Window, CmdShow); {Отображает или делает невидимым указанное окно.} //UpdateWindow (Window); {Указывает прикладной программе, что часть окна нуждается в перерисовке.} // После того, как окно отбражено на экране, управление передаётся циклу обработки сообщений. // GetMessage извлекает сообщения из очереди и помещается в структуру типа TMsg. // Для всех сообщений, отличных от wm_Quit (завершение работы программы), эта // функция возвращает ненулевое значение и цикл продолжает обработку сообщений. while GetMessage (Message, 0, 0, 0) do begin TranslateMessage (Message); DispatchMessage (Message); Window:=SView.Handle; end; Halt (Message.wParam); end. |
07.07.2007, 15:09 | #27 |
Пользователь
Регистрация: 03.02.2007
Сообщений: 45
|
Ты издеваешься да? Я тут понял три слова из тех что в комментариях.
|
07.07.2007, 17:48 | #28 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Ну тогда я умываю руки и советую тебе почитать умные книги о подобных методах создания приложений.
|
07.07.2007, 21:10 | #29 |
Пользователь
Регистрация: 03.02.2007
Сообщений: 45
|
А где бы их взять?
|
07.07.2007, 22:30 | #30 | |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблемы с GLScene!!! | hoza_syl | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 7 | 11.02.2009 03:08 |
GLSCENE, что и как | xPAL | Свободное общение | 2 | 21.04.2008 00:20 |
3D модель в GLScene | -=<[Evklidd]>=- | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 4 | 04.02.2008 15:32 |
GLScene?? | Foll | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 3 | 09.12.2007 17:00 |
Вода в Glscene | Pedro | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 1 | 20.11.2007 21:42 |