Gustav IV Adolf, 1778-1837, kung av Sverige