From b733fb8dc617adf12d33bfbf6230e44db0c7f6d1 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 18 Sep 2011 09:44:05 +0000
Subject: [PATCH] Primary key columns can be hidden in data grid. Pressing home
 key has to use first visible column instead of column 0. Fixes issue #2559.

---
 source/main.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/main.pas b/source/main.pas
index 2eaaaf33..214be7c1 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -7406,7 +7406,7 @@ var
 begin
   g := TVirtualStringTree(Sender);
   case Key of
-    VK_HOME: g.FocusedColumn := 0;
+    VK_HOME: g.FocusedColumn := g.Header.Columns.GetFirstVisibleColumn(False);
     VK_END: begin
       if (ssCtrl in Shift) and (g = DataGrid) then
         actDataShowAll.Execute;