/
Alexandr_mamonov
/
lab
Обзор
Документация
Войти
/
Alexandr_mamonov
/
lab
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
master
Lab3_CubeMap/fTexturing.dfm
69 строк
2 KB
Александр Мамонов
Add visualization lab projects
11 май 2026, 20:15
11 май 2026, 20:15
e92b10e
Код
Авторство
О чём код?
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Lab3_'#1050#1091#1073#1080#1095#1077#1089#1082#1072#1103' '#1082#1072#1088#1090#1072 ClientHeight = 560 ClientWidth = 700 Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Segoe UI' Font.Style = [] Position = poScreenCenter TextHeight = 15 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 700 Height = 500 Camera = GLCamera1 Buffer.BackgroundColor = clBlack FieldOfView = 157.380142211914100000 PenAsTouch = False Align = alTop OnMouseDown = GLSceneViewer1MouseDown OnMouseMove = GLSceneViewer1MouseMove OnMouseWheel = GLSceneViewer1MouseWheel TabOrder = 0 end object Button1: TButton Left = 0 Top = 508 Width = 273 Height = 44 Caption = #1047#1072#1075#1088#1091#1079#1080#1090#1100' '#1082#1091#1073#1080#1095#1077#1089#1082#1091#1102' '#1082#1072#1088#1090#1091 Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button1Click end object GLScene1: TGLScene Left = 24 Top = 16 object GLCamera1: TGLCamera DepthOfView = 100.000000000000000000 FocalLength = 50.000000000000000000 TargetObject = GLDummyCube1 Position.Coordinates = {0000803F0000803F0000803F0000803F} object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 SpotCutOff = 180.000000000000000000 end end object GLDummyCube1: TGLDummyCube CubeSize = 1.000000000000000000 object GLTeapot1: TGLTeapot end end end object OpenDialog1: TOpenDialog Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] Left = 96 Top = 16 end end