object fMain: TfMain Left = 0 Top = 0 Caption = 'Actor-2. '#1054' '#1087#1088#1080#1084#1077#1085#1077#1085#1080#1080' '#1073#1080#1073#1083#1080#1086#1090#1077#1082#1080' FastScript '#1074' '#1089#1074#1086#1080#1093' '#1087#1088#1086#1077#1082#1090#1072#1093'. '#1063#1072 + #1089#1090#1100'-2. '#1048#1083#1083#1102#1089#1090#1088#1080#1088#1091#1102#1097#1080#1081' '#1087#1088#1080#1084#1077#1088 ClientHeight = 542 ClientWidth = 900 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate TextHeight = 19 object Panel_Bottom: TPanel Left = 0 Top = 501 Width = 900 Height = 41 Align = alBottom BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object LabelDT: TLabel Left = 0 Top = 0 Width = 12 Height = 41 Align = alLeft Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Layout = tlCenter ExplicitHeight = 16 end object LabelPath: TLabel Left = 888 Top = 0 Width = 12 Height = 41 Align = alRight Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Layout = tlCenter ExplicitHeight = 16 end end object Panel_Top: TPanel Left = 0 Top = 0 Width = 900 Height = 33 Align = alTop BevelInner = bvLowered TabOrder = 1 object Label_ActorName: TLabel Left = 2 Top = 2 Width = 896 Height = 29 Align = alClient Alignment = taCenter Caption = 'Actor-2' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Layout = tlCenter ExplicitWidth = 53 ExplicitHeight = 19 end end object Panel_Main: TPanel Left = 0 Top = 33 Width = 900 Height = 468 Align = alClient TabOrder = 2 object Splitter1: TSplitter Left = 489 Top = 1 Height = 466 Color = clSilver ParentColor = False ExplicitLeft = 336 ExplicitTop = 72 ExplicitHeight = 100 end object GroupBox1: TGroupBox Left = 1 Top = 1 Width = 488 Height = 466 Align = alLeft Caption = #1057#1087#1080#1089#1086#1082' '#1089#1082#1088#1080#1087#1090#1086#1074 TabOrder = 0 object Splitter2: TSplitter Left = 2 Top = 281 Width = 484 Height = 3 Cursor = crVSplit Align = alTop Color = clSilver ParentColor = False ExplicitLeft = -2 ExplicitTop = 287 end object Panel2: TPanel Left = 2 Top = 21 Width = 484 Height = 36 Align = alTop BevelInner = bvLowered TabOrder = 0 object Label1: TLabel Left = 202 Top = 2 Width = 15 Height = 32 Align = alLeft Caption = ' ' ExplicitHeight = 19 end object sb_Refresh: TSpeedButton Left = 217 Top = 2 Width = 41 Height = 32 Hint = #1054#1073#1085#1086#1074#1080#1090#1100' '#1085#1072' '#1069#1082#1088#1072#1085#1077 Align = alLeft Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000C40E0000C40E00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFFFF00FF00F FFFFFFFFF77FF77FFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF7FFFFFFFFFFFFFFF0 FFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF7FFFFFFFFF0FFFFF 0FFFFFFFFF7FFFFF7FFFFFFF000FFFF0FFFFFFFF777FFFF7FFFFFFF00FFFFFF0 FFFFFFF77FFFFFF7FFFFFFFF000FF00FFFFFFFFF777FF77FFFFFFFFFF0F00FFF FFFFFFFFF7F77FFFFFFFFFFFF0FFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sb_RefreshClick ExplicitLeft = 223 ExplicitTop = -2 end object sb_Del: TSpeedButton Left = 385 Top = 2 Width = 41 Height = 32 Hint = #1059#1076#1072#1083#1080#1090#1100' '#1074#1099#1073#1088#1072#1085#1085#1099#1081' '#1045#1078#1077#1076#1085#1077#1074#1085#1080#1082 Align = alLeft Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000C40E0000C40E00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000 0FFFFFF7777777777FFFFFF0000000000FFFFFF7777777777FFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sb_DelClick ExplicitLeft = 440 ExplicitTop = -2 ExplicitHeight = 37 end object Label3: TLabel Left = 258 Top = 2 Width = 15 Height = 32 Align = alLeft Caption = ' ' ExplicitHeight = 19 end object Label4: TLabel Left = 370 Top = 2 Width = 15 Height = 32 Align = alLeft Caption = ' ' ExplicitHeight = 19 end object sb_Add: TSpeedButton Left = 273 Top = 2 Width = 41 Height = 32 Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1085#1086#1074#1099#1081' '#1045#1078#1077#1076#1085#1077#1074#1085#1080#1082 Align = alLeft Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000C40E0000C40E00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFF FFFFFFFFFFF77FFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFFFFFF00FFF FFFFFFFFFFF77FFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFF000000000 0FFFFFF7777777777FFFFFF0000000000FFFFFF7777777777FFFFFFFFFF00FFF FFFFFFFFFFF77FFFFFFFFFFFFFF00FFFFFFFFFFFFFF77FFFFFFFFFFFFFF00FFF FFFFFFFFFFF77FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sb_AddClick ExplicitLeft = 267 ExplicitTop = -2 end object Label48: TLabel Left = 314 Top = 2 Width = 15 Height = 32 Align = alLeft Caption = ' ' ExplicitHeight = 19 end object sb_Renum: TSpeedButton Left = 329 Top = 2 Width = 41 Height = 32 Hint = #1055#1077#1088#1077#1085#1091#1084#1077#1088#1086#1074#1072#1090#1100' '#1089' '#1096#1072#1075#1086#1084' 10' Align = alLeft Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 003337777777777777F330FFFFFFFFFFF03337F33F333F3337F330FF0FFF0FFF F03337F37F337F3337F330FF0FFF0FFFF03337F37FFF7FFF37F330F00000000F F03337F77777777337F330FFF0FFF0FFF03337F337F337F337F330FFF0FFF0FF F03337F337FFF7FFF7F330FF00000000F03337F37777777737F330FFFF0FFF0F F03337F3337F337F37F330FFFF0FFF0FF03337F33373337337F330FFFFFFFFFF F03337F33333333FF7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00 333337FFFFFFFF77333330000000000333333777777777733333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sb_RenumClick ExplicitLeft = 337 ExplicitTop = 4 end object DBNavigator_Scr: TDBNavigator Left = 2 Top = 2 Width = 200 Height = 32 DataSource = dsScr VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbPost, nbCancel] Align = alLeft TabOrder = 0 end end object DBGrid_Scr: TDBGrid Left = 2 Top = 57 Width = 484 Height = 224 Align = alTop DataSource = dsScr Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -16 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'npp' Width = 48 Visible = True end item Expanded = False FieldName = 'mnemocode' Width = 303 Visible = True end item Expanded = False FieldName = 'comment' Width = 194 Visible = True end item Expanded = False FieldName = 'id' Width = 68 Visible = True end> end object GroupBox2: TGroupBox Left = 2 Top = 284 Width = 484 Height = 180 Align = alClient Caption = #1054' '#1089#1082#1088#1080#1087#1090#1077': ' TabOrder = 2 object DBMemo_Info: TDBMemo Left = 2 Top = 21 Width = 480 Height = 157 Align = alClient DataField = 'info' DataSource = dsScr Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 0 OnExit = DBMemo_InfoExit end end end object GroupBox3: TGroupBox Left = 492 Top = 1 Width = 407 Height = 466 Align = alClient Caption = 'FS-'#1057#1082#1088#1080#1087#1090': ' TabOrder = 1 object pcScr: TPageControl Left = 2 Top = 21 Width = 403 Height = 443 ActivePage = tsScrText Align = alClient TabOrder = 0 OnChange = pcScrChange object tsScrText: TTabSheet Caption = #1058#1077#1082#1089#1090 object Panel_Scr: TPanel Left = 0 Top = 33 Width = 395 Height = 376 Align = alClient BevelInner = bvLowered TabOrder = 0 object fsSyntaxMemo1: TfsSyntaxMemo Left = 2 Top = 2 Width = 391 Height = 372 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 OnChange = fsSyntaxMemo1Change OnExit = fsSyntaxMemo1Exit ExplicitLeft = 522 ExplicitTop = 134 ExplicitWidth = 200 ExplicitHeight = 200 end end object Panel1: TPanel Left = 0 Top = 0 Width = 395 Height = 33 Align = alTop TabOrder = 1 object sbCompile: TSpeedButton Left = 11 Top = 1 Width = 33 Height = 31 Hint = #1050#1086#1084#1087#1080#1083#1103#1094#1080#1103 Align = alLeft Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337FF3333333333330003333333333333777F333333333333080333 3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB 33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB 3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333 333333333337F33333333333333B333333333333333733333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sbCompileClick ExplicitLeft = 15 ExplicitTop = -2 end object Label2: TLabel Left = 1 Top = 1 Width = 10 Height = 31 Align = alLeft Caption = ' ' ExplicitHeight = 19 end object Label5: TLabel Left = 44 Top = 1 Width = 10 Height = 31 Align = alLeft Caption = ' ' ExplicitHeight = 19 end object sbExec: TSpeedButton Left = 54 Top = 1 Width = 33 Height = 31 Hint = #1042#1099#1087#1086#1083#1085#1077#1085#1080#1077 Align = alLeft Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000 00007777777777777777933393303933337073F37F37F73F3377393393303393 379037FF7F37F37FF777379793303379793037777337F3777737339933303339 93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399 999037777337F377777793993330333393307377FF37F3337FF7333993303333 993033377F37F33377F7333993303333993033377337F3337737333333303333 33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303 03037F7F7F7F7F7F7F7F00000000000000007777777777777777} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = sbExecClick ExplicitLeft = 50 ExplicitTop = -2 end end end object tsScrIn: TTabSheet Caption = #1042#1093#1086#1076#1085#1099#1077' '#1087#1072#1088#1072#1084'.' ImageIndex = 1 object DBMemoParamIn: TDBMemo Left = 0 Top = 0 Width = 395 Height = 409 Align = alClient DataField = 'params_in' DataSource = dsScr Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False ScrollBars = ssBoth TabOrder = 0 WordWrap = False OnExit = DBMemoParamInExit end end object tsScrOut: TTabSheet Caption = #1042#1099#1093#1086#1076#1085#1099#1077' '#1087#1072#1088#1072#1084'.' ImageIndex = 2 object DBMemoParamOut: TDBMemo Left = 0 Top = 0 Width = 395 Height = 409 Align = alClient DataField = 'params_out' DataSource = dsScr Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False ScrollBars = ssBoth TabOrder = 0 WordWrap = False OnExit = DBMemoParamOutExit end end end end end object FDConn: TFDConnection Params.Strings = ( 'DriverID=SQLite' 'Database=D:\d10\PAS\roamer55ru\d10.pas\FS\FS_002.'#1055#1072#1088#1072#1084#1077#1090#1088#1099'\FS_02' + '_io_param.pas\FS_02_io_param.db') LoginPrompt = False AfterConnect = FDConnAfterConnect BeforeConnect = FDConnBeforeConnect BeforeDisconnect = FDConnBeforeDisconnect Left = 38 end object qTMP: TFDQuery Connection = FDConn Left = 70 end object qScr: TFDQuery BeforeClose = qScrBeforeClose BeforeInsert = qScrBeforeInsert BeforePost = qScrBeforePost BeforeDelete = qScrBeforeDelete AfterScroll = qScrAfterScroll Connection = FDConn SQL.Strings = ( 'select' ' *' 'from' ' fs_scripts' 'order ' ' by npp' '') Left = 134 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 qScrcomment: TStringField DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081 DisplayWidth = 20 FieldName = 'comment' Origin = 'comment' Size = 100 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 qScrparams_in: TWideMemoField FieldName = 'params_in' Origin = 'params_in' Visible = False BlobType = ftWideMemo end object qScrparams_out: TWideMemoField FieldName = 'params_out' Origin = 'params_out' Visible = False BlobType = ftWideMemo end object qScrmnemocode_lower: TStringField FieldName = 'mnemocode_lower' Origin = 'mnemocode_lower' Visible = False Size = 100 end object qScrinfo: TWideMemoField FieldName = 'info' Origin = 'info' Visible = False BlobType = ftWideMemo end end object dsScr: TDataSource DataSet = qScr Left = 166 Top = 1 end object Timer1: TTimer Enabled = False Interval = 100 OnTimer = Timer1Timer Left = 8 end object fsScript1: TfsScript SyntaxType = 'PascalScript' Left = 208 end object fsPascal1: TfsPascal Left = 248 Top = 8 end object qTMPrt: TFDQuery Connection = FDConn Left = 102 end object fsClassesRTTI1: TfsClassesRTTI Left = 280 Top = 8 end end