Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
0.8.4:cameras [2022/07/20 14:37] – [Creating a Smooth Controller at Runtime] admin | 0.8.4:cameras [2022/07/22 12:55] (current) – [Creating a Smooth Controller at Runtime] admin | ||
---|---|---|---|
Line 33: | Line 33: | ||
===== Target ===== | ===== Target ===== | ||
- | A very useful property of Firemonkey' | + | A very useful property of Firemonkey' |
You can use this property for easy camera navigation in 3D space. Combine a camera component with a non-visual TDummy instance to navigate. | You can use this property for easy camera navigation in 3D space. Combine a camera component with a non-visual TDummy instance to navigate. | ||
Line 134: | Line 134: | ||
===== Smooth Camera Controller ===== | ===== Smooth Camera Controller ===== | ||
- | Since version 0.8.4.2341 a TGorillaViewport component provides an embedded // | + | Since version 0.8.4.2341 a TGorillaViewport component provides an embedded // |
This enables an easy-to-use mouse navigation for your 3D scene without any effort. | This enables an easy-to-use mouse navigation for your 3D scene without any effort. | ||
Line 220: | Line 220: | ||
procedure TForm1.FormCreate(Sender: | procedure TForm1.FormCreate(Sender: | ||
begin | begin | ||
+ | /// Deactivate design camera controller before registering user-specific events for mouse feedback | ||
+ | GorillaViewport1.UsingDesignCamera := FALSE; | ||
+ | | ||
+ | /// Register user-specific mouse events to control our camera | ||
GorillaViewport1.OnMouseUp | GorillaViewport1.OnMouseUp | ||
GorillaViewport1.OnMouseDown := DoOnViewportMouseDown; | GorillaViewport1.OnMouseDown := DoOnViewportMouseDown; | ||
Line 240: | Line 244: | ||
/// Activate the camera for rendering | /// Activate the camera for rendering | ||
GorillaViewport1.Camera := FMyCamera; | GorillaViewport1.Camera := FMyCamera; | ||
- | GorillaViewport1.UsingDesignCamera := FALSE; | ||
| | ||
[...] | [...] | ||
Line 297: | Line 300: | ||
|ShiftImpulse.Y|Get or set the current impulse for shifting on Y axis.| | |ShiftImpulse.Y|Get or set the current impulse for shifting on Y axis.| | ||
|ShiftImpulse.Z|Get or set the current impulse for shifting on Z axis.| | |ShiftImpulse.Z|Get or set the current impulse for shifting on Z axis.| | ||
+ | |||
+ | Next step: [[lights|Lights]] |