ADD: fix more comment positions

Author: PascalCorpsman

units/runtime/sdlclipboard.inc

@@ -7,6 +7,9 @@
 
 {* Function prototypes *}
 
+type
+  TSDL_SetClipboardText_func = function(text: PAnsiChar): cint; cdecl;
+var
 {*
  * Put UTF-8 text into the clipboard.
  *
@@ -19,12 +22,12 @@
  * \sa SDL_GetClipboardText
  * \sa SDL_HasClipboardText
   }
-type
-  TSDL_SetClipboardText_func = function(text: PAnsiChar): cint; cdecl;
-var
   SDL_SetClipboardText : TSDL_SetClipboardText_func = Nil;
 
 
+type
+  TSDL_GetClipboardText_func = function(): PAnsiChar; cdecl;
+var
 {*
  * Get UTF-8 text from the clipboard, which must be freed with SDL_free().
  *
@@ -41,12 +44,12 @@ var
  * \sa SDL_HasClipboardText
  * \sa SDL_SetClipboardText
   }
-type
-  TSDL_GetClipboardText_func = function(): PAnsiChar; cdecl;
-var
   SDL_GetClipboardText : TSDL_GetClipboardText_func = Nil;
 
 
+type
+  TSDL_HasClipboardText_func = function(): TSDL_bool; cdecl;
+var
 {*
  * Query whether the clipboard exists and contains a non-empty text string.
  *
@@ -57,12 +60,12 @@ var
  * \sa SDL_GetClipboardText
  * \sa SDL_SetClipboardText
   }
-type
-  TSDL_HasClipboardText_func = function(): TSDL_bool; cdecl;
-var
   SDL_HasClipboardText : TSDL_HasClipboardText_func = Nil;
 
 
+type
+  TSDL_SetPrimarySelectionText_func = function(text: PAnsiChar): cint; cdecl;
+var
 {*
  * Put UTF-8 text into the primary selection.
  *
@@ -75,12 +78,12 @@ var
  * \sa SDL_GetPrimarySelectionText
  * \sa SDL_HasPrimarySelectionText
   }
-type
-  TSDL_SetPrimarySelectionText_func = function(text: PAnsiChar): cint; cdecl;
-var
   SDL_SetPrimarySelectionText : TSDL_SetPrimarySelectionText_func = Nil;
 
 
+type
+  TSDL_GetPrimarySelectionText_func = function(): PAnsiChar; cdecl;
+var
 {*
  * Get UTF-8 text from the primary selection, which must be freed with
  * SDL_free().
@@ -98,12 +101,12 @@ var
  * \sa SDL_HasPrimarySelectionText
  * \sa SDL_SetPrimarySelectionText
   }
-type
-  TSDL_GetPrimarySelectionText_func = function(): PAnsiChar; cdecl;
-var
   SDL_GetPrimarySelectionText : TSDL_GetPrimarySelectionText_func = Nil;
 
 
+type
+  TSDL_HasPrimarySelectionText_func = function(): TSDL_bool; cdecl;
+var
 {*
  * Query whether the primary selection exists and contains a non-empty text
  * string.
@@ -116,8 +119,5 @@ var
  * \sa SDL_GetPrimarySelectionText
  * \sa SDL_SetPrimarySelectionText
   }
-type
-  TSDL_HasPrimarySelectionText_func = function(): TSDL_bool; cdecl;
-var
   SDL_HasPrimarySelectionText : TSDL_HasPrimarySelectionText_func = Nil;
 

units/runtime/sdlevents.inc

@@ -727,6 +727,9 @@ type
   procedure SDL_FlushEvent(type_: TSDL_EventType) cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_FlushEvent' {$ENDIF} {$ENDIF};
   procedure SDL_FlushEvents(minType, maxType: TSDL_EventType) cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_FlushEvents' {$ENDIF} {$ENDIF};
 
+  type
+    TSDL_PollEvent_func = function (event: PSDL_Event): cint32 cdecl;
+  Var
   {**
    *  Polls for currently pending events.
    *
@@ -735,9 +738,6 @@ type
    *  event - If not nil, the next event is removed from the queue and
    *               stored in that area.
    *}
-type
-  TSDL_PollEvent_func = function (event: PSDL_Event): cint32 cdecl;
-Var
   SDL_PollEvent : TSDL_PollEvent_func = Nil;
 
   {**

units/runtime/sdlgamecontroller.inc

@@ -628,6 +628,15 @@ var
   SDL_GameControllerGetSensorData : TSDL_GameControllerGetSensorData_func = Nil;
 
 
+Type
+  TSDL_GameControllerGetSensorDataWithTimestamp_func = function(
+    gamecontroller: PSDL_GameController;
+    senstype: TSDL_SensorType;
+    timestamp: pcuint64;
+    data: pcfloat;
+    num_values: cint
+  ): cint; cdecl;
+var
 {**
  * Get the current state of a game controller sensor with the timestamp of the
  * last update.
@@ -645,15 +654,6 @@ var
  *
  * \since This function is available since SDL 2.26.0.
  *}
-Type
-  TSDL_GameControllerGetSensorDataWithTimestamp_func = function(
-    gamecontroller: PSDL_GameController;
-    senstype: TSDL_SensorType;
-    timestamp: pcuint64;
-    data: pcfloat;
-    num_values: cint
-  ): cint; cdecl;
-var
   SDL_GameControllerGetSensorDataWithTimestamp : TSDL_GameControllerGetSensorDataWithTimestamp_func = Nil;
 
 type

units/runtime/sdlgesture.inc

@@ -7,6 +7,9 @@ type
 
   {* Function prototypes *}
 
+type
+  TSDL_RecordGesture_func = function(touchId: TSDL_TouchID): cint; cdecl;
+var
   {/**
  * Begin recording a gesture on a specified touch device or all touch devices.
  *
@@ -20,9 +23,6 @@ type
  *
  * \sa SDL_GetTouchDevice
  *}
-type
-  TSDL_RecordGesture_func = function(touchId: TSDL_TouchID): cint; cdecl;
-var
   SDL_RecordGesture : TSDL_RecordGesture_func = Nil;
 
 

units/runtime/sdlhints.inc

@@ -2406,6 +2406,9 @@ const
   SDL_HINT_NORMAL    = TSDL_HintPriority(1);
   SDL_HINT_OVERRIDE  = TSDL_HintPriority(2);
 
+type
+  TSDL_SetHintWithPriority_func = function(const name: PAnsiChar; const value: PAnsiChar; priority: TSDL_HintPriority): TSDL_Bool; cdecl;
+var
 {/**
  *  \brief Set a hint with a specific priority
  *
@@ -2415,20 +2418,17 @@ const
  *
  *  \return SDL_TRUE if the hint was set, SDL_FALSE otherwise
  */}
-type
-  TSDL_SetHintWithPriority_func = function(const name: PAnsiChar; const value: PAnsiChar; priority: TSDL_HintPriority): TSDL_Bool; cdecl;
-var
   SDL_SetHintWithPriority : TSDL_SetHintWithPriority_func = Nil;
 
 
+type
+  TSDL_SetHint_func = function(const name: PAnsiChar; const value: PAnsiChar): TSDL_Bool; cdecl;
+var
 {/**
  *  \brief Set a hint with normal priority
  *
  *  \return SDL_TRUE if the hint was set, SDL_FALSE otherwise
  */}
-type
-  TSDL_SetHint_func = function(const name: PAnsiChar; const value: PAnsiChar): TSDL_Bool; cdecl;
-var
   SDL_SetHint : TSDL_SetHint_func = Nil;
 
 
@@ -2469,25 +2469,25 @@ var
   SDL_ResetHints : TSDL_ResetHints_proc = Nil;
 
 
+type
+  TSDL_GetHint_func = function(const name: PAnsiChar): PAnsiChar; cdecl;
+var
 {/**
  *  \brief Get a hint
  *
  *  \return The string value of a hint variable.
  */}
-type
-  TSDL_GetHint_func = function(const name: PAnsiChar): PAnsiChar; cdecl;
-var
   SDL_GetHint : TSDL_GetHint_func = Nil;
 
 
+type
+  TSDL_GetHintBoolean_func = function(const name: PAnsiChar; default_value: TSDL_Bool): TSDL_Bool; cdecl;
+var
 {/**
  *  \brief Get a hint
  *
  *  \return The boolean value of a hint variable.
  */}
-type
-  TSDL_GetHintBoolean_func = function(const name: PAnsiChar; default_value: TSDL_Bool): TSDL_Bool; cdecl;
-var
   SDL_GetHintBoolean : TSDL_GetHintBoolean_func = Nil;
 
 
@@ -2509,16 +2509,16 @@ var
   SDL_AddHintCallback : TSDL_AddHintCallback_proc = Nil;
 
 
+type
+  TSDL_DelHintCallback_proc = procedure(const name: PAnsiChar; callback: TSDL_HintCallback; userdata: Pointer); cdecl;
+var
 {/**
  *  \brief Remove a function watching a particular hint
  *
  *  \param name The hint being watched
  *  \param callback The function being called when the hint value changes
  *  \param userdata A pointer being passed to the callback function
  */}
-type
-  TSDL_DelHintCallback_proc = procedure(const name: PAnsiChar; callback: TSDL_HintCallback; userdata: Pointer); cdecl;
-var
   SDL_DelHintCallback : TSDL_DelHintCallback_proc = Nil;
 
 

units/runtime/sdljoystick.inc

@@ -421,16 +421,16 @@ type
 const
   SDL_VIRTUAL_JOYSTICK_DESC_VERSION = 1;
 
+type
+  TSDL_JoystickAttachVirtualEx_func = function(const desc: PSDL_VirtualJoystickDesc): cint; cdecl;
+var
 {/**
  * Attach a new virtual joystick with extended properties.
  *
  * \returns the joystick's device index, or -1 if an error occurred.
  *
  * \since This function is available since SDL 2.24.0.
  */}
-type
-  TSDL_JoystickAttachVirtualEx_func = function(const desc: PSDL_VirtualJoystickDesc): cint; cdecl;
-var
   SDL_JoystickAttachVirtualEx : TSDL_JoystickAttachVirtualEx_func = Nil;