paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 10:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide, ideintf: save object inspector changes when designer selection is changed (bug #0012868)

Browse Source 
git-svn-id: trunk@18193 -
This commit is contained in:
paul 2009-01-07 17:56:15 +00:00
parent f6bd9d3638
commit 3265971fc4
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/main.pp
View File

@ -11680,6 +11680,7 @@ end;
procedure TMainIDE.OnControlSelectionPropsChanged(Sender: TObject); procedure TMainIDE.OnControlSelectionPropsChanged(Sender: TObject);
begin begin
if (TheControlSelection=nil) or (FormEditor1=nil) then exit; if (TheControlSelection=nil) or (FormEditor1=nil) then exit;
ObjectInspector1.SaveChanges;
ObjectInspector1.RefreshPropertyValues; ObjectInspector1.RefreshPropertyValues;
end; end;

10
ideintf/objectinspector.pp
View File

@ -681,6 +681,7 @@ type
constructor Create(AnOwner: TComponent); override; constructor Create(AnOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure RefreshSelection; procedure RefreshSelection;
procedure SaveChanges;
procedure RefreshPropertyValues; procedure RefreshPropertyValues;
procedure RebuildPropertyLists; procedure RebuildPropertyLists;
procedure FillPersistentComboBox; procedure FillPersistentComboBox;
@ -3968,6 +3969,15 @@ begin
Visible:=true; Visible:=true;
end; 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; procedure TObjectInspectorDlg.RefreshPropertyValues;
var var
Page: TObjectInspectorPage; Page: TObjectInspectorPage;