Skip to content
Permalink
Browse files

Fix crash while casting Sender to TAction for debugging purposes

  • Loading branch information...
ansgarbecker committed Apr 22, 2019
1 parent fad93ac commit 5c2263b2946199b4df95597bcd41eb21c5e15e28
Showing with 1 addition and 1 deletion.
  1. +1 −1 source/main.pas
@@ -9230,7 +9230,7 @@ procedure TMainForm.AnyGridKeyDown(Sender: TObject; var Key: Word; Shift: TShift
end;
end;
VK_RETURN: if Assigned(g.FocusedNode) then g.EditNode(g.FocusedNode, g.FocusedColumn);
VK_DOWN: if g.FocusedNode = g.GetLast then actDataInsertExecute(Sender);
VK_DOWN: if g.FocusedNode = g.GetLast then actDataInsertExecute(actDataInsert);
VK_NEXT: if (g = DataGrid) and (g.FocusedNode = g.GetLast) then actDataShowNext.Execute;
end;
end;

0 comments on commit 5c2263b

Please sign in to comment.
You can’t perform that action at this time.