CFirstPersonCamera

type CFirstPersonCamera = class(CBaseCamera)

protected

  m_mCameraWorld: TD3DXMatrix;

  m_nActiveButtonMask: Integer;

  m_bRotateWithoutButtonDown: Boolean;

  m_bResetCursorAfterMove: Boolean;

public

  constructor Create;

  procedure FrameMove(); override;

  procedure SetRotateButtons();

  procedure SetResetCursorAfterMove();

  function GetWorldMatrix;

  function GetWorldRight;

  function GetWorldUp;

  function GetWorldAhead;

  function GetEyePt;

end;

CFirstPersonCamera

CBaseCamera

TObject