equal
deleted
inserted
replaced
74 SDL_TTFLibName = 'SDL_ttf.dll'; |
74 SDL_TTFLibName = 'SDL_ttf.dll'; |
75 SDL_MixerLibName = 'SDL_mixer.dll'; |
75 SDL_MixerLibName = 'SDL_mixer.dll'; |
76 SDL_ImageLibName = 'SDL_image.dll'; |
76 SDL_ImageLibName = 'SDL_image.dll'; |
77 SDL_NetLibName = 'SDL_net.dll'; |
77 SDL_NetLibName = 'SDL_net.dll'; |
78 {$ELSE} |
78 {$ELSE} |
79 {$IFDEF DARWINN} |
79 {$IFDEF DARWIN} |
80 SDLLibName = 'SDL'; |
80 SDLLibName = 'SDL'; |
81 SDL_TTFLibName = 'SDL_ttf'; |
81 SDL_TTFLibName = 'SDL_ttf'; |
82 SDL_MixerLibName = 'SDL_mixer'; |
82 SDL_MixerLibName = 'SDL_mixer'; |
83 SDL_ImageLibName = 'SDL_image'; |
83 SDL_ImageLibName = 'SDL_image'; |
84 SDL_NetLibName = 'SDL_net'; |
84 SDL_NetLibName = 'SDL_net'; |
864 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
864 function TTF_SizeUTF8(font: PTTF_Font; const text: PChar; out w, h: LongInt): LongInt; cdecl; external SDL_TTFLibName; |
865 |
865 |
866 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
866 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
867 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
867 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
868 function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
868 function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; cdecl; external SDL_TTFLibName; |
869 (* |
|
870 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; |
|
871 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; |
|
872 function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; |
|
873 *) |
|
874 function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
869 function TTF_OpenFont(const filename: PChar; size: LongInt): PTTF_Font; cdecl; external SDL_TTFLibName; |
875 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
870 procedure TTF_SetFontStyle(font: PTTF_Font; style: LongInt); cdecl; external SDL_TTFLibName; |
876 |
871 |
877 (* SDL_mixer *) |
872 (* SDL_mixer *) |
878 function Mix_Init(flags: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
873 function Mix_Init(flags: LongInt): LongInt; cdecl; external SDL_MixerLibName; |
999 SDLNet_Read32:= PByteArray(buf)^[3] or |
994 SDLNet_Read32:= PByteArray(buf)^[3] or |
1000 (PByteArray(buf)^[2] shl 8) or |
995 (PByteArray(buf)^[2] shl 8) or |
1001 (PByteArray(buf)^[1] shl 16) or |
996 (PByteArray(buf)^[1] shl 16) or |
1002 (PByteArray(buf)^[0] shl 24) |
997 (PByteArray(buf)^[0] shl 24) |
1003 end; |
998 end; |
1004 (* |
|
1005 function TTF_RenderUTF8_Solid(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; |
|
1006 begin |
|
1007 TTF_RenderUTF8_Solid:= SDL_CreateRGBSurface(SDL_SWSURFACE, 1, 1, 32, RMask, GMask, BMask, AMask); |
|
1008 end; |
|
1009 function TTF_RenderUTF8_Blended(font: PTTF_Font; const text: PChar; fg: TSDL_Color): PSDL_Surface; |
|
1010 begin |
|
1011 TTF_RenderUTF8_Blended:= SDL_CreateRGBSurface(SDL_SWSURFACE, 1, 1, 32, RMask, GMask, BMask, AMask); |
|
1012 end; |
|
1013 function TTF_RenderUTF8_Shaded(font: PTTF_Font; const text: PChar; fg, bg: TSDL_Color): PSDL_Surface; |
|
1014 begin |
|
1015 TTF_RenderUTF8_Shaded:= SDL_CreateRGBSurface(SDL_SWSURFACE, 1, 1, 32, RMask, GMask, BMask, AMask); |
|
1016 end;*) |
|
1017 end. |
999 end. |