object fMain: TfMain
  Left = 0
  Top = 0
  Caption = 'FastScript. '#1055#1072#1088#1089#1080#1085#1075' '#1089#1082#1088#1080#1087#1090#1072'. '#1044#1080#1088#1077#1082#1090#1080#1074#1072' "uses"'
  ClientHeight = 606
  ClientWidth = 1075
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 18
  object Panel1: TPanel
    Left = 0
    Top = 565
    Width = 1075
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Labelr55: TLabel
      Left = 890
      Top = 0
      Width = 185
      Height = 41
      Align = alRight
      Caption = #1057#1084'. '#1085#1072' '#1089#1072#1081#1090#1077' roamer55.ru  '
      Layout = tlCenter
      ExplicitHeight = 18
    end
  end
  object pcMain: TPageControl
    Left = 0
    Top = 0
    Width = 1075
    Height = 565
    ActivePage = tsDB
    Align = alClient
    TabOrder = 1
    OnChange = pcMainChange
    object tsFiles: TTabSheet
      Caption = #1060#1072#1081#1083#1086#1074#1072#1103' '#1057#1080#1089#1090#1077#1084#1072
      object Splitter1: TSplitter
        Left = 0
        Top = 116
        Width = 1067
        Height = 3
        Cursor = crVSplit
        Align = alTop
        Color = clSilver
        ParentColor = False
        ExplicitTop = 105
        ExplicitWidth = 183
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 1067
        Height = 116
        Align = alTop
        Caption = #1055#1077#1088#1077#1084#1077#1085#1085#1099#1077' '#1086#1082#1088#1091#1078#1077#1085#1080#1103': '
        TabOrder = 0
        object Memo_EV: TMemo
          Left = 2
          Top = 20
          Width = 1063
          Height = 94
          Align = alClient
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Courier New'
          Font.Style = []
          Lines.Strings = (
            'App_Dir=?\'
            'Scr_Dir=FS\'
            'Lib_Dir=lib\')
          ParentFont = False
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
          WordWrap = False
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 119
        Width = 1067
        Height = 413
        Align = alClient
        BevelInner = bvLowered
        TabOrder = 1
        object Splitter2: TSplitter
          Left = 489
          Top = 2
          Height = 409
          Color = clSilver
          ParentColor = False
          ExplicitLeft = 368
          ExplicitTop = 96
          ExplicitHeight = 100
        end
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 487
          Height = 409
          Align = alLeft
          Caption = #1054#1088#1080#1075#1080#1085#1072#1083' '#1089#1082#1088#1080#1087#1090#1072': '
          TabOrder = 0
          object fsSyntaxMemo1: TfsSyntaxMemo
            Left = 2
            Top = 20
            Width = 483
            Height = 387
            Cursor = crIBeam
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Courier New'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 0
            TabStop = True
            BlockColor = clHighlight
            BlockFontColor = clHighlightText
            CommentAttr.Charset = DEFAULT_CHARSET
            CommentAttr.Color = clTeal
            CommentAttr.Height = -13
            CommentAttr.Name = 'Courier New'
            CommentAttr.Style = [fsItalic]
            KeywordAttr.Charset = DEFAULT_CHARSET
            KeywordAttr.Color = clWindowText
            KeywordAttr.Height = -13
            KeywordAttr.Name = 'Courier New'
            KeywordAttr.Style = [fsBold]
            StringAttr.Charset = DEFAULT_CHARSET
            StringAttr.Color = clBlue
            StringAttr.Height = -13
            StringAttr.Name = 'Courier New'
            StringAttr.Style = []
            TextAttr.Charset = DEFAULT_CHARSET
            TextAttr.Color = clWindowText
            TextAttr.Height = -13
            TextAttr.Name = 'Courier New'
            TextAttr.Style = []
            Lines.Strings = (
              '#language PascalScript'
              ''
              'Uses'
              ' //'#39'D:\spFSI\FS\lib\FS_'#1041#1080#1073#1083#1080#1086#1090#1077#1082#1072'_01.pas'#39';'
              ' '#39'$(App_Dir)$(Scr_Dir)$(Lib_Dir)FS_'#1041#1080#1073#1083#1080#1086#1090#1077#1082#1072'_01.pas'#39';'
              ''
              'Var'
              '  '#1058#1077#1082#1089#1090': TStrings;'
              ''
              'BEGIN'
              '  '#1058#1077#1082#1089#1090':= TStringList.Create;'
              '  TRY'
              '    '#1058#1077#1082#1089#1090'.Add('#39#1055#1072#1088#1089#1080#1085#1075' '#1088#1072#1079#1076#1077#1083#1072' "Uses" FS-'#1089#1082#1088#1080#1087#1090#1072'.'#39');'
              '    '#1058#1077#1082#1089#1090'.Add('#39#1062#1077#1083#1100':'#39');'
              
                '    '#1058#1077#1082#1089#1090'.Add('#39'  "'#1054#1090#1074#1103#1079#1072#1090#1100#1089#1103'" '#1086#1090' "'#1072#1073#1089#1086#1083#1102#1090#1085#1086#1075#1086' '#1087#1091#1090#1080'" '#1074' '#1080#1084#1077#1085#1072#1093' '#1073#1080#1073 +
                #1083#1080#1086#1090#1077#1095#1085#1099#1093' '#1092#1072#1081#1083#1086#1074';'#39');'
              ''
              '    ShowMessage(IntToStr('#1058#1077#1082#1089#1090'_'#1050#1086#1083#1074#1086'_'#1057#1083#1086#1074'_'#1055#1086#1076#1089#1095#1080#1090#1072#1090#1100'('#1058#1077#1082#1089#1090')));'
              ''
              '  FINALLY'
              '    FreeAndNil('#1058#1077#1082#1089#1090');'
              '  END;'
              'END.'
              '')
            ReadOnly = False
            SyntaxType = stPascal
            ShowFooter = True
            ShowGutter = True
          end
        end
        object Panel3: TPanel
          Left = 492
          Top = 2
          Width = 69
          Height = 409
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 1
          object SpeedButton1: TSpeedButton
            Left = 0
            Top = 89
            Width = 69
            Height = 40
            Hint = #1055#1072#1088#1089#1080#1085#1075
            Align = alTop
            BiDiMode = bdLeftToRight
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333333333333333333333333333333333333333333333
              3333333333333333333333333333333333333333333FF3333333333333003333
              3333333333773FF3333333333309003333333333337F773FF333333333099900
              33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
              99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
              33333333337F3F77333333333309003333333333337F77333333333333003333
              3333333333773333333333333333333333333333333333333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            ParentShowHint = False
            ParentBiDiMode = False
            ShowHint = True
            Spacing = 6
            OnClick = SpeedButton1Click
            ExplicitLeft = 1
            ExplicitTop = 83
          end
          object Panel4: TPanel
            Left = 0
            Top = 0
            Width = 69
            Height = 89
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 0
          end
          object Panel8: TPanel
            Left = 0
            Top = 129
            Width = 69
            Height = 41
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 1
          end
        end
        object GroupBox3: TGroupBox
          Left = 561
          Top = 2
          Width = 504
          Height = 409
          Align = alClient
          Caption = #1055#1086#1089#1083#1077' '#1055#1072#1088#1089#1080#1085#1075#1072':'
          TabOrder = 2
          object fsSyntaxMemo2: TfsSyntaxMemo
            Left = 2
            Top = 20
            Width = 500
            Height = 387
            Cursor = crIBeam
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Courier New'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 0
            TabStop = True
            BlockColor = clHighlight
            BlockFontColor = clHighlightText
            CommentAttr.Charset = DEFAULT_CHARSET
            CommentAttr.Color = clTeal
            CommentAttr.Height = -13
            CommentAttr.Name = 'Courier New'
            CommentAttr.Style = [fsItalic]
            KeywordAttr.Charset = DEFAULT_CHARSET
            KeywordAttr.Color = clWindowText
            KeywordAttr.Height = -13
            KeywordAttr.Name = 'Courier New'
            KeywordAttr.Style = [fsBold]
            StringAttr.Charset = DEFAULT_CHARSET
            StringAttr.Color = clBlue
            StringAttr.Height = -13
            StringAttr.Name = 'Courier New'
            StringAttr.Style = []
            TextAttr.Charset = DEFAULT_CHARSET
            TextAttr.Color = clWindowText
            TextAttr.Height = -13
            TextAttr.Name = 'Courier New'
            TextAttr.Style = []
            Lines.Strings = (
              '')
            ReadOnly = False
            SyntaxType = stPascal
            ShowFooter = True
            ShowGutter = True
            ExplicitLeft = 22
            ExplicitTop = 198
            ExplicitWidth = 139
            ExplicitHeight = 107
          end
        end
      end
    end
    object tsDB: TTabSheet
      Caption = #1041#1072#1079#1072' '#1044#1072#1085#1085#1099#1093' ('#1074#1099#1075#1088#1091#1079#1082#1072')'
      ImageIndex = 1
      object Splitter3: TSplitter
        Left = 0
        Top = 137
        Width = 1067
        Height = 3
        Cursor = crVSplit
        Align = alTop
        Color = clSilver
        ParentColor = False
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 0
        Width = 1067
        Height = 137
        Align = alTop
        Caption = #1057#1087#1080#1089#1086#1082' '#1089#1082#1088#1080#1087#1090#1086#1074' '#1074' '#1041#1044': '
        TabOrder = 0
        object DBGrid_Scr: TDBGrid
          Left = 2
          Top = 20
          Width = 1063
          Height = 115
          Align = alClient
          DataSource = dsScr
          Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -15
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'npp'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'mnemocode'
              Width = 497
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'its_lib'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'id'
              Visible = True
            end>
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 140
        Width = 1067
        Height = 392
        Align = alClient
        BevelInner = bvLowered
        TabOrder = 1
        object Splitter4: TSplitter
          Left = 489
          Top = 2
          Height = 388
          Color = clSilver
          ParentColor = False
          ExplicitLeft = 368
          ExplicitTop = 96
          ExplicitHeight = 100
        end
        object GroupBox5: TGroupBox
          Left = 2
          Top = 2
          Width = 487
          Height = 388
          Align = alLeft
          Caption = #1054#1088#1080#1075#1080#1085#1072#1083' '#1089#1082#1088#1080#1087#1090#1072': '
          TabOrder = 0
          object fsSyntaxMemo3: TfsSyntaxMemo
            Left = 2
            Top = 20
            Width = 483
            Height = 366
            Cursor = crIBeam
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Courier New'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 0
            TabStop = True
            BlockColor = clHighlight
            BlockFontColor = clHighlightText
            CommentAttr.Charset = DEFAULT_CHARSET
            CommentAttr.Color = clTeal
            CommentAttr.Height = -13
            CommentAttr.Name = 'Courier New'
            CommentAttr.Style = [fsItalic]
            KeywordAttr.Charset = DEFAULT_CHARSET
            KeywordAttr.Color = clWindowText
            KeywordAttr.Height = -13
            KeywordAttr.Name = 'Courier New'
            KeywordAttr.Style = [fsBold]
            StringAttr.Charset = DEFAULT_CHARSET
            StringAttr.Color = clBlue
            StringAttr.Height = -13
            StringAttr.Name = 'Courier New'
            StringAttr.Style = []
            TextAttr.Charset = DEFAULT_CHARSET
            TextAttr.Color = clWindowText
            TextAttr.Height = -13
            TextAttr.Name = 'Courier New'
            TextAttr.Style = []
            Lines.Strings = (
              '')
            ReadOnly = True
            SyntaxType = stPascal
            ShowFooter = True
            ShowGutter = True
            ExplicitLeft = -2
            ExplicitTop = 22
            ExplicitHeight = 346
          end
        end
        object Panel6: TPanel
          Left = 492
          Top = 2
          Width = 61
          Height = 388
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 1
          object sbFS_Parsing_from_DB: TSpeedButton
            Left = 0
            Top = 89
            Width = 61
            Height = 40
            Hint = #1055#1072#1088#1089#1080#1085#1075
            Align = alTop
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333333333333333333333333333333333333333333333
              3333333333333333333333333333333333333333333FF3333333333333003333
              3333333333773FF3333333333309003333333333337F773FF333333333099900
              33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
              99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
              33333333337F3F77333333333309003333333333337F77333333333333003333
              3333333333773333333333333333333333333333333333333333333333333333
              3333333333333333333333333333333333333333333333333333}
            NumGlyphs = 2
            ParentShowHint = False
            ShowHint = True
            OnClick = sbFS_Parsing_from_DBClick
            ExplicitWidth = 93
          end
          object Panel7: TPanel
            Left = 0
            Top = 0
            Width = 61
            Height = 89
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 0
          end
        end
        object GroupBox6: TGroupBox
          Left = 553
          Top = 2
          Width = 512
          Height = 388
          Align = alClient
          Caption = #1055#1086#1089#1083#1077' '#1055#1072#1088#1089#1080#1085#1075#1072':'
          TabOrder = 2
          object fsSyntaxMemo4: TfsSyntaxMemo
            Left = 2
            Top = 20
            Width = 508
            Height = 366
            Cursor = crIBeam
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'Courier New'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            TabOrder = 0
            TabStop = True
            BlockColor = clHighlight
            BlockFontColor = clHighlightText
            CommentAttr.Charset = DEFAULT_CHARSET
            CommentAttr.Color = clTeal
            CommentAttr.Height = -13
            CommentAttr.Name = 'Courier New'
            CommentAttr.Style = [fsItalic]
            KeywordAttr.Charset = DEFAULT_CHARSET
            KeywordAttr.Color = clWindowText
            KeywordAttr.Height = -13
            KeywordAttr.Name = 'Courier New'
            KeywordAttr.Style = [fsBold]
            StringAttr.Charset = DEFAULT_CHARSET
            StringAttr.Color = clBlue
            StringAttr.Height = -13
            StringAttr.Name = 'Courier New'
            StringAttr.Style = []
            TextAttr.Charset = DEFAULT_CHARSET
            TextAttr.Color = clWindowText
            TextAttr.Height = -13
            TextAttr.Name = 'Courier New'
            TextAttr.Style = []
            Lines.Strings = (
              '')
            ReadOnly = True
            SyntaxType = stPascal
            ShowFooter = True
            ShowGutter = True
            ExplicitLeft = 6
            ExplicitTop = 22
            ExplicitHeight = 346
          end
        end
      end
    end
  end
  object FDConn: TFDConnection
    Params.Strings = (
      'DriverID=SQLite'
      
        'Database=D:\d10\PAS\roamer55ru\d12.pas\FS\FS_004.'#1055#1072#1088#1089#1080#1085#1075'_Uses\FS' +
        '_04_uses_parsing.pas\FS_04_uses_parsing.db')
    LoginPrompt = False
    BeforeConnect = FDConnBeforeConnect
    Left = 198
    Top = 56
  end
  object qTMP: TFDQuery
    Connection = FDConn
    Left = 238
    Top = 56
  end
  object qScr: TFDQuery
    AfterOpen = qScrAfterOpen
    BeforeClose = qScrBeforeClose
    AfterScroll = qScrAfterScroll
    Connection = FDConn
    UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
    UpdateOptions.EnableDelete = False
    UpdateOptions.EnableInsert = False
    UpdateOptions.EnableUpdate = False
    SQL.Strings = (
      'select'
      '  *'
      'from'
      '  fs_scripts'
      'order '
      '  by npp'
      '')
    Left = 286
    Top = 56
    object qScrnpp: TIntegerField
      DisplayLabel = 'N'#1087'/'#1087
      DisplayWidth = 5
      FieldName = 'npp'
      Origin = 'npp'
    end
    object qScrmnemocode: TStringField
      DisplayLabel = #1052#1085#1077#1084#1086#1082#1086#1076
      DisplayWidth = 20
      FieldName = 'mnemocode'
      Origin = 'mnemocode'
      Size = 100
    end
    object qScrits_lib: TBooleanField
      DisplayLabel = #1041#1080#1073#1083#1080#1086#1090#1077#1082#1072
      FieldName = 'its_lib'
      Origin = 'its_lib'
    end
    object qScrid: TFDAutoIncField
      DisplayWidth = 4
      FieldName = 'id'
      Origin = 'id'
      ProviderFlags = [pfInWhere, pfInKey]
    end
    object qScrfs_script: TWideMemoField
      FieldName = 'fs_script'
      Origin = 'fs_script'
      Visible = False
      BlobType = ftWideMemo
    end
    object qScrmnemocode_lc: TStringField
      DisplayWidth = 20
      FieldName = 'mnemocode_lc'
      Origin = 'mnemocode_lc'
      Size = 100
    end
  end
  object dsScr: TDataSource
    DataSet = qScr
    Left = 318
    Top = 57
  end
end