115 lines
2.8 KiB
Plaintext
115 lines
2.8 KiB
Plaintext
|
object MainForm: TMainForm
|
||
|
Left = 0
|
||
|
Top = 0
|
||
|
Caption = 'DelphiLua Interactive Test'
|
||
|
ClientHeight = 547
|
||
|
ClientWidth = 678
|
||
|
Color = clBtnFace
|
||
|
Font.Charset = DEFAULT_CHARSET
|
||
|
Font.Color = clWindowText
|
||
|
Font.Height = -11
|
||
|
Font.Name = 'Tahoma'
|
||
|
Font.Style = []
|
||
|
OldCreateOrder = False
|
||
|
Position = poDesktopCenter
|
||
|
OnDestroy = FormDestroy
|
||
|
PixelsPerInch = 96
|
||
|
TextHeight = 13
|
||
|
object PageControl: TPageControl
|
||
|
AlignWithMargins = True
|
||
|
Left = 8
|
||
|
Top = 8
|
||
|
Width = 662
|
||
|
Height = 416
|
||
|
Margins.Left = 8
|
||
|
Margins.Top = 8
|
||
|
Margins.Right = 8
|
||
|
Margins.Bottom = 8
|
||
|
ActivePage = FunctionReferenceTab
|
||
|
Align = alClient
|
||
|
TabOrder = 0
|
||
|
object FunctionReferenceTab: TTabSheet
|
||
|
Caption = 'Function reference'
|
||
|
object FunctionReferenceRichEdit: TRichEdit
|
||
|
AlignWithMargins = True
|
||
|
Left = 8
|
||
|
Top = 49
|
||
|
Width = 638
|
||
|
Height = 331
|
||
|
Margins.Left = 8
|
||
|
Margins.Top = 8
|
||
|
Margins.Right = 8
|
||
|
Margins.Bottom = 8
|
||
|
Align = alClient
|
||
|
Font.Charset = ANSI_CHARSET
|
||
|
Font.Color = clWindowText
|
||
|
Font.Height = -11
|
||
|
Font.Name = 'Courier New'
|
||
|
Font.Style = []
|
||
|
Lines.Strings = (
|
||
|
'function engine.onStartup()'
|
||
|
' engine.myFunction()'
|
||
|
' engine.display.log("Hello from display.log!")'
|
||
|
'end'
|
||
|
''
|
||
|
''
|
||
|
'function engine.myFunction()'
|
||
|
' print("Hello from myFunction!")'
|
||
|
' engine.display.log("Hello from myFunction'#39's display.log!")'
|
||
|
'end')
|
||
|
ParentFont = False
|
||
|
ScrollBars = ssBoth
|
||
|
TabOrder = 1
|
||
|
end
|
||
|
object FunctionReferenceButtonPanel: TPanel
|
||
|
Left = 0
|
||
|
Top = 0
|
||
|
Width = 654
|
||
|
Height = 41
|
||
|
Align = alTop
|
||
|
BevelOuter = bvNone
|
||
|
TabOrder = 0
|
||
|
object FunctionReferenceGetButton: TButton
|
||
|
Left = 8
|
||
|
Top = 13
|
||
|
Width = 121
|
||
|
Height = 25
|
||
|
Caption = 'Lookup functions'
|
||
|
TabOrder = 0
|
||
|
OnClick = FunctionReferenceGetButtonClick
|
||
|
end
|
||
|
object FunctionReferenceCallStartupButton: TButton
|
||
|
Left = 135
|
||
|
Top = 13
|
||
|
Width = 121
|
||
|
Height = 25
|
||
|
Caption = 'Call onStartup'
|
||
|
TabOrder = 1
|
||
|
OnClick = FunctionReferenceCallStartupButtonClick
|
||
|
end
|
||
|
end
|
||
|
end
|
||
|
end
|
||
|
object LogRichEdit: TRichEdit
|
||
|
AlignWithMargins = True
|
||
|
Left = 8
|
||
|
Top = 432
|
||
|
Width = 662
|
||
|
Height = 107
|
||
|
Margins.Left = 8
|
||
|
Margins.Top = 0
|
||
|
Margins.Right = 8
|
||
|
Margins.Bottom = 8
|
||
|
Align = alBottom
|
||
|
Font.Charset = ANSI_CHARSET
|
||
|
Font.Color = clWindowText
|
||
|
Font.Height = -11
|
||
|
Font.Name = 'Tahoma'
|
||
|
Font.Style = []
|
||
|
ParentFont = False
|
||
|
ReadOnly = True
|
||
|
ScrollBars = ssVertical
|
||
|
TabOrder = 1
|
||
|
end
|
||
|
end
|