object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 677 ClientWidth = 903 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate TextHeight = 19 object Panel1: TPanel Left = 0 Top = 0 Width = 903 Height = 41 Align = alTop BevelOuter = bvNone TabOrder = 0 Visible = False end object Panel2: TPanel Left = 0 Top = 41 Width = 903 Height = 636 Align = alClient BevelInner = bvLowered TabOrder = 1 object Panel3: TPanel Left = 2 Top = 2 Width = 899 Height = 33 Align = alTop BevelInner = bvLowered TabOrder = 0 object SpeedButton1: TSpeedButton Left = 2 Top = 2 Width = 199 Height = 29 Align = alLeft Caption = #1042#1099#1087#1086#1083#1085#1080#1090#1100' '#1089#1082#1088#1080#1087#1090 OnClick = SpeedButton1Click end end object GroupBox1: TGroupBox Left = 2 Top = 35 Width = 899 Height = 599 Align = alClient Caption = #1057#1082#1088#1080#1087#1090': ' TabOrder = 1 object Panel_fsSyntMemo: TPanel Left = 2 Top = 21 Width = 895 Height = 576 Align = alClient BevelInner = bvLowered TabOrder = 0 object fsSyntaxMemo1: TfsSyntaxMemo Left = 2 Top = 2 Width = 891 Height = 572 Cursor = crIBeam Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -15 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 = -15 CommentAttr.Name = 'Courier New' CommentAttr.Style = [fsItalic] KeywordAttr.Charset = DEFAULT_CHARSET KeywordAttr.Color = clWindowText KeywordAttr.Height = -15 KeywordAttr.Name = 'Courier New' KeywordAttr.Style = [fsBold] StringAttr.Charset = DEFAULT_CHARSET StringAttr.Color = clBlue StringAttr.Height = -15 StringAttr.Name = 'Courier New' StringAttr.Style = [] TextAttr.Charset = DEFAULT_CHARSET TextAttr.Color = clWindowText TextAttr.Height = -15 TextAttr.Name = 'Courier New' TextAttr.Style = [] Lines.Strings = ( '#language PascalScript' '' 'Const' ' //FastScript '#1087#1086#1079#1074#1086#1083#1103#1077#1090' '#1083#1077#1075#1082#1086 ' //'#1083#1086#1082#1072#1083#1080#1079#1086#1074#1072#1090#1100' ('#1087#1088#1080#1084#1077#1085#1080#1090#1077#1083#1100#1085#1086' '#1082' '#1082#1080#1088#1080#1083#1083#1080#1094#1077')' ' //'#1080#1084#1077#1085#1072' '#1082#1086#1085#1089#1090#1072#1085#1090 ' '#1052#1072#1089#1082#1072#1060#1072#1081#1083#1086#1074' = '#39'D:\fs_test\*.*'#39'; //'#1069#1090#1072' '#1087#1072#1087#1082#1072' '#1076#1086#1083#1078#1085#1072' '#1089#1091#1097#1077#1089#1090#1074#1086#1074#1072#1090 + #1100' '#1085#1072' '#1084#1086#1084#1077#1085#1090' '#1074#1099#1087#1086#1083#1085#1077#1085#1080#1103' '#1089#1082#1088#1080#1087#1090#1072 '' 'Var' ' //FastScript '#1087#1086#1079#1074#1086#1083#1103#1077#1090' '#1083#1077#1075#1082#1086 ' //'#1083#1086#1082#1072#1083#1080#1079#1086#1074#1072#1090#1100' ('#1087#1088#1080#1084#1077#1085#1080#1090#1077#1083#1100#1085#1086' '#1082' '#1082#1080#1088#1080#1083#1083#1080#1094#1077')' ' //'#1080#1084#1077#1085#1072' '#1087#1077#1088#1077#1084#1077#1085#1085#1099#1093 ' '#1057#1087#1080#1089#1086#1082': TStrings;' '' 'BEGIN' '' ' '#1057#1087#1080#1089#1086#1082' := TStringList.Create;' ' TRY' ' //'#1053#1086#1074#1072#1103' '#1087#1088#1086#1094#1077#1076#1091#1088#1072 ' '#1069#1082#1088#1072#1085'_'#1050#1091#1088#1089#1086#1088'('#39'crHourGlass'#39');' ' //'#1053#1086#1074#1072#1103' '#1092#1091#1085#1082#1094#1080#1103' ('#1087#1072#1087#1082#1072' '#1052#1072#1089#1082#1072#1060#1072#1081#1083#1086#1074' '#1076#1086#1083#1078#1085#1072' '#1089#1091#1097#1077#1089#1090#1074#1086#1074#1072#1090#1100' '#1085#1072' '#1084#1086 + #1084#1077#1085#1090' '#1074#1099#1087#1086#1083#1085#1077#1085#1080#1103' '#1089#1082#1088#1080#1087#1090#1072')' ' '#1060#1072#1081#1083#1099'_'#1057#1087#1080#1089#1086#1082'_'#1055#1086#1083#1091#1095#1080#1090#1100'(' ' '#1057#1087#1080#1089#1086#1082',' ' '#1052#1072#1089#1082#1072#1060#1072#1081#1083#1086#1074 ' );' ' '#1069#1082#1088#1072#1085'_'#1050#1091#1088#1089#1086#1088'('#39'crDefault'#39');' ' ShowMessage('#39#1057#1087#1080#1089#1086#1082' '#1092#1072#1081#1083#1086#1074':'#39'+#10+'#1057#1087#1080#1089#1086#1082'.Text);' '' ' //........................................' ' //'#1053#1086#1074#1099#1077' '#1082#1086#1085#1089#1090#1072#1085#1090#1099 ' ShowMessage('#39#1059#1089#1082#1086#1088'_'#1089#1074#1086#1073'_'#1087#1072#1076#1077#1085'= '#39'+FloatToStr('#1059#1089#1082#1086#1088#1077#1085#1080#1077'_'#1089#1074#1086#1073#1086#1076 + #1085#1086#1075#1086'_'#1087#1072#1076#1077#1085#1080#1103'));' ' ShowMessage('#39#1057#1082#1086#1088#1086#1089#1090#1100' '#1089#1074#1077#1090#1072'= '#39'+FloatToStr('#1057#1082#1086#1088#1086#1089#1090#1100'_'#1089#1074#1077#1090#1072'));' ' ShowMessage('#39'Speed of light= '#39'+FloatToStr(Speed_of_light));' ' //........................................' '' ' FINALLY' ' '#1057#1087#1080#1089#1086#1082'.Free;' ' '#1057#1087#1080#1089#1086#1082':=nil;' ' '#1069#1082#1088#1072#1085'_'#1050#1091#1088#1089#1086#1088'('#39'crDefault'#39');' ' END;' '' 'END.' '') ReadOnly = False SyntaxType = stPascal ShowFooter = True ShowGutter = True end end end end object fsScript1: TfsScript SyntaxType = 'PascalScript' Left = 16 Top = 8 end object fsPascal1: TfsPascal Left = 64 Top = 8 end object fsClassesRTTI1: TfsClassesRTTI Left = 120 Top = 8 end end