hedgewars/uChat.pas
changeset 3085 c6c57c499034
parent 3038 4e48c276a468
child 3376 faee68a28b82
equal deleted inserted replaced
3084:a12771928d40 3085:c6c57c499034
   124 if (GameState = gsChat)
   124 if (GameState = gsChat)
   125     and (InputStr.Tex <> nil) then
   125     and (InputStr.Tex <> nil) then
   126     begin
   126     begin
   127     r.w:= InputStr.Width;
   127     r.w:= InputStr.Width;
   128     DrawFillRect(r);
   128     DrawFillRect(r);
       
   129     Tint(0, 0, 0, 0.5);
       
   130     DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex);
       
   131     Tint(1, 1, 1, 1);
   129     DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex);
   132     DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex);
   130     end;
   133     end;
   131 
   134 
   132 dec(r.y, 16);
   135 dec(r.y, 16);
   133 
   136 
   140     and
   143     and
   141         (Strs[i].Tex <> nil) do
   144         (Strs[i].Tex <> nil) do
   142     begin
   145     begin
   143     r.w:= Strs[i].Width;
   146     r.w:= Strs[i].Width;
   144     DrawFillRect(r);
   147     DrawFillRect(r);
       
   148     Tint(0, 0, 0, 0.5);
       
   149     DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex);
       
   150     Tint(1, 1, 1, 1);
   145     DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex);
   151     DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex);
   146     dec(r.y, 16);
   152     dec(r.y, 16);
   147 
   153 
   148     if i = 0 then i:= MaxStrIndex else dec(i);
   154     if i = 0 then i:= MaxStrIndex else dec(i);
   149     inc(cnt);
   155     inc(cnt);