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