Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revisionBoth sides next revision
0.8.4:cameras [2022/07/20 16:02] – [Smooth Camera Controller] admin0.8.4:cameras [2022/07/20 16:06] – [Creating a Smooth Controller at Runtime] admin
Line 220: Line 220:
 procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
 begin begin
 +  /// deactivate design camera controller before registering user-specific events for mouse feedback
 +  GorillaViewport1.UsingDesignCamera := FALSE;
 +  
   GorillaViewport1.OnMouseUp   := DoOnViewportMouseUp;   GorillaViewport1.OnMouseUp   := DoOnViewportMouseUp;
   GorillaViewport1.OnMouseDown := DoOnViewportMouseDown;   GorillaViewport1.OnMouseDown := DoOnViewportMouseDown;
Line 240: Line 243:
   /// Activate the camera for rendering   /// Activate the camera for rendering
   GorillaViewport1.Camera := FMyCamera;   GorillaViewport1.Camera := FMyCamera;
-  GorillaViewport1.UsingDesignCamera := FALSE; 
      
   [...]   [...]