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

IDE, OI: Update the component ComboBox properly when it is visible. Issue #32427.

Browse Source 
git-svn-id: trunk@55877 -
This commit is contained in:
juha 2017-09-17 10:34:48 +00:00
parent 15826d0ab0
commit 8f3d7a7dea
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/ideintf/objectinspector.pp
View File

@ -799,6 +799,7 @@ type
procedure RefreshPropertyValues;
procedure RebuildPropertyLists;
procedure FillComponentList;
procedure UpdateComponentValues;
procedure BeginUpdate;
procedure EndUpdate;
function GetActivePropertyGrid: TOICustomPropertyGrid;
@ -4586,6 +4587,14 @@ begin
FillPersistentComboBox;
end;
procedure TObjectInspectorDlg.UpdateComponentValues;
begin
if FShowComponentTree then
ComponentTree.UpdateComponentNodesValues
else
FillPersistentComboBox;
end;
procedure TObjectInspectorDlg.FillPersistentComboBox;
var
a: integer;

4
ide/main.pp
View File

@ -12926,10 +12926,10 @@ begin
if ObjectInspector1=Nil then Exit;
if PropName='' then
// Item may be added or deleted or whatever.
ObjectInspector1.ComponentTree.RebuildComponentNodes
ObjectInspector1.FillComponentList
else
// Any change of property can cause a change in display name.
ObjectInspector1.ComponentTree.UpdateComponentNodesValues;
ObjectInspector1.UpdateComponentValues;
end;
{-------------------------------------------------------------------------------