/
stud_22-365
/
GLXEngine
Обзор
Документация
Войти
/
stud_22-365
/
GLXEngine
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
external/SDL/Examples/BasicSDL/fBasicSDL_C.dfm
36 строк
1015 B
glscene
fixed external
22 янв 2026, 10:40
22 янв 2026, 10:40
9308f18
Код
Авторство
О чём код?
object DataModule2: TDataModule2 OnCreate = DataModuleCreate Height = 251 Width = 486 PixelsPerInch = 120 object GLScene1: TGLScene Left = 16 Top = 8 object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000484200004842000048420000803F} SpotCutOff = 180.000000000000000000 end object Teapot1: TGLTeapot Material.Texture.ImageClassName = 'TGLCubeMapImage' Material.Texture.TextureMode = tmReplace end object GLCamera1: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 50.000000000000000000 TargetObject = Teapot1 Position.Coordinates = {0000404000000040000000400000803F} end end object GLSDLViewer1: TSDLViewer Camera = GLCamera1 Width = 640 Height = 480 Buffer.BackgroundColor = clBlack Caption = 'GLScene SDL Test' OnResize = GLSDLViewer1Resize OnEventPollDone = GLSDLViewer1EventPollDone Left = 96 Top = 8 end end