Permalink
Browse files

fix exception in early stage of table editor initialization

  • Loading branch information...
ansgarbecker committed May 18, 2017
1 parent a50c21a commit 68b46b2b3f0605beb71f037c408ce51b9ee42770
Showing with 4 additions and 2 deletions.
  1. +4 −2 source/table_editor.pas
View
@@ -1881,10 +1881,12 @@ procedure TfrmTableEditor.PageControlMainChange(Sender: TObject);
end
// Ensure SynMemo's have focus, otherwise Select-All and Copy actions may fail
else if PageControlMain.ActivePage = tabCREATEcode then begin
SynMemoCreateCode.SetFocus;
if SynMemoCreateCode.CanFocus then
SynMemoCreateCode.SetFocus;
end
else if PageControlMain.ActivePage = tabALTERcode then begin
SynMemoAlterCode.SetFocus;
if SynMemoALTERcode.CanFocus then
SynMemoAlterCode.SetFocus;
end;
UpdateSQLcode;
end;

0 comments on commit 68b46b2

Please sign in to comment.