hedgewars/uChat.pas
changeset 14321 79e07510b8e3
parent 13898 8c702a4839ec
child 14387 2ab312c47dc3
--- 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