home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 176
- Top = 170
- Width = 442
- Height = 294
- Caption = 'Form1'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 434
- Height = 33
- Align = alTop
- TabOrder = 0
- OnClick = Panel1Click
- object CompileBut: TButton
- Left = 4
- Top = 4
- Width = 75
- Height = 25
- Caption = 'Compile'
- TabOrder = 0
- OnClick = CompileButClick
- end
- object SpeedBar1: TSpeedBar
- Left = 1
- Top = 1
- Width = 432
- Height = 36
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- BtnOffsetHorz = 3
- BtnOffsetVert = 3
- TabOrder = 1
- InternalVer = 1
- object BitBtn1: TBitBtn
- Left = 4
- Top = 4
- Width = 75
- Height = 25
- Caption = 'Compile'
- TabOrder = 0
- OnClick = BitBtn1Click
- end
- object BitBtn2: TBitBtn
- Left = 88
- Top = 4
- Width = 75
- Height = 25
- Caption = 'Run'
- TabOrder = 1
- OnClick = BitBtn2Click
- end
- object Button1: TButton
- Left = 172
- Top = 4
- Width = 75
- Height = 25
- Caption = 'Load'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 256
- Top = 4
- Width = 75
- Height = 25
- Caption = 'Save'
- TabOrder = 3
- OnClick = Button2Click
- end
- object SpeedbarSection1: TSpeedbarSection
- Caption = 'Untitled (0)'
- end
- end
- end
- object Memo1: TMemo
- Left = 0
- Top = 33
- Width = 246
- Height = 234
- Align = alClient
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- Lines.Strings = (
- 'Show('#39'Here you see program source'#39');'
- 'Show:='#39'Press Load and select Sample.txt'#39';')
- ParentFont = False
- ScrollBars = ssBoth
- TabOrder = 1
- end
- object RxSplitter1: TRxSplitter
- Left = 246
- Top = 33
- Width = 3
- Height = 234
- ControlFirst = Memo2
- ControlSecond = Memo1
- Align = alRight
- end
- object Memo2: TMemo
- Left = 249
- Top = 33
- Width = 185
- Height = 234
- Align = alRight
- Lines.Strings = (
- 'This is window with '
- 'VM-codes'
- 'If U want to run'
- 'a program'
- 'press'
- 'Compile and Run'
- 'buttons...')
- ScrollBars = ssVertical
- TabOrder = 3
- end
- object aCode: TCode
- Size = 8000
- Left = 336
- Top = 136
- end
- object LangProc1: TLangProc
- LangName = 'Caption'
- LangOwner = RunTime.VM
- OnExec = LangProc1Exec
- Left = 137
- Top = 145
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = 'txt'
- FileEditStyle = fsEdit
- FileName = '*.txt'
- Filter = 'Text files (*.txt)|*.txt'
- Left = 160
- Top = 72
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'txt'
- FileEditStyle = fsEdit
- FileName = '*.txt'
- Filter = 'Text files (*.txt)|*.txt'
- Left = 200
- Top = 72
- end
- end
-