object frmRoutineEditor: TfrmRoutineEditor
  Left = 0
  Height = 625
  Top = 0
  Width = 875
  ClientHeight = 625
  ClientWidth = 875
  DesignTimePPI = 120
  ParentFont = False
  TabOrder = 0
  object lblSQLcode: TLabel
    Left = 6
    Height = 20
    Top = 238
    Width = 863
    Align = alTop
    BorderSpacing.Around = 6
    Caption = 'Routine body:'
    FocusControl = SynMemoBody
  end
  object lblDisabledWhy: TLabel
    AnchorSideLeft.Control = btnSave
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 306
    Height = 20
    Top = 599
    Width = 241
    Anchors = [akLeft, akBottom]
    BorderSpacing.Around = 6
    Caption = 'You have no privilege to this routine.'
    Visible = False
  end
  object spltTop: TSplitter
    Cursor = crVSplit
    Left = 0
    Height = 10
    Top = 222
    Width = 875
    Align = alTop
    ResizeAnchor = akTop
  end
  object btnSave: TButton
    AnchorSideLeft.Control = btnDiscard
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 206
    Height = 31
    Top = 588
    Width = 94
    Anchors = [akLeft, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Save'
    Default = True
    TabOrder = 4
    OnClick = btnSaveClick
  end
  object btnDiscard: TButton
    AnchorSideLeft.Control = btnHelp
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 106
    Height = 31
    Top = 588
    Width = 94
    Anchors = [akLeft, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Discard'
    ModalResult = 2
    TabOrder = 3
    OnClick = btnDiscardClick
  end
  object btnHelp: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 6
    Height = 31
    Top = 588
    Width = 94
    Anchors = [akLeft, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Help'
    TabOrder = 2
    OnClick = btnHelpClick
  end
  inline SynMemoBody: TSynEdit
    AnchorSideBottom.Control = btnSave
    Left = 6
    Height = 318
    Top = 264
    Width = 863
    Align = alTop
    BorderSpacing.Around = 6
    Anchors = [akTop, akLeft, akRight, akBottom]
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Font.Quality = fqNonAntialiased
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    OnDragDrop = SynMemoBodyDragDrop
    OnDragOver = SynMemoBodyDragOver
    Gutter.LeftOffset = 2
    Gutter.Width = 70
    Gutter.MouseActions = <>
    RightGutter.Width = 0
    RightGutter.MouseActions = <>
    Highlighter = MainForm.SynSQLSynUsed
    Keystrokes = <>
    MouseActions = <>
    MouseTextActions = <>
    MouseSelActions = <>
    Lines.Strings = (
      'SynMemoBody'
    )
    VisibleSpecialChars = [vscSpace, vscTabAtLast]
    RightEdge = 0
    SelectedColor.BackPriority = 50
    SelectedColor.ForePriority = 50
    SelectedColor.FramePriority = 50
    SelectedColor.BoldPriority = 50
    SelectedColor.ItalicPriority = 50
    SelectedColor.UnderlinePriority = 50
    SelectedColor.StrikeOutPriority = 50
    BracketHighlightStyle = sbhsBoth
    BracketMatchColor.Background = clNone
    BracketMatchColor.Foreground = clNone
    BracketMatchColor.Style = [fsBold]
    FoldedCodeColor.Background = clNone
    FoldedCodeColor.Foreground = clGray
    FoldedCodeColor.FrameColor = clGray
    MouseLinkColor.Background = clNone
    MouseLinkColor.Foreground = clBlue
    LineHighlightColor.Background = clNone
    LineHighlightColor.Foreground = clNone
    TabWidth = 3
    OnChange = Modification
    inline SynLeftGutterPartList1: TSynGutterPartList
      object SynGutterMarks1: TSynGutterMarks
        Width = 30
        MouseActions = <>
      end
      object SynGutterLineNumber1: TSynGutterLineNumber
        Width = 17
        MouseActions = <>
        MarkupInfo.Background = clBtnFace
        MarkupInfo.Foreground = clNone
        DigitCount = 2
        ShowOnlyLineNumbersMultiplesOf = 1
        ZeroStart = False
        LeadingZeros = False
      end
      object SynGutterChanges1: TSynGutterChanges
        Width = 5
        MouseActions = <>
        ModifiedColor = 59900
        SavedColor = clGreen
      end
      object SynGutterSeparator1: TSynGutterSeparator
        Width = 3
        MouseActions = <>
        MarkupInfo.Background = clWhite
        MarkupInfo.Foreground = clGray
      end
      object SynGutterCodeFolding1: TSynGutterCodeFolding
        Width = 13
        MouseActions = <>
        MarkupInfo.Background = clNone
        MarkupInfo.Foreground = clGray
        MouseActionsExpanded = <>
        MouseActionsCollapsed = <>
      end
    end
  end
  object PageControlMain: TPageControl
    Left = 6
    Height = 210
    Top = 6
    Width = 863
    ActivePage = tabOptions
    Align = alTop
    AutoSize = True
    BorderSpacing.Around = 6
    Constraints.MinHeight = 125
    Images = MainForm.ImageListIcons8
    TabIndex = 0
    TabOrder = 0
    OnChange = PageControlMainChange
    object tabOptions: TTabSheet
      Caption = 'Options'
      ClientHeight = 177
      ClientWidth = 855
      ImageIndex = 39
      object lblName: TLabel
        AnchorSideLeft.Control = tabOptions
        AnchorSideTop.Control = editName
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 20
        Top = 10
        Width = 43
        BorderSpacing.Around = 6
        Caption = '&Name:'
        FocusControl = editName
      end
      object lblType: TLabel
        AnchorSideLeft.Control = tabOptions
        AnchorSideTop.Control = comboType
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 20
        Top = 78
        Width = 34
        BorderSpacing.Around = 6
        Caption = '&Type:'
        FocusControl = comboType
      end
      object lblReturns: TLabel
        AnchorSideLeft.Control = tabOptions
        AnchorSideTop.Control = comboReturns
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 20
        Top = 112
        Width = 52
        BorderSpacing.Around = 6
        Caption = '&Returns:'
        FocusControl = comboReturns
      end
      object lblSQL: TLabel
        AnchorSideLeft.Control = comboType
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = comboDataAccess
        AnchorSideTop.Side = asrCenter
        Left = 499
        Height = 20
        Top = 78
        Width = 81
        BorderSpacing.Around = 6
        Caption = '&Data access:'
        FocusControl = comboDataAccess
      end
      object lblSecurity: TLabel
        AnchorSideLeft.Control = comboReturns
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = comboSecurity
        AnchorSideTop.Side = asrCenter
        Left = 499
        Height = 20
        Top = 112
        Width = 85
        BorderSpacing.Around = 6
        Caption = 'SQL Se&curity:'
        FocusControl = comboSecurity
      end
      object lblComment: TLabel
        AnchorSideLeft.Control = tabOptions
        AnchorSideTop.Control = editComment
        AnchorSideTop.Side = asrCenter
        Left = 6
        Height = 20
        Top = 44
        Width = 68
        BorderSpacing.Around = 6
        Caption = '&Comment:'
        FocusControl = editComment
      end
      object lblDefiner: TLabel
        AnchorSideLeft.Control = editName
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = comboDefiner
        AnchorSideTop.Side = asrCenter
        Left = 499
        Height = 20
        Top = 10
        Width = 52
        BorderSpacing.Around = 6
        Caption = 'De&finer:'
      end
      object chkDeterministic: TCheckBox
        AnchorSideLeft.Control = comboReturns
        AnchorSideTop.Control = comboSecurity
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = tabOptions
        AnchorSideRight.Side = asrBottom
        Left = 111
        Height = 24
        Top = 142
        Width = 738
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Around = 6
        Caption = '&Deterministic'
        TabOrder = 7
        OnClick = Modification
      end
      object editComment: TEdit
        AnchorSideTop.Control = editName
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = tabOptions
        AnchorSideRight.Side = asrBottom
        Left = 105
        Height = 28
        Top = 40
        Width = 744
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Around = 6
        TabOrder = 2
        Text = 'editComment'
        OnChange = Modification
      end
      object comboSecurity: TComboBox
        AnchorSideTop.Control = comboDataAccess
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = tabOptions
        AnchorSideRight.Side = asrBottom
        Left = 611
        Height = 28
        Top = 108
        Width = 238
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Around = 6
        ItemHeight = 20
        Style = csDropDownList
        TabOrder = 6
        OnChange = Modification
      end
      object comboDataAccess: TComboBox
        AnchorSideTop.Control = editComment
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = tabOptions
        AnchorSideRight.Side = asrBottom
        Left = 611
        Height = 28
        Top = 74
        Width = 238
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Around = 6
        ItemHeight = 20
        Style = csDropDownList
        TabOrder = 5
        OnChange = Modification
      end
      object comboReturns: TComboBox
        AnchorSideTop.Control = comboType
        AnchorSideTop.Side = asrBottom
        Left = 105
        Height = 28
        Top = 108
        Width = 388
        BorderSpacing.Around = 6
        ItemHeight = 20
        TabOrder = 4
        Text = 'comboReturns'
        OnChange = Modification
      end
      object comboType: TComboBox
        AnchorSideTop.Control = editComment
        AnchorSideTop.Side = asrBottom
        Left = 105
        Height = 28
        Top = 74
        Width = 388
        BorderSpacing.Around = 6
        ItemHeight = 20
        Style = csDropDownList
        TabOrder = 3
        OnSelect = comboTypeSelect
      end
      object editName: TEdit
        AnchorSideTop.Control = tabOptions
        Left = 105
        Height = 28
        Top = 6
        Width = 388
        BorderSpacing.Around = 6
        TabOrder = 0
        Text = 'editName'
        TextHint = 'Enter routine name'
        OnChange = Modification
      end
      object comboDefiner: TComboBox
        AnchorSideTop.Control = tabOptions
        AnchorSideRight.Control = tabOptions
        AnchorSideRight.Side = asrBottom
        Left = 611
        Height = 28
        Top = 6
        Width = 238
        Anchors = [akTop, akLeft, akRight]
        BorderSpacing.Around = 6
        ItemHeight = 20
        TabOrder = 1
        Text = 'comboDefiner'
        OnChange = Modification
        OnDropDown = comboDefinerDropDown
      end
    end
    object tabParameters: TTabSheet
      Caption = 'Parameters'
      ClientHeight = 177
      ClientWidth = 855
      ImageIndex = 122
      object listParameters: TLazVirtualStringTree
        Left = 103
        Height = 177
        Top = 0
        Width = 752
        Align = alClient
        DragImageKind = diMainColumnOnly
        DragMode = dmAutomatic
        DragType = dtVCL
        EditDelay = 0
        Header.AutoSizeIndex = 1
        Header.Columns = <        
          item
            Position = 0
            Text = '#'
          end        
          item
            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
            Position = 1
            Text = 'Name'
            Width = 485
          end        
          item
            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
            Position = 2
            Text = 'Datatype'
            Width = 112
          end        
          item
            Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
            Position = 3
            Text = 'Context'
            Width = 88
          end>
        Header.MainColumn = 1
        Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoDisableAnimatedResize]
        Header.PopupMenu = MainForm.popupListHeader
        Images = MainForm.ImageListIcons8
        NodeDataSize = 0
        TabOrder = 0
        TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
        TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme]
        TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
        OnBeforePaint = listParametersBeforePaint
        OnCreateEditor = listParametersCreateEditor
        OnEditing = listParametersEditing
        OnFocusChanged = listParametersFocusChanged
        OnGetText = listParametersGetText
        OnPaintText = listParametersPaintText
        OnGetImageIndex = listParametersGetImageIndex
        OnNewText = listParametersNewText
      end
      object tlbParameters: TToolBar
        Left = 0
        Height = 177
        Top = 0
        Width = 103
        Align = alLeft
        AutoSize = True
        ButtonHeight = 35
        ButtonWidth = 102
        Caption = 'tlbParameters'
        Images = MainForm.ImageListIcons8
        List = True
        ShowCaptions = True
        TabOrder = 1
        object btnAddParam: TToolButton
          Left = 1
          Top = 2
          Caption = 'Add'
          ImageIndex = 45
          OnClick = btnAddParamClick
          Wrap = True
        end
        object btnRemoveParam: TToolButton
          Left = 1
          Top = 37
          Caption = 'Remove'
          Enabled = False
          ImageIndex = 46
          OnClick = btnRemoveParamClick
          Wrap = True
        end
        object btnClearParams: TToolButton
          Left = 1
          Top = 72
          Caption = 'Clear'
          ImageIndex = 26
          OnClick = btnClearParamsClick
          Wrap = True
        end
        object btnMoveUpParam: TToolButton
          Left = 1
          Top = 107
          Caption = 'Move up'
          Enabled = False
          ImageIndex = 74
          OnClick = btnMoveParamClick
          Wrap = True
        end
        object btnMoveDownParam: TToolButton
          Left = 1
          Top = 142
          Caption = 'Move down'
          Enabled = False
          ImageIndex = 75
          OnClick = btnMoveParamClick
        end
      end
    end
    object tabCreateCode: TTabSheet
      Caption = 'CREATE code'
      ClientHeight = 177
      ClientWidth = 855
      ImageIndex = 119
      inline SynMemoCREATEcode: TSynEdit
        Left = 0
        Height = 177
        Top = 0
        Width = 855
        Align = alClient
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Pitch = fpFixed
        Font.Quality = fqNonAntialiased
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        Gutter.Width = 68
        Gutter.MouseActions = <>
        RightGutter.Width = 0
        RightGutter.MouseActions = <>
        Highlighter = MainForm.SynSQLSynUsed
        Keystrokes = <>
        MouseActions = <>
        MouseTextActions = <>
        MouseSelActions = <>
        Lines.Strings = (
          'SynMemoCREATEcode'
        )
        VisibleSpecialChars = [vscSpace, vscTabAtLast]
        ReadOnly = True
        SelectedColor.BackPriority = 50
        SelectedColor.ForePriority = 50
        SelectedColor.FramePriority = 50
        SelectedColor.BoldPriority = 50
        SelectedColor.ItalicPriority = 50
        SelectedColor.UnderlinePriority = 50
        SelectedColor.StrikeOutPriority = 50
        BracketHighlightStyle = sbhsBoth
        BracketMatchColor.Background = clNone
        BracketMatchColor.Foreground = clNone
        BracketMatchColor.Style = [fsBold]
        FoldedCodeColor.Background = clNone
        FoldedCodeColor.Foreground = clGray
        FoldedCodeColor.FrameColor = clGray
        MouseLinkColor.Background = clNone
        MouseLinkColor.Foreground = clBlue
        LineHighlightColor.Background = clNone
        LineHighlightColor.Foreground = clNone
        inline SynLeftGutterPartList1: TSynGutterPartList
          object SynGutterMarks1: TSynGutterMarks
            Width = 30
            MouseActions = <>
          end
          object SynGutterLineNumber1: TSynGutterLineNumber
            Width = 17
            MouseActions = <>
            MarkupInfo.Background = clBtnFace
            MarkupInfo.Foreground = clNone
            DigitCount = 2
            ShowOnlyLineNumbersMultiplesOf = 1
            ZeroStart = False
            LeadingZeros = False
          end
          object SynGutterChanges1: TSynGutterChanges
            Width = 5
            MouseActions = <>
            ModifiedColor = 59900
            SavedColor = clGreen
          end
          object SynGutterSeparator1: TSynGutterSeparator
            Width = 3
            MouseActions = <>
            MarkupInfo.Background = clWhite
            MarkupInfo.Foreground = clGray
          end
          object SynGutterCodeFolding1: TSynGutterCodeFolding
            Width = 13
            MouseActions = <>
            MarkupInfo.Background = clNone
            MarkupInfo.Foreground = clGray
            MouseActionsExpanded = <>
            MouseActionsCollapsed = <>
          end
        end
      end
    end
  end
  object btnRunProc: TSpeedButton
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 664
    Height = 31
    Top = 588
    Width = 205
    Action = MainForm.actRunRoutines
    Anchors = [akRight, akBottom]
    BorderSpacing.Around = 6
    Images = MainForm.ImageListIcons8
    ImageIndex = 35
  end
end