paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 01:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, make ObjectInspector remember the last edited property on selecting objects, issue #25845

Browse Source 
git-svn-id: trunk@44417 -
This commit is contained in:
jesus 2014-03-13 08:01:27 +00:00
parent 221bff034a
commit 95e89c5bda
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazreport/source/lr_desgn.pas
View File

@ -7583,9 +7583,19 @@ begin
if (Obj=nil) or (Obj is TPersistent) then if (Obj=nil) or (Obj is TPersistent) then
begin begin
FSelectedObject:=Obj; 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); fcboxObjList.ItemIndex := fcboxObjList.Items.IndexOfObject(Obj);
NewSel := TPersistentSelectionList.Create;
try
NewSel.Add(TfrView(Obj));
fPropertyGrid.Selection := NewSel;
finally
NewSel.Free;
end;
end;
end end
else else
if Obj is TFpList then if Obj is TFpList then