From 4a500bbcdb5c1f3b8bfe8dcc454c2d07b210bf88 Mon Sep 17 00:00:00 2001
From: rubidium <rubidium@openttd.org>
Date: Wed, 25 Mar 2009 00:28:57 +0000
Subject: [PATCH] (svn r15843) -Codechange: with RTL the caret would always be
 drawn at the end of the textbox.

---
 src/misc_gui.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/misc_gui.cpp b/src/misc_gui.cpp
index 249b9d604c..3b2f76453b 100644
--- a/src/misc_gui.cpp
+++ b/src/misc_gui.cpp
@@ -1064,7 +1064,10 @@ void QueryString::DrawEditBox(Window *w, int wid)
 	if (tb->caretxoffs + delta < 0) delta = -tb->caretxoffs;
 
 	DrawString(delta, tb->width, 0, tb->buf, TC_YELLOW);
-	if (HasEditBoxFocus(w, wid) && tb->caret) DrawString(tb->caretxoffs + delta, tb->width + 10, 0, "_", TC_WHITE);
+	if (HasEditBoxFocus(w, wid) && tb->caret) {
+		int caret_width = GetStringBoundingBox("_").width;
+		DrawString(tb->caretxoffs + delta, tb->caretxoffs + delta + caret_width, 0, "_", TC_WHITE);
+	}
 
 	_cur_dpi = old_dpi;
 }