Even wise log listview scrolling when a new bottle arrives

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 2257ec7..dbdb378 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -128,7 +128,8 @@ begin
     lvwLog.Selected := lvwLog.Items[Sel + 1];
     lvwLog.Selected.Focused := true;
   end;
-  ListView_Scroll(lvwLog.Handle, 0, High(integer));
+  if not lvwLog.Focused then
+    ListView_Scroll(lvwLog.Handle, 0, High(integer));
   lvwLog.OnChange := lvwLogChange;
 end;
 
@@ -146,7 +147,8 @@ begin
     lvwLog.Selected := lvwLog.Items[Sel + 1];
     lvwLog.Selected.Focused := true;
   end;
-  ListView_Scroll(lvwLog.Handle, 0, High(integer));
+  if not lvwLog.Focused then
+    ListView_Scroll(lvwLog.Handle, 0, High(integer));
   lvwLog.OnChange := lvwLogChange;
 end;