Open object editor on selected list node on pressing <return>. Fixes issue #1768.

This commit is contained in:
Ansgar Becker
2010-03-14 17:19:57 +00:00
parent fc31018600
commit 1b3b16b291
2 changed files with 10 additions and 0 deletions

View File

@ -890,6 +890,7 @@ object MainForm: TMainForm
OnHeaderClick = vstHeaderClick
OnHeaderDraggedOut = vstHeaderDraggedOut
OnInitNode = ListTablesInitNode
OnKeyPress = ListTablesKeyPress
OnNewText = ListTablesNewText
Columns = <
item

View File

@ -750,6 +750,7 @@ type
procedure editFilterVTRightButtonClick(Sender: TObject);
procedure DataGridFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex);
procedure ListTablesKeyPress(Sender: TObject; var Key: Char);
private
FDelimiter: String;
FileNameSessionLog: String;
@ -8432,6 +8433,14 @@ begin
end;
procedure TMainForm.ListTablesKeyPress(Sender: TObject; var Key: Char);
begin
// Open object editor on pressing Enter
if Ord(Key) = VK_RETURN then
ListTables.OnDblClick(Sender);
end;
procedure TMainForm.ListTablesDblClick(Sender: TObject);
var
Obj: PDBObject;