From d071bc31f6a61bc0696756ee0b3b7420d4c225a7 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 20 Jun 2015 11:41:23 +0200
Subject: [PATCH] reset message horz scrollbar on new item

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

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index b27538e5..02c4f4be 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -42,6 +42,9 @@ type
     procedure AssignTo(Dest: TPersistent); override;
   end;
 
+  TTreeHack = class(TTreeView)
+  end;
+
   { TCEMessagesWidget }
 
   TCEMessagesWidget = class(TCEWidget, ICEEditableOptions, ICEMultiDocObserver, ICEProjectObserver, ICEMessagesDisplay)
@@ -585,8 +588,8 @@ begin
   item.SelectedIndex := item.ImageIndex;
   if not fastDisplay then
   begin
-    //TODO-cfeature: reset horz scroll bar to the left
     clearOutOfRangeMessg;
+    TTreeHack(list).scrolledLeft := 0;
     scrollToBack;
     Application.ProcessMessages;
     filterMessages(fCtxt);