ufrmtools.dfm

pas脚本编译,编译写好的脚本,运用了fastscript控件

object FrmEdt: TFrmEdt
  Left = 289
  Top = 97
  Width = 805
  Height = 601
  Caption = #33050#26412#32534#36753#24037#20855
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = advmnmn
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 461
    Width = 797
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Splitter2: TSplitter
    Left = 624
    Top = 0
    Height = 461
    Align = alRight
    ResizeStyle = rsLine
  end
  object advmCon: TAdvMemo
    Left = 0
    Top = 0
    Width = 624
    Height = 461
    Cursor = crIBeam
    AcceptFiles = True
    ActiveLineSettings.ShowActiveLine = True
    ActiveLineSettings.ShowActiveLineIndicator = True
    ActiveLineSettings.ActiveLineColor = clInfoBk
    ActiveLineSettings.ActiveLineAtCursor = True
    ActiveLineSettings.ActiveLineTextColor = clBlue
    Align = alClient
    AutoCompletion.Delay = 100
    AutoCompletion.Font.Charset = DEFAULT_CHARSET
    AutoCompletion.Font.Color = clWindowText
    AutoCompletion.Font.Height = -11
    AutoCompletion.Font.Name = 'MS Sans Serif'
    AutoCompletion.Font.Style = []
    AutoCompletion.ShowImages = True
    AutoCorrect.Active = True
    AutoHintParameterDelay = 100
    AutoHintParameterPosition = hpBelowCode
    AutoThemeAdapt = True
    BlockLineColor = clInfoBk
    BorderColor = clCream
    BorderStyle = bsNone
    CaseSensitive = True
    CodeFolding.Enabled = True
    CodeFolding.LineColor = clBlack
    Ctl3D = True
    DelErase = True
    EnhancedHomeKey = True
    Gutter.DigitCount = 4
    Gutter.Font.Charset = DEFAULT_CHARSET
    Gutter.Font.Color = clWindowText
    Gutter.Font.Height = -13
    Gutter.Font.Name = 'Courier New'
    Gutter.Font.Style = []
    Gutter.BorderColor = clBlack
    Gutter.GutterWidth = 30
    Gutter.GutterColor = clWhite
    Gutter.GutterColorTo = clBtnFace
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    HiddenCaret = False
    HideSelection = False
    Lines.Strings = (
      'var'
      't:ttest;'
      'begin'
      't:=ttest.create;'
      't.age:=1;'
      't.nm:='#39'a'#39';'
      'msgbox(t.nm);'
      'end.')
    MarkerList.UseDefaultMarkerImageIndex = False
    MarkerList.DefaultMarkerImageIndex = -1
    MarkerList.ImageTransparentColor = 33554432
    PrintOptions.MarginLeft = 0
    PrintOptions.MarginRight = 0
    PrintOptions.MarginTop = 0
    PrintOptions.MarginBottom = 0
    PrintOptions.PageNr = False
    PrintOptions.PrintLineNumbers = False
    RightMarginColor = 14869218
    ScrollHint = True
    ScrollMode = smStrict
    SelColor = clWhite
    SelBkColor = clNavy
    ShowHint = True
    ShowRightMargin = True
    SmartTabs = True
    SyntaxStyles = advpsclmstylr1
    TabOrder = 0
    TabSize = 4
    TabStop = True
    TrimTrailingSpaces = True
    UndoLimit = 100
    UrlStyle.TextColor = clBlue
    UrlStyle.BkColor = clWhite
    UrlStyle.Style = [fsUnderline]
    UseStyler = True
    Version = '2.1.3.0'
    WordWrap = wwNone
    OnKeyDown = advmConKeyDown
    OnChange = advmConChange
    OnFileDrop = advmConFileDrop
  end
  object Status: TMemo
    Left = 0
    Top = 464
    Width = 797
    Height = 91
    Align = alBottom
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 2
  end
  object fstr1: TfsTree
    Left = 627
    Top = 0
    Width = 170
    Height = 461
    Align = alRight
    BevelOuter = bvNone
    Caption = 'fstr1'
    Ctl3D = True
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Script = fsScript1
    ShowClasses = True
    ShowFunctions = True
    ShowTypes = True
    ShowVariables = True
    Expanded = True
    ExpandLevel = 2
  end
  object advmnmn: TAdvMainMenu
    Version = '2.5.0.1'
    Left = 620
    Top = 10
    object N1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Caption = 'New'
        ImageIndex = 0
        ShortCut = 16462
        OnClick = New1Click
      end
      object N2: TMenuItem
        Caption = 'Open'
        ImageIndex = 2
        ShortCut = 16463
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = 'Save'
        ImageIndex = 4
        ShortCut = 16467
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = 'SaveAs'
        ImageIndex = 14
        ShortCut = 49231
        OnClick = N4Click
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        ImageIndex = 16
        ShortCut = 16453
        OnClick = Exit1Click
      end
    end
    object Script1: TMenuItem
      Caption = 'Script'
      object Compile1: TMenuItem
        Caption = 'Run'
        ImageIndex = 19
        ShortCut = 120
        OnClick = Compile1Click
      end
      object Stop1: TMenuItem
        Caption = 'Stop'
        ImageIndex = 6
        ShortCut = 16497
      end
    end
    object About1: TMenuItem
      Caption = 'About'
      object About2: TMenuItem
        Caption = 'About'
        ImageIndex = 10
        ShortCut = 49217
        OnClick = About2Click
      end
    end
  end
  object advpsclmstylr1: TAdvPascalMemoStyler
    BlockStart = 'begin'
    BlockEnd = 'end'
    LineComment = '//'
    MultiCommentLeft = '{'
    MultiCommentRight = '}'
    CommentStyle.TextColor = clNavy
    CommentStyle.BkColor = clWhite
    CommentStyle.Style = [fsItalic]
    NumberStyle.TextColor = clFuchsia
    NumberStyle.BkColor = clWhite
    NumberStyle.Style = [fsBold]
    AllStyles = <
      item
        KeyWords.Strings = (
          'begin'
          'break'
          'case'
          'cdecl'
          'class'
          'class'
          'const'
          'constructor'
          'continue'
          'default'
          'destructor'
          'do'
          'else'
          'end'
          'except'
          'finalise'
          'finally'
          'for'
          'function'
          'if'
          'implementation'
          'inherited'