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

ideintf: request property values update on component treeview drag-drop (issue #0015570)

Browse Source 
git-svn-id: trunk@23580 -
This commit is contained in:
paul 2010-01-28 08:11:51 +00:00
parent 18c2ab2898
commit 41c87858e7
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ideintf/collectionpropeditform.lfm
View File

@ -1,7 +1,7 @@
object CollectionPropertyEditorForm: TCollectionPropertyEditorForm
Left = 220
Left = 176
Height = 300
Top = 220
Top = 232
Width = 190
HorzScrollBar.Page = 189
VertScrollBar.Page = 299
@ -42,18 +42,18 @@ object CollectionPropertyEditorForm: TCollectionPropertyEditorForm
object ToolButton3: TToolButton
Left = 89
Top = 2
Width = 10
Width = 3
Caption = 'ToolButton3'
Style = tbsSeparator
Style = tbsDivider
end
object MoveUpButton: TToolButton
Left = 99
Left = 92
Top = 2
Caption = 'Up'
OnClick = MoveUpButtonClick
end
object MoveDownButton: TToolButton
Left = 143
Left = 136
Top = 2
Caption = 'Down'
OnClick = MoveDownButtonClick

2
ideintf/componenttreeview.pas
View File

@ -490,6 +490,8 @@ end;
procedure TComponentTreeView.DoModified;
begin
if Assigned(PropertyEditorHook) then
PropertyEditorHook.RefreshPropertyValues;
if Assigned(FOnModified) then
OnModified(Self);
end;