home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 254
- Top = 197
- Width = 546
- Height = 375
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = True
- Position = poScreenCenter
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Splitter1: TSplitter
- Left = 0
- Top = 170
- Width = 538
- Height = 3
- Cursor = crVSplit
- Align = alBottom
- end
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 538
- Height = 170
- Align = alClient
- ScrollBars = ssVertical
- TabOrder = 0
- OnChange = Memo1Change
- end
- object Memo2: TMemo
- Left = 0
- Top = 173
- Width = 538
- Height = 156
- Align = alBottom
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object MainMenu1: TMainMenu
- Left = 104
- Top = 32
- object File1: TMenuItem
- Caption = '&File'
- object New1: TMenuItem
- Caption = '&New'
- OnClick = New1Click
- end
- object Open1: TMenuItem
- Caption = '&Open...'
- OnClick = Open1Click
- end
- object Save1: TMenuItem
- Caption = '&Save'
- OnClick = Save1Click
- end
- object SaveAs1: TMenuItem
- Caption = 'Save &As...'
- OnClick = SaveAs1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = Exit1Click
- end
- end
- object Toosl1: TMenuItem
- Caption = '&Script'
- object Compile1: TMenuItem
- Caption = '&Compile'
- ShortCut = 120
- OnClick = Compile1Click
- end
- object CompilewithTimer1: TMenuItem
- Caption = 'Compile with &Timer'
- OnClick = CompilewithTimer1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Stop1: TMenuItem
- Caption = '&Stop'
- ShortCut = 16497
- OnClick = Stop1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object CompileandDisassemble1: TMenuItem
- Caption = 'Compile and &Disassemble'
- OnClick = CompileandDisassemble1Click
- end
- end
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = 'ifps3'
- FileName = '*.ifps3'
- Filter = 'IFPS3 files (*.ifps3)|*.ifps3'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Left = 200
- Top = 152
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'ifps3'
- FileName = '*.ifps3'
- Filter = 'IFPS3 files (*.ifps3)|*.ifps3'
- Options = [ofHideReadOnly, ofPathMustExist]
- Left = 232
- Top = 152
- end
- end
-