hedgewars/uChat.pas
changeset 7291 ad4b6c2b09e8
parent 7188 580cd247511e
child 11317 62287d4044e7
equal deleted inserted replaced
7288:5d0704f23a2a 7291:ad4b6c2b09e8
    94 cl.Width:= w + 4;
    94 cl.Width:= w + 4;
    95 SDL_UpperBlit(strSurface, nil, resSurface, nil);
    95 SDL_UpperBlit(strSurface, nil, resSurface, nil);
    96 SDL_FreeSurface(strSurface);
    96 SDL_FreeSurface(strSurface);
    97 
    97 
    98 cl.Time:= RealTicks + 12500;
    98 cl.Time:= RealTicks + 12500;
    99 cl.Tex:= Surface2Tex(resSurface, false);
    99 cl.Tex:= Surface2Atlas(resSurface, false);
   100 
       
   101 SDL_FreeSurface(resSurface)
       
   102 end;
   100 end;
   103 
   101 
   104 // For uStore texture recreation
   102 // For uStore texture recreation
   105 procedure ReloadLines;
   103 procedure ReloadLines;
   106 var i, t: LongWord;
   104 var i, t: LongWord;