/
ArtemSls
/
O3DM
Обзор
Документация
Войти
/
ArtemSls
/
O3DM
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
patch
Lab13/fVR.cpp
41 строка
1 KB
ArtemSls
upload files
24 янв 2025, 03:56
24 янв 2025, 03:56
eb6a77b
Код
Авторство
О чём код?
// --------------------------------------------------------------------------- #include <fmx.h> #pragma hdrstop #include "fVR.h" // --------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.fmx" #pragma resource ("*.Surface.fmx", _PLAT_MSWINDOWS) TForm2 *Form2; // --------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } // --------------------------------------------------------------------------- void __fastcall TForm2::FormCreate(TObject *Sender) { Viewport3D2->Expand = 0.25; Viewport3D2->Stereo = True; } // --------------------------------------------------------------------------- void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key, System::WideChar &KeyChar, TShiftState Shift) { if (KeyChar == 'W' || KeyChar == 'w') { CameraUI->Position->Z = CameraUI->Position->Z - 0.5; } if (KeyChar == 'S' || KeyChar == 's') { CameraUI->Position->Z = CameraUI->Position->Z + 0.5; } if (KeyChar == 'D' || KeyChar == 'd') { CameraUI->Position->X = CameraUI->Position->X - 0.5; } if (KeyChar == 'A' || KeyChar == 'a') { CameraUI->Position->X = CameraUI->Position->X + 0.5; } } // ---------------------------------------------------------------------------