TÉMA:

function TTF_RenderText_Solid(font: PTTF_Font; text: PAnsiChar; fg: TSDL_Color): PSDL_Surface cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_RenderText_Solid' {$ENDIF} {$ENDIF};
function TTF_RenderUTF8_Solid(font: PTTF_Font; text: PAnsiChar; fg: TSDL_Color): PSDL_Surface cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_RenderUTF8_Solid' {$ENDIF} {$ENDIF};
function TTF_RenderUNICODE_Solid(font: PTTF_Font; text: PUInt16; fg: TSDL_Color): PSDL_Surface cdecl; external TTF_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_TTF_RenderUNICODE_Solid' {$ENDIF} {$ENDIF};
{* Create an 8-bit palettized surface and render the given glyph at 
   fast quality with the given font and color.  The 0 pixel is the
   colorkey, giving a transparent background, and the 1 pixel is set
   to the text color.  The glyph is rendered without any padding or
   centering in the X direction, and aligned normally in the Y direction.
   This function returns the new surface, or NULL if there was an error.
*}

function SDL_RenderCopy(renderer: PSDL_Renderer; texture: PSDL_Texture; srcrect: PSDL_Rect; dstrect: PSDL_Rect): SInt32 cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_RenderCopy' {$ENDIF} {$ENDIF};
{
  Copy a portion of the source texture to the current rendering target, rotating it by angle around the given center
 
   renderer The renderer which should copy parts of a texture.
   texture   The source texture.
   srcrect   A pointer to the source rectangle, or NULL for the entire texture.
   dstrect   A pointer to the destination rectangle, or NULL for the entire rendering target.
 
   0 on success, or -1 on error
}

  PSDL_Rect = ^TSDL_Rect;
  TSDL_Rect = record
    x,y: SInt32;
    w,h: SInt32;
  end;

{$mode delphi}
 
uses sdl{, sdl_ttf};
 
var
  sx,sy,bpp:Integer; // grafikus felület beállításai
  S:PSDL_Surface; // "rajzvászon" felülete, ezt küljük majd a képernyőre
 
  E:PSDL_Event; // eseménykezeléshez - beviteli eszközök
  Quit:Boolean; // kilépési szándék
 
  P,R:PSDL_Rect; // téglalapok
  C:Integer; // szín
  I:Integer; // számláló
 
begin
 
  sx:=800; // szélesség
  sy:=600; // magasság
  bpp:=32; // színmálység (bits)
 
  //S:=SDL_SetVideoMode(sx,sy,bpp,SDL_FULLSCREEN); // teljes képernyő használata
  S:=SDL_SetVideoMode(sx,sy,bpp,SDL_SWSURFACE); // ablak használata
 
  SDL_Init(SDL_INIT_EVERYTHING); // mindent használunk
 
  E:=New(PSDL_Event); // eseménykezeléshez: beviteli eszközök
 
  P:=New(PSDL_Rect); // háttér
  P^.x:=0;
  P^.y:=0;
  P^.w:=sx;
  P^.h:=sy;
 
  R:=New(PSDL_Rect); // kis téglalapok
 
  repeat // ismétlés: rajzolás ==> megjelenítés ==> eseménykezelés ==> szünet
 
	SDL_FillRect(S,P,$00000000); // háttér kitöltése fekete színnel
 
    for I:=0 to 99 do begin // kis téglalapok rajzolása véletlenszerű színekkel
		R^.x:=random(sx)-50;
		R^.y:=random(sy)-50;
		R^.w:=random(100);
		R^.h:=random(100);
		C:=random($ffffffff);
		SDL_FillRect(S,R,C);
	end;
 
	//ide mégtöbb rajzolás kerülhet, pl. szöveg kiírása vagy akármi
 
    SDL_Flip(S); // elkészített kép megjelenítése a grafikus felületen 
 
    while SDL_PollEvent(E)>0 do // eseménykezelés - kilépés billentyűvel
		if E^.type_ = SDL_KEYDOWN then begin
			Quit:=True;
			Break;
		end;
 
	SDL_Delay(250); // szünet
 
  until Quit; // kilépési szándék figyelése
 
  SDL_Quit; // grafikus felület bezárása
 
end.