From 3265971fc4c5a69cd1bd92babe92606106d4eeae Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 7 Jan 2009 17:56:15 +0000
Subject: [PATCH] ide, ideintf: save object inspector changes when designer
 selection is changed (bug #0012868)

git-svn-id: trunk@18193 -
---
 ide/main.pp                |  1 +
 ideintf/objectinspector.pp | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/ide/main.pp b/ide/main.pp
index 12e58ae9c2..7d9528cdb5 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -11680,6 +11680,7 @@ end;
 procedure TMainIDE.OnControlSelectionPropsChanged(Sender: TObject);
 begin
   if (TheControlSelection=nil) or (FormEditor1=nil) then exit;
+  ObjectInspector1.SaveChanges;
   ObjectInspector1.RefreshPropertyValues;
 end;
 
diff --git a/ideintf/objectinspector.pp b/ideintf/objectinspector.pp
index b364458b92..0b834b76c0 100644
--- a/ideintf/objectinspector.pp
+++ b/ideintf/objectinspector.pp
@@ -681,6 +681,7 @@ type
     constructor Create(AnOwner: TComponent); override;
     destructor Destroy; override;
     procedure RefreshSelection;
+    procedure SaveChanges;
     procedure RefreshPropertyValues;
     procedure RebuildPropertyLists;
     procedure FillPersistentComboBox;
@@ -3968,6 +3969,15 @@ begin
     Visible:=true;
 end;
 
+procedure TObjectInspectorDlg.SaveChanges;
+var
+  Page: TObjectInspectorPage;
+begin
+  for Page:=Low(TObjectInspectorPage) to High(TObjectInspectorPage) do
+    if GridControl[Page]<>nil then
+      GridControl[Page].SaveChanges;
+end;
+
 procedure TObjectInspectorDlg.RefreshPropertyValues;
 var
   Page: TObjectInspectorPage;