messages, support for quick jump using kbrd

- arrows up/down: as single LMB
- enter: as double LMB

src/ce_messages.pas

@@ -277,17 +277,23 @@ end;
 procedure TCEMessagesWidget.ListKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 var
-  i: NativeInt;
+  i: Integer;
 begin
-  if Key in [VK_BACK, VK_DELETE] then
+  case Key of
-  begin
+    VK_BACK, VK_DELETE:
-    if List.SelectionCount > 0 then
     begin
-    for i := List.Items.Count-1 downto 0 do
+      if List.SelectionCount > 0 then
-      if List.Items[i].MultiSelected then
+      begin
-        List.Items.Delete(List.Items[i]);
+      for i := List.Items.Count-1 downto 0 do
-    end
+        if List.Items[i].MultiSelected then
-    else clearbyContext(amcAll);
+          List.Items.Delete(List.Items[i]);
+      end
+      else clearbyContext(amcAll);
+    end;
+    VK_UP, VK_DOWN:
+      if fOptions.singleMessageClick then handleMessageClick(nil);
+    VK_RETURN:
+      handleMessageClick(nil);
   end;
 end;