hedgewars/uCaptions.pas
changeset 6374 b024e279587c
parent 6371 c6f73d8e87e2
child 6377 3ce19204b14b
equal deleted inserted replaced
6373:67de1f88d8f9 6374:b024e279587c
    46         begin
    46         begin
    47         FreeTexture(Captions[Group].Tex);
    47         FreeTexture(Captions[Group].Tex);
    48         Captions[Group].Tex:= nil
    48         Captions[Group].Tex:= nil
    49         end;
    49         end;
    50     
    50     
    51     if Captions[Group].Text <> s then
    51     if Captions[Group].Tex = nil then
    52         begin
    52         begin
    53         Captions[Group].Text:= s;
    53         Captions[Group].Text:= s;
    54         Captions[Group].Tex:= RenderStringTex(s, Color, fntBig)
    54         Captions[Group].Tex:= RenderStringTex(s, Color, fntBig)
    55         end;
    55         end;
    56 
    56