SDL: C to Pascal

[asakura]

Есть код на C:

Код: Выделить всё

    videoFlags  = SDL_OPENGL;          /* Enable OpenGL in SDL */
    videoFlags |= SDL_GL_DOUBLEBUFFER; /* Enable double buffering */
    videoFlags |= SDL_HWPALETTE;       /* Store the palette in hardware */
    videoFlags |= SDL_RESIZABLE;       /* Enable window resizing */

    /* This checks to see if surfaces can be stored in memory */
    if ( videoInfo->hw_available )
        videoFlags |= SDL_HWSURFACE;
    else
        videoFlags |= SDL_SWSURFACE;

    /* This checks if hardware blits can be done */
    if ( videoInfo->blit_hw )
        videoFlags |= SDL_HWACCEL;


Есть библиотека SDL, которая в этом коде используется.
Проблема заключается в том, что, в силу ограниченного знания pascal'я, немогу написать аналог.
Помогите:)

[divinusproject]

Код: Выделить всё

videoFlags := SDL_OPENGL or SDL_GL_DOUBLEBUFFER or SDL_HWPALETTE or SDL_RESIZABLE;
if videoInfo.hw_available then
  videoFlags := videoFlags or SDL_HWSURFACE
else
  videoFlags := videoFlags or SDL_SWSURFACE;

if videoInfo.blit_hw then videoFlags := videoFlags or SDL_HWACCEL