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:06] – [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 220: | Line 220: | ||
procedure TForm1.FormCreate(Sender: | procedure TForm1.FormCreate(Sender: | ||
begin | begin | ||
- | /// deactivate | + | /// Deactivate |
GorillaViewport1.UsingDesignCamera := FALSE; | GorillaViewport1.UsingDesignCamera := FALSE; | ||
| | ||
+ | /// Register user-specific mouse events to control our camera | ||
GorillaViewport1.OnMouseUp | GorillaViewport1.OnMouseUp | ||
GorillaViewport1.OnMouseDown := DoOnViewportMouseDown; | GorillaViewport1.OnMouseDown := DoOnViewportMouseDown; | ||
Line 299: | 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]] |