remove shortcut "shift double click"

This commit is contained in:
DungSaga
2022-04-29 15:58:01 +07:00
parent 2877cbcdbe
commit 51476b65a5
2 changed files with 0 additions and 9 deletions

View File

@@ -1247,7 +1247,6 @@ object MainForm: TMainForm
OnChange = AnyGridChange
OnColumnResize = DataGridColumnResize
OnCreateEditor = AnyGridCreateEditor
OnDblClick = AnyGridDblClick
OnEditCancelled = AnyGridEditCancelled
OnEdited = AnyGridEdited
OnEditing = AnyGridEditing

View File

@@ -1170,7 +1170,6 @@ type
NewDPI: Integer);
procedure menuCloseTabOnDblClickClick(Sender: TObject);
procedure TimerRefreshTimer(Sender: TObject);
procedure AnyGridDblClick(Sender: TObject);
private
// Executable file details
FAppVerMajor: Integer;
@@ -10338,13 +10337,6 @@ begin
UpdateLineCharPanel;
end;
procedure TMainForm.AnyGridDblClick(Sender: TObject);
begin
if actFollowForeignKey.Enabled and KeyPressed(VK_SHIFT) then
actFollowForeignKey.Execute;
end;
procedure TMainForm.AnyGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
g: TVirtualStringTree;