From 95e89c5bda7b689a6d6af35c64ee67083d554011 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Thu, 13 Mar 2014 08:01:27 +0000
Subject: [PATCH] LazReport, make ObjectInspector remember the last edited
 property on selecting objects, issue #25845

git-svn-id: trunk@44417 -
---
 components/lazreport/source/lr_desgn.pas | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/components/lazreport/source/lr_desgn.pas b/components/lazreport/source/lr_desgn.pas
index caf3aea3b4..3101cb496d 100644
--- a/components/lazreport/source/lr_desgn.pas
+++ b/components/lazreport/source/lr_desgn.pas
@@ -7583,9 +7583,19 @@ begin
   if (Obj=nil) or (Obj is TPersistent) then
   begin
     FSelectedObject:=Obj;
-    fPropertyGrid.TIObject := TPersistent(Obj);
-    if Obj <> nil then
+    if Obj=nil then
+      fPropertyGrid.Selection := nil
+    else
+    begin
       fcboxObjList.ItemIndex := fcboxObjList.Items.IndexOfObject(Obj);
+      NewSel := TPersistentSelectionList.Create;
+      try
+        NewSel.Add(TfrView(Obj));
+        fPropertyGrid.Selection := NewSel;
+      finally
+        NewSel.Free;
+      end;
+    end;
   end
   else
   if Obj is TFpList then