Differences
This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revisionNext revisionBoth sides next revision | ||
| 0.8.4:cameras [2022/07/20 16:02] – [Smooth Camera Controller] admin | 0.8.4:cameras [2022/07/20 16:07] – [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; | ||
| | | ||
| [...] | [...] | ||