hedgewars/uCaptions.pas
changeset 6999 486db9d26e4b
parent 6700 e04da46ee43c
child 8026 4a4f21070479
child 8027 e5ba3dd12531
equal deleted inserted replaced
6998:f2524a80eea2 6999:486db9d26e4b
    88 
    88 
    89     for grp:= Low(TCapGroup) to High(TCapGroup) do
    89     for grp:= Low(TCapGroup) to High(TCapGroup) do
    90         with Captions[grp] do
    90         with Captions[grp] do
    91             if Tex <> nil then
    91             if Tex <> nil then
    92                 begin
    92                 begin
    93                 DrawCentered(0, offset, Tex);
    93                 DrawTextureCentered(0, offset, Tex);
    94                 inc(offset, Tex^.h + 2);
    94                 inc(offset, Tex^.h + 2);
    95                 if EndTime <= RealTicks then
    95                 if EndTime <= RealTicks then
    96                     begin
    96                     begin
    97                     FreeTexture(Tex);
    97                     FreeTexture(Tex);
    98                     Tex:= nil;
    98                     Tex:= nil;