Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

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

Lines changed: 8 additions & 3 deletions
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)

AltStyle によって変換されたページ (->オリジナル) /