Touch: Fix chat rendered on top of turn timer
authorWuzzy <Wuzzy2@mail.ru>
Mon, 26 Nov 2018 18:03:39 +0100
changeset 14321 79e07510b8e3
parent 14320 5cff42e1dd92
child 14322 8fc6ac47f00a
Touch: Fix chat rendered on top of turn timer
hedgewars/uChat.pas
--- a/hedgewars/uChat.pas	Mon Nov 26 17:59:27 2018 +0100
+++ b/hedgewars/uChat.pas	Mon Nov 26 18:03:39 2018 +0100
@@ -299,8 +299,13 @@
     visibleCount:= 0;
 
 // draw chat lines with some distance from screen border
+{$IFDEF USE_TOUCH_INTERFACE}
+left:= 4 - cScreenWidth div 2;
+top := 55 + visibleCount * ClHeight; // we start with input line (if any)
+{$ELSE}
 left:= 4 - cScreenWidth div 2;
 top := 10 + visibleCount * ClHeight; // we start with input line (if any)
+{$ENDIF}
 
 // draw chat input line first and under all other lines
 if isInChatMode and (InputStr.Tex <> nil) then