From dfa2679259a2543ebe7d3b32acee673a3c29694d Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Thu, 2 Apr 2015 15:21:13 +0100
Subject: ats: published FocusCol and FocusRow properties for the LangGrid
 component

---
 extras/contributed/ats/ats_editor.pas | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/extras/contributed/ats/ats_editor.pas b/extras/contributed/ats/ats_editor.pas
index 92d5ce3e..a07585ae 100644
--- a/extras/contributed/ats/ats_editor.pas
+++ b/extras/contributed/ats/ats_editor.pas
@@ -8,24 +8,23 @@ uses
   fpg_combobox, fpg_dialogs, fpg_utils;
 
 const
-  langtabledata:
-    {$I atstable.inc}
+  langtabledata: {$I atstable.inc}
 
 type
 
-  { TLangGrid }
-
   TLangGrid = class(TfpgCustomGrid)
   protected
     procedure DrawCell(ARow, ACol: Integer; ARect: TfpgRect; AFlags: TfpgGridDrawState); override;
     procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
-    function GetRowCount: Integer; override;
+    function  GetRowCount: Integer; override;
   public
     atstable: TatsTextTable;
     procedure UpdateColumns;
+  published
+    property  FocusCol;
+    property  FocusRow;
   end;
 
-  { TfrmLangTable }
 
   TfrmLangTable = class(TfpgForm)
   public
@@ -51,7 +50,6 @@ type
 
   end;
 
-  { TfrmTextEdit }
 
   TfrmTextEdit = class(TfpgForm)
   public
-- 
cgit v1.2.3-70-g09d2