fjvinterpretertest.dfm

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

object Test: TTest
  Left = 320
  Top = 121
  Width = 576
  Height = 447
  HelpContext = 999
  Caption = 'JvI2 demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 568
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    Caption = ' '
    TabOrder = 0
    OnResize = Panel1Resize
    object Label1: TLabel
      Left = 8
      Top = 40
      Width = 34
      Height = 13
      Caption = 'Source'
    end
    object Label3: TLabel
      Left = 8
      Top = 16
      Width = 72
      Height = 13
      Caption = 'Select example'
    end
    object ComboBox1: TComboBox
      Left = 88
      Top = 8
      Width = 473
      Height = 21
      Style = csDropDownList
      DropDownCount = 25
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
      OnDropDown = ComboBox1DropDown
    end
  end
  object Memo1: TJvHLEditor
    Left = 0
    Top = 57
    Width = 360
    Height = 343
    Cursor = crIBeam
    GutterWidth = 0
    RightMarginVisible = False
    RightMargin = 0
    RightMarginColor = clSilver
    Completion.ItemHeight = 13
    Completion.Interval = 800
    Completion.ListBoxStyle = lbStandard
    Completion.CaretChar = '|'
    Completion.CRLF = '/n'
    Completion.Separator = '='
    TabStops = '3 5'
    SelForeColor = clHighlightText
    SelBackColor = clHighlight
    OnKeyDown = Memo1KeyDown
    Align = alClient
    Ctl3D = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabStop = True
    UseDockManager = False
    Colors.Comment.Style = [fsItalic]
    Colors.Comment.ForeColor = clOlive
    Colors.Comment.BackColor = clWindow
    Colors.Number.Style = []
    Colors.Number.ForeColor = clNavy
    Colors.Number.BackColor = clWindow
    Colors.Strings.Style = []
    Colors.Strings.ForeColor = clPurple
    Colors.Strings.BackColor = clWindow
    Colors.Symbol.Style = []
    Colors.Symbol.ForeColor = clBlue
    Colors.Symbol.BackColor = clWindow
    Colors.Reserved.Style = [fsBold]
    Colors.Reserved.ForeColor = clBlack
    Colors.Reserved.BackColor = clWindow
    Colors.Identifer.Style = []
    Colors.Identifer.ForeColor = clBlack
    Colors.Identifer.BackColor = clWindow
    Colors.Preproc.Style = []
    Colors.Preproc.ForeColor = clGreen
    Colors.Preproc.BackColor = clWindow
    Colors.FunctionCall.Style = []
    Colors.FunctionCall.ForeColor = clWindowText
    Colors.FunctionCall.BackColor = clWindow
    Colors.Declaration.Style = []
    Colors.Declaration.ForeColor = clWindowText
    Colors.Declaration.BackColor = clWindow
    Colors.Statement.Style = [fsBold]
    Colors.Statement.ForeColor = clWindowText
    Colors.Statement.BackColor = clWindow
    Colors.PlainText.Style = []
    Colors.PlainText.ForeColor = clWindowText
    Colors.PlainText.BackColor = clWindow
  end
  object Panel2: TPanel
    Left = 360
    Top = 57
    Width = 208
    Height = 343
    Align = alRight
    BevelOuter = bvNone
    BorderWidth = 3
    Caption = ' '
    TabOrder = 2
    object Notebook1: TNotebook
      Left = 3
      Top = 240
      Width = 202
      Height = 100
      Align = alBottom
      PageIndex = 3
      TabOrder = 0
      object TPage
        Left = 0
        Top = 0
        Caption = 'Default'
        object Button1: TButton
          Left = 16
          Top = 16
          Width = 75
          Height = 23
          Caption = 'Run'
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button5: TButton
          Left = 109
          Top = 16
          Width = 75
          Height = 23
          Caption = 'Compile'
          TabOrder = 1
          OnClick = Button1Click
        end
        object pnlTime: TPanel
          Left = 119
          Top = 60
          Width = 65
          Height = 18
          Alignment = taLeftJustify
          BevelOuter = bvLowered
          BorderWidth = 3
          Caption = ' '
          TabOrder = 2
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'ExternalForm'
        object bRunForm: TButton
          Left = 16
          Top = 16
          Width = 75
          Height = 23
          Caption = 'Run form...'
          TabOrder = 0
          OnClick = bRunFormClick
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'ExternalReport'
        object bRunReport: TButton
          Left = 16
          Top = 16
          Width = 75
          Height = 23
          Caption = 'Run report...'
          TabOrder = 0
          OnClick = bRunReportClick
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'Event'
        object Button4: TButton
          Left = 15
          Top = 56
          Width = 75
          Height = 23
          Caption = 'Button4'
          TabOrder = 0
        end
        object Button2: TButton
          Left = 16
          Top = 16
          Width = 75
          Height = 23
          Caption = 'Run'
          TabOrder = 1
          OnClick = Button1Click
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'Empty'
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'ExternalUnit'
        object Button3: TButton
          Left = 16
          Top = 16
          Width = 75
          Height = 23
          Caption = 'Run unit...'
          TabOrder = 0
          OnClick = Button1Click
        end
      end
    end
    object Memo2: TMemo
      Left = 3
      Top = 3
      Width = 202
      Height = 237
      Align = alClient
      Lines.Strings = (
        'Memo2')
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 400
    Width = 568
    Height = 20
    Align = alBottom
    BevelOuter = bvNone
    BorderWidth = 2
    Caption = ' '
    TabOrder = 3
    object pnlResult: TPanel
      Left = 2
      Top = 2
      Width = 564
      Height = 16
      Align = alClient
      BevelOuter = bvLowered
      Caption = ' '
      TabOrder = 0
    end
  end
  object RegAuto1: TJvRegAuto
    RegPath = 'Software\JVCL\JvInterpreterTest'
    IniFile = '$HOME/.JvInterpreterTest'
    Props.Strings = (
      'Edit1.Text'
      '.Left'
      '.Top'
      'OpenDialog1.FileName')
    SaveWindowPlace = True
    AfterLoad = RegAuto1AfterLoad
    AfterSave = RegAuto1AfterSave
    Left = 248
    Top = 136
  end
  object OpenDialog1: TOpenDialog
    Filter = 
      'Delphi units (*.pas)|*.pas|Delphi forms (*.dfm)|*.dfm|All files ' +
      '(*.*)|*.*'
    Title = 'Select delphi form'
    Left = 480
    Top = 104
  end
  object Table1: TTable
    DatabaseName = 'DBDemos'
    TableName = 'EMPLOYEE.DB'
    Left = 340
    Top = 209
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 340
    Top = 265
  end
  object JvInterpreterProgram1: TJvInterpreterFm
    OnGetValue = JvInterpreterProgram1GetValue
    OnGetUnitSource = JvInterpreterProgram1GetUnitSource
    OnStatement = JvInterpreterProgram1Statement
    OnGetDfmFileName = JvInterpreterProgram1GetDfmFileName
    Left = 260
    Top = 89
  end
  object RegAuto2: TJvRegAuto
    RegPath = 'Software\JVCL\RAInterTest'
    Storage = raIniStrings
    IniFile = '$HOME/.JvInterpreterTest'
    AutoMode = False
    Left = 248
    Top = 208
  end
end