hedgewars/uChat.pas
changeset 2290 bf87ca44782e
parent 2161 0c8634241fa4
child 2376 ece7b87f1334
equal deleted inserted replaced
2289:cb850ba733bd 2290:bf87ca44782e
    69 cl.Width:= w + 4;
    69 cl.Width:= w + 4;
    70 SDL_UpperBlit(strSurface, nil, resSurface, nil);
    70 SDL_UpperBlit(strSurface, nil, resSurface, nil);
    71 SDL_FreeSurface(strSurface);
    71 SDL_FreeSurface(strSurface);
    72 
    72 
    73 cl.Time:= RealTicks + 12500;
    73 cl.Time:= RealTicks + 12500;
    74 cl.Tex:= Surface2Tex(resSurface);
    74 cl.Tex:= Surface2Tex(resSurface, false);
    75 
    75 
    76 SDL_FreeSurface(resSurface)
    76 SDL_FreeSurface(resSurface)
    77 end;
    77 end;
    78 
    78 
    79 procedure AddChatString(s: shortstring);
    79 procedure AddChatString(s: shortstring);