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

ideintf: add double click and delete key handlers to the component treeview. By patch of Leslie Kaye with modifications (issue #0001875, issue #0001871)

Browse Source 
git-svn-id: trunk@18591 -
This commit is contained in:
paul 2009-02-06 02:48:40 +00:00
parent 708915f844
commit d6f16cb2d9
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ideintf/objectinspector.pp
View File

@ -595,6 +595,9 @@ type
StatusBar: TStatusBar;
UndoPropertyPopupMenuItem: TMenuItem;
procedure AvailComboBoxCloseUp(Sender: TObject);
procedure ComponentTreeDblClick(Sender: TObject);
procedure ComponentTreeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComponentTreeSelectionChanged(Sender: TObject);
procedure ObjectInspectorResize(Sender: TObject);
procedure OnGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -3769,6 +3772,8 @@ begin
Height:=ComponentTreeHeight;
Parent:=Self;
Align:=alTop;
OnDblClick := @ComponentTreeDblClick;
OnKeyDown := @ComponentTreeKeyDown;
OnSelectionChanged := @ComponentTreeSelectionChanged;
Visible := FShowComponentTree;
Scrollbars := ssAutoBoth;
@ -4119,6 +4124,38 @@ begin
end;
end;
procedure TObjectInspectorDlg.ComponentTreeDblClick(Sender: TObject);
var
AComponent: TComponent;
CompEditor: TBaseComponentEditor;
ADesigner: TIDesigner;
begin
if (PropertyEditorHook=nil) or (PropertyEditorHook.LookupRoot=nil) then
Exit;
if not FSelection.IsEqual(ComponentTree.Selection) then
ComponentTreeSelectionChanged(Sender);
if not Assigned(ComponentTree.Selected) then
Exit;
AComponent := TComponent(ComponentTree.Selected.Data);
ADesigner := FindRootDesigner(AComponent);
if not (ADesigner is TComponentEditorDesigner) then
Exit;
CompEditor := GetComponentEditor(AComponent, TComponentEditorDesigner(ADesigner));
if Assigned(CompEditor) then
CompEditor.Edit;
end;
procedure TObjectInspectorDlg.ComponentTreeKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if (Shift = []) and (Key = VK_DELETE) and
(Selection.Count > 0) and (Selection[0] is TComponent) and
(MessageDlg(oisDeleteComponents, mtConfirmation,[mbYes, mbNo],0) = mrYes) then
begin
OnDeletePopupmenuItemClick(nil);
end;
end;
procedure TObjectInspectorDlg.ComponentTreeSelectionChanged(Sender: TObject);
begin
if (PropertyEditorHook=nil) or (PropertyEditorHook.LookupRoot=nil) then exit;