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 16:02] – [Smooth Camera Controller] admin | 0.8.4:cameras [2022/07/22 12:55] (current) – [Creating a Smooth Controller at Runtime] admin | ||
|---|---|---|---|
| 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]] | ||