282 lines
6.3 KiB
Plaintext
282 lines
6.3 KiB
Plaintext
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
|
|
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.Number.ForeColor = clNavy
|
|
Colors.Strings.ForeColor = clPurple
|
|
Colors.Symbol.ForeColor = clBlue
|
|
Colors.Reserved.Style = [fsBold]
|
|
Colors.Reserved.ForeColor = clBlack
|
|
Colors.Identifier.ForeColor = clBlack
|
|
Colors.Preproc.ForeColor = clGreen
|
|
Colors.Statement.Style = [fsBold]
|
|
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 Button2: TButton
|
|
Left = 16
|
|
Top = 16
|
|
Width = 75
|
|
Height = 23
|
|
Caption = 'Run'
|
|
TabOrder = 0
|
|
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: TJvFormStorage
|
|
StoredValues = <>
|
|
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: TJvFormStorage
|
|
StoredValues = <>
|
|
Left = 248
|
|
Top = 208
|
|
end
|
|
end
|