hedgewars/uChat.pas
changeset 2161 0c8634241fa4
parent 2131 8b9f7a407408
child 2290 bf87ca44782e
--- a/hedgewars/uChat.pas	Sat Jun 13 11:32:23 2009 +0000
+++ b/hedgewars/uChat.pas	Sat Jun 13 15:30:40 2009 +0000
@@ -93,7 +93,7 @@
 t:= 0;
 i:= lastStr;
 
-r.x:= 6;
+r.x:= 6 - cScreenWidth div 2;
 r.y:= (visibleCount - t) * 16 + 10;
 r.h:= 16;
 
@@ -102,7 +102,7 @@
 	begin
 	r.w:= InputStr.Width;
 	DrawFillRect(r);
-	DrawTexture(8, visibleCount * 16 + 10, InputStr.Tex);
+	DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex);
 	end;
 
 dec(r.y, 16);
@@ -118,7 +118,7 @@
 	begin
 	r.w:= Strs[i].Width;
 	DrawFillRect(r);
-	DrawTexture(8, (visibleCount - t) * 16 - 6, Strs[i].Tex);
+	DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex);
 	dec(r.y, 16);
 	
 	if i = 0 then i:= MaxStrIndex else dec(i);