www.pudn.com > byyl.rar > mainUnit.dfm
object mainForm: TmainForm
Left = -4
Top = -4
Width = 808
Height = 580
Caption = '编译原理课程设计---PL语言'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnMouseMove = FormMouseMove
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object StatusBar: TStatusBar
Left = 0
Top = 515
Width = 800
Height = 19
Panels = <
item
Text = ' 源程序正文当前行数'
Width = 120
end
item
Width = 50
end
item
Width = 200
end
item
Text = ' 运行提示'
Width = 70
end
item
Width = 50
end>
SimplePanel = False
end
object PageControl: TPageControl
Left = 0
Top = 72
Width = 800
Height = 443
ActivePage = TabSheet6
Align = alBottom
TabOrder = 1
OnMouseMove = PageControlMouseMove
object TabSheet1: TTabSheet
Caption = '源程序正文'
object yuanchengcu: TRichEdit
Left = 0
Top = 0
Width = 793
Height = 416
Align = alLeft
Color = clInactiveCaptionText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Lines.Strings = (
'begin'
' '
'end.')
ParentFont = False
PlainText = True
ScrollBars = ssBoth
TabOrder = 0
OnChange = yuanchengcuChange
OnMouseMove = yuanchengcuMouseMove
OnSelectionChange = yuanchengcuSelectionChange
end
object errpage: TPanel
Left = 596
Top = 0
Width = 196
Height = 416
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object error: TRichEdit
Left = 2
Top = 0
Width = 194
Height = 416
Anchors = [akLeft, akTop, akRight, akBottom]
Color = cl3DLight
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
end
end
object TabSheet2: TTabSheet
Caption = '词法分析代码序列输出'
ImageIndex = 1
object cifafenxishuchu: TRichEdit
Left = 0
Top = 0
Width = 792
Height = 416
Align = alClient
Color = clInactiveCaptionText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
PlainText = True
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
OnMouseMove = cifafenxishuchuMouseMove
end
end
object TabSheet3: TTabSheet
Caption = '语法语义分析代码序列输出'
ImageIndex = 2
object yufayuyifenxishuchu: TRichEdit
Left = 0
Top = 0
Width = 792
Height = 416
Align = alClient
Color = clInactiveCaptionText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
PlainText = True
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
OnMouseMove = yufayuyifenxishuchuMouseMove
end
end
object TabSheet4: TTabSheet
Caption = '汇编代码生成输出'
ImageIndex = 3
object mubiaodaimashuchu: TRichEdit
Left = 0
Top = 0
Width = 792
Height = 416
Align = alClient
Color = clInactiveCaptionText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
PlainText = True
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
OnMouseMove = mubiaodaimashuchuMouseMove
end
end
object TabSheet5: TTabSheet
Caption = '最终结果显示输出'
ImageIndex = 4
object result: TMemo
Left = 0
Top = 0
Width = 792
Height = 416
Align = alClient
Color = clActiveBorder
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
OnMouseMove = resultMouseMove
end
end
object TabSheet6: TTabSheet
Caption = '帮助说明'
ImageIndex = 5
object help: TRichEdit
Left = 0
Top = 0
Width = 792
Height = 416
Align = alClient
Color = clInactiveCaptionText
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Lines.Strings = (
''
''
' 计算机系97级2班 陈克 伍珍贞 学号：972114217 972114216')
ParentFont = False
PlainText = True
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
OnMouseMove = cifafenxishuchuMouseMove
end
end
end
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 800
Height = 65
Bands = <>
object SpeedButton1: TSpeedButton
Left = 5
Top = 2
Width = 60
Height = 57
Caption = '词法分析'
Glyph.Data = {
16020000424D160200000000000076000000280000001B0000001A0000000100
040000000000A001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777770000077777777777777777777777777700000777777777777
7777777777777770000077000000000000000000000007700000778F7F7F7F7F
7F7F7F7F7F7F07700000778FF7F7F7F7F7F7F7F7F7F707700000778F7F7F7F7F
7F7F7F7F7F7F07700000778FF7F7F7CCCCC7CCC7F7F707700000778F7F7F7F7F
7F7F7F7F7F7F07700000778FF7F7F7CCC7CCC7F7F7F707700000778F7F7F7F7F
7F7F7F7F9B9F07700000778FF7F7F7F7F7F7F7F7B9B707700000778F7F7F7F7F
7F7F7F7F9B9F07700000778FF7F7F7F7F7F7F887B9B707700000778FFFF888FF
FFFF0088FFFF0770000077888700088888807B08888807700000777770B7B088
8807B7B088777770000077773F7B7B000003737008777770000077773F0FB7B7
B7B7B7B708777770000077773F007BFFFFFFFFFF07777770000077773FB7BF33
33333333777777700000777773FFF37777777777777777700000777777333777
7777777777777770000077777777777777777777777777700000777777777777
7777777777777770000077777777777777777777777777700000}
Layout = blGlyphTop
OnClick = BitBtn1Click
end
object SpeedButton2: TSpeedButton
Left = 65
Top = 2
Width = 62
Height = 57
Hint = '语法、语义分析'
Caption = '语法分析'
Glyph.Data = {
96010000424D9601000000000000760000002800000018000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777777777777F88888888888888888888887F88888888888888888888887F804
04040404040404040887F84333333333333333334887F887BBBBBBBBBBBBBBB7
8887F8887B3B3B3B3B3B3B788887F88000000000000000008887F88088888888
888888808887F88088FFFFF888FFFF808887F880878888F887888F808887F880
87888800888888808887F8808788887B008888808887F880878888F791088880
8887F88087777787F91088808887F880888888887F9108808887F88000000000
07F910008887F88066666666667F91008887F880000000000007F9108887F888
8888888888887FF70887F88888888888888887FF7087F88888888888888888D5
D587F888888888888888888D5887FFFFFFFFFFFFFFFFFFFFFFF7}
Layout = blGlyphTop
ParentShowHint = False
ShowHint = True
OnClick = BitBtn2Click
end
object SpeedButton3: TSpeedButton
Left = 127
Top = 2
Width = 60
Height = 57
Caption = '汇编代码'
Glyph.Data = {
96010000424D9601000000000000760000002800000018000000180000000100
04000000000020010000CE0E0000C40E00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00877777777777
777777777777F44444444444444440444447F43333333333333303333347F773
73737373737037300087F83BBBBBBBBBBBBB000B4C87F883B3B3B3B3B3B3B3B4
C087F888333333333333444C0887F88888888888888467C08887F88888877777
7774F6708887F88888F8888888848F807887F88700000066666600087887F870
7777770870E8E8687887F80774444444408E8E687887F8074777777400E8E868
7887F07948888880788E8E687887F0444444770870E8E8687887F078888000FE
8E8E8E687887F70000086FEFE8E8E8687887F08888F86EFEFE8E8E687887F888
88F84444444444487887F88888F88888888888887887F888888FFFFFFFFFFFFF
8887F88888888888888888888887FFFFFFFFFFFFFFFFFFFFFFF8}
Layout = blGlyphTop
OnClick = BitBtn3Click
end
object SpeedButton4: TSpeedButton
Left = 187
Top = 2
Width = 61
Height = 57
Caption = '解释执行'
Glyph.Data = {
96010000424D9601000000000000760000002800000018000000180000000100
04000000000020010000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888
888888888888F77FFFFFFFFFFFF887777778F77F8888888FFFF888777778F77F
FFFFFFFFFFF887878778F77F8888888888F888787878F77FFFFFFFFFFFF88787
8788F77F8888888888F888787878F77FFFFFFFFFFFF800000008F77FFF888888
88F833333338F77FFFFFFFFFFFF83BBBBBB8F77FFFFFFFFFFFF888888888F777
777777777778BBBBB878F777777877778BBBBBBBB878F77777F877778BB8B888
B888F77777F877768BBBBBBBB848F77787F8788C8B8B8888B8C8F777F8F8F78C
8BBBBBBBB8C8F7888FFF888CCCCD555666C8FFFFFFFFFFFCCCCD555E6668F777
8FFF8776CCCB55BB6C78F777F7F8F877CC8BD5B86C78F77777F87777CC77BB87
6678F77777F87777667778777778FFFFFFFFFFFFFFFFFFFFFFF7}
Layout = blGlyphTop
OnClick = BitBtn4Click
end
object SpeedButton6: TSpeedButton
Left = 249
Top = 2
Width = 62
Height = 57
Caption = '退 出'
Glyph.Data = {
96010000424D9601000000000000760000002800000018000000180000000100
04000000000020010000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888
888888888888F77777777777777777777778F77777700000000000007778F777
77700BFBFBFBFBF07778F777777080BFBFBFBFBF0778F7777770B0FBFBFBFBFB
0778F777777080BFBFBFBFBF0778F7777880B80BFBFBFBFBF078F77700008B0F
BFBFBFBFB078F7770FA0B800000000000078F7770AF08B8B8B0AEA0B0078F777
0FA000B8B000AEA0A078F7770AFAF80008870AEAE078F7770FAFAFAFA08770AE
A078F7778FFAFAFAF0870AEAE078F7778FAFAFA2207000000078F77F8FFFFA00
007777777778F777FFFFAF0F077777777778FFFFFFFAFA00777777777778F777
FFF80007777777777778F77F7F7F7777777777777778F7777F77777777777777
7778F7777F777777777777777778FFFFFFFFFFFFFFFFFFFFFFF7}
Layout = blGlyphTop
OnClick = SpeedButton6Click
end
end
object MainMenu1: TMainMenu
AutoHotkeys = maManual
Left = 630
Top = 33
object F1: TMenuItem
Caption = '文件'
object N1: TMenuItem
Caption = '新建(&N)'
ImageIndex = 0
OnClick = newButtonClick
end
object O1: TMenuItem
Caption = '打开(&O)'
ImageIndex = 1
OnClick = OpenButtonClick
end
object S1: TMenuItem
Caption = '保存(&S)'
ImageIndex = 2
OnClick = SaveButtonClick
end
end
object K1: TMenuItem
Caption = '运行'
object N18: TMenuItem
Caption = '直接运行(&R)'
ImageIndex = 8
ShortCut = 120
OnClick = runClick
end
object N19: TMenuItem
Caption = '-'
end
object N20: TMenuItem
Caption = '词法分析'
OnClick = BitBtn1Click
end
object N21: TMenuItem
Caption = '语法、语义分析'
OnClick = BitBtn2Click
end
object N22: TMenuItem
Caption = '汇编代码生成'
OnClick = BitBtn3Click
end
object N23: TMenuItem
Caption = '解释执行'
OnClick = BitBtn4Click
end
end
object N2: TMenuItem
Caption = '说明'
object N5: TMenuItem
Caption = '帮助'
end
end
object N3: TMenuItem
Caption = '退出'
OnClick = N3Click
end
end
object OpenDialog: TOpenDialog
DefaultExt = 'ps'
Filter = 'PL项目文件 (*.pl)|*.pl|所有文件 (*.*)|*.*'
Left = 598
Top = 30
end
object SaveDialog: TSaveDialog
DefaultExt = 'ps'
Filter = 'PL项目文件 (*.pl)|*.pl'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 662
Top = 30
end
end