From 153c212c2b976156aae6d2989a0080b1c71fd7ff Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Fri, 15 Mar 2024 12:00:25 +0200
Subject: [PATCH] LCL, Grids: Do not publish read-only properties
 VisibleColCount and VisibleRowCount. Publish FocusColor and FocusRectVisible.
 From n7800.

---
 lcl/grids.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index a827c65a05..758e130e3d 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -1625,6 +1625,8 @@ type
     property FixedCols;
     property FixedRows;
     property Flat;
+    property FocusColor;
+    property FocusRectVisible;
     property Font;
     property GridLineColor;
     property GridLineStyle;
@@ -1656,8 +1658,6 @@ type
     property TitleStyle;
     property UseXORFeatures;
     property Visible;
-    property VisibleColCount;
-    property VisibleRowCount;
 
     property OnAfterSelection;
     property OnBeforeSelection;
@@ -1870,6 +1870,8 @@ type
     property FixedCols;
     property FixedRows;
     property Flat;
+    property FocusColor;
+    property FocusRectVisible;
     property Font;
     property GridLineColor;
     property GridLineStyle;
@@ -1900,8 +1902,6 @@ type
     property TitleStyle;
     property UseXORFeatures;
     property Visible;
-    property VisibleColCount;
-    property VisibleRowCount;
 
     property OnAfterSelection;
     property OnBeforeSelection;