Skip to content

Commit

Permalink
Give horizontal splitter below SQL editor on a new query tab an Y pos…
Browse files Browse the repository at this point in the history
…ition, so it's not placed above the editor. Closes #439.
  • Loading branch information
ansgarbecker committed Dec 17, 2018
1 parent 1e1ffa2 commit f2babc8
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions source/main.pas
Expand Up @@ -10268,6 +10268,7 @@ procedure TMainForm.actNewQueryTabExecute(Sender: TObject);

QueryTab.spltQuery := TSplitter.Create(QueryTab.TabSheet);
QueryTab.spltQuery.Parent := QueryTab.TabSheet;
QueryTab.spltQuery.Top := spltQuery.Top; // Important to get it below the editor, not above. See #439
QueryTab.spltQuery.Align := spltQuery.Align;
QueryTab.spltQuery.Height := spltQuery.Height;
QueryTab.spltQuery.Cursor := spltQuery.Cursor;
Expand Down

0 comments on commit f2babc8

Please sign in to comment.