71 

    71 

    72 TempSurface   := SDL_CreateRGBSurface(SDL_HWSURFACE, 724, 320, cBits, PixelFormat.RMask, PixelFormat.GMask, PixelFormat.BMask, 0);

    72 TempSurface   := SDL_CreateRGBSurface(SDL_HWSURFACE, 724, 320, cBits, PixelFormat.RMask, PixelFormat.GMask, PixelFormat.BMask, 0);

    73 TryDo(  TempSurface <> nil, errmsgCreateSurface + ': temp'  , true);

    73 TryDo(  TempSurface <> nil, errmsgCreateSurface + ': temp'  , true);

    74 

    74 

    75 TryDo(SDL_SetColorKey( StoreSurface, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);

    75 TryDo(SDL_SetColorKey( StoreSurface, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);

    77 TryDo(SDL_SetColorKey(  TempSurface, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);

    76 TryDo(SDL_SetColorKey(  TempSurface, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);

    78 end;

    77 end;

    79 

    78 

    80 procedure LoadToSurface(Filename: String; Surface: PSDL_Surface; X, Y: integer);

    79 procedure LoadToSurface(Filename: String; Surface: PSDL_Surface; X, Y: integer);

    81 var tmpsurf: PSDL_Surface;

    80 var tmpsurf: PSDL_Surface;