hedgewars/uStore.pas
changeset 620 451cabd49241
parent 567 b6de36975a3c
child 689 f4ec46c48ed2
equal deleted inserted replaced
619:758da3d985fa 620:451cabd49241
   477       end;
   477       end;
   478 
   478 
   479 if setTransparent then TryDo(SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);
   479 if setTransparent then TryDo(SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY or SDL_RLEACCEL, 0) = 0, errmsgTransparentSet, true);
   480 if hasAlpha then Result:= SDL_DisplayFormatAlpha(tmpsurf)
   480 if hasAlpha then Result:= SDL_DisplayFormatAlpha(tmpsurf)
   481             else Result:= SDL_DisplayFormat(tmpsurf);
   481             else Result:= SDL_DisplayFormat(tmpsurf);
       
   482 {$IFDEF DEBUGFILE}WriteLnToConsole('(' + inttostr(tmpsurf^.w) + ',' + inttostr(tmpsurf^.h) + ') ');{$ENDIF}
   482 WriteLnToConsole(msgOK);
   483 WriteLnToConsole(msgOK);
   483 LoadImage:= Result
   484 LoadImage:= Result
   484 end;
   485 end;
   485 
   486 
   486 ////////////////////////////////////////////////////////////////////////////////
   487 ////////////////////////////////////////////////////////////////////////////////