Skip to content

Commit 3e19f95

Browse files
Free-Pascal-meets-SDL-Websitesuve
authored andcommitted
add type TSDL_Flip
1 parent 41c5486 commit 3e19f95

File tree

1 file changed

+8
-3
lines changed

1 file changed

+8
-3
lines changed

units/sdlrenderer.inc

+8-3
Original file line numberDiff line numberDiff line change
@@ -77,13 +77,18 @@ const
7777
SDL_TEXTUREMODULATE_COLOR = TSDL_TextureModulate(1); {**< srcC = srcC * color *}
7878
SDL_TEXTUREMODULATE_ALPHA = TSDL_TextureModulate(2); {**< srcA = srcA * alpha *}
7979

80+
type
8081
{**
8182
* Flip constants for SDL_RenderCopyEx
8283
*}
84+
PPSDL_Flip = ^PSDL_Flip;
85+
PSDL_Flip = ^TSDL_Flip;
86+
TSDL_Flip = type cint;
87+
8388
const
84-
SDL_FLIP_NONE = $0; {**< Do not flip *}
85-
SDL_FLIP_HORIZONTAL = $1; {**< flip horizontally *}
86-
SDL_FLIP_VERTICAL = $2; {**< flip vertically *}
89+
SDL_FLIP_NONE = TSDL_Flip($0); {**< Do not flip *}
90+
SDL_FLIP_HORIZONTAL = TSDL_Flip($1); {**< flip horizontally *}
91+
SDL_FLIP_VERTICAL = TSDL_Flip($2); {**< flip vertically *}
8792

8893
type
8994
{**

0 commit comments

Comments
 (0)