diff --git a/source/routine_editor.dfm b/source/routine_editor.dfm
index ee7e2c5e..c24eee0d 100644
--- a/source/routine_editor.dfm
+++ b/source/routine_editor.dfm
@@ -10,7 +10,7 @@ object frmRoutineEditor: TfrmRoutineEditor
   object lblSQLcode: TLabel
     AlignWithMargins = True
     Left = 3
-    Top = 175
+    Top = 183
     Width = 600
     Height = 13
     Align = alTop
@@ -27,6 +27,15 @@ object frmRoutineEditor: TfrmRoutineEditor
     Caption = 'You have no privilege to this routine.'
     Visible = False
   end
+  object spltTop: TSplitter
+    Left = 0
+    Top = 172
+    Width = 606
+    Height = 8
+    Cursor = crSizeNS
+    Align = alTop
+    ResizeStyle = rsUpdate
+  end
   object btnSave: TButton
     Left = 165
     Top = 455
@@ -62,9 +71,9 @@ object frmRoutineEditor: TfrmRoutineEditor
   object SynMemoBody: TSynMemo
     AlignWithMargins = True
     Left = 3
-    Top = 194
+    Top = 202
     Width = 600
-    Height = 250
+    Height = 242
     Margins.Bottom = 40
     SingleLineMode = False
     Align = alClient
@@ -110,8 +119,9 @@ object frmRoutineEditor: TfrmRoutineEditor
     Top = 3
     Width = 600
     Height = 166
-    ActivePage = tabCreateCode
+    ActivePage = tabOptions
     Align = alTop
+    Constraints.MinHeight = 166
     Images = MainForm.ImageListMain
     TabOrder = 0
     object tabOptions: TTabSheet
diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index 0248bac4..f65e4642 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -5,7 +5,7 @@ interface
 uses
   Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SynEdit, SynMemo, StdCtrls,
   ComCtrls, ToolWin, VirtualTrees, SynRegExpr,
-  dbconnection, helpers, gnugettext, Vcl.Menus;
+  dbconnection, helpers, gnugettext, Vcl.Menus, Vcl.ExtCtrls;
 
 type
   TFrame = TDBObjectEditor;
@@ -48,6 +48,7 @@ type
     Selectall1: TMenuItem;
     Copy1: TMenuItem;
     Saveastextfile1: TMenuItem;
+    spltTop: TSplitter;
     procedure comboTypeSelect(Sender: TObject);
     procedure btnSaveClick(Sender: TObject);
     procedure btnHelpClick(Sender: TObject);