paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 07:19:18 +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 object CollectionPropertyEditorForm: TCollectionPropertyEditorForm
Left = 220 Left = 176
Height = 300 Height = 300
Top = 220 Top = 232
Width = 190 Width = 190
HorzScrollBar.Page = 189 HorzScrollBar.Page = 189
VertScrollBar.Page = 299 VertScrollBar.Page = 299
@ -42,18 +42,18 @@ object CollectionPropertyEditorForm: TCollectionPropertyEditorForm
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 89 Left = 89
Top = 2 Top = 2
Width = 10 Width = 3
Caption = 'ToolButton3' Caption = 'ToolButton3'
Style = tbsSeparator Style = tbsDivider
end end
object MoveUpButton: TToolButton object MoveUpButton: TToolButton
Left = 99 Left = 92
Top = 2 Top = 2
Caption = 'Up' Caption = 'Up'
OnClick = MoveUpButtonClick OnClick = MoveUpButtonClick
end end
object MoveDownButton: TToolButton object MoveDownButton: TToolButton
Left = 143 Left = 136
Top = 2 Top = 2
Caption = 'Down' Caption = 'Down'
OnClick = MoveDownButtonClick OnClick = MoveDownButtonClick

2
ideintf/componenttreeview.pas
View File

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