home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 July
/
PCWorld_1999-07_cd.bin
/
software
/
Vyzkuste
/
Synth2
/
Synth2.exe
/
0
/
RCDATA
/
TSYNTHF
/
TSYNTHF.txt
Wrap
Text File
|
1999-05-07
|
25KB
|
1,008 lines
object SynthF: TSynthF
Left = 191
Top = 121
Width = 625
Height = 429
Caption = 'Jans Synth 2'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object Editor: TmwCustomEdit
Left = 0
Top = 29
Width = 617
Height = 325
Cursor = crIBeam
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Courier New'
Font.Style = []
GutterColor = clBtnFace
GutterWidth = 66
HighLighter = highlight
Keystrokes = <
item
ShortCut = 38
Command = ecUp
end
item
ShortCut = 8230
Command = ecSelUp
end
item
ShortCut = 16422
Command = ecScrollUp
end
item
ShortCut = 40
Command = ecDown
end
item
ShortCut = 8232
Command = ecSelDown
end
item
ShortCut = 16424
Command = ecScrollDown
end
item
ShortCut = 37
Command = ecLeft
end
item
ShortCut = 8229
Command = ecSelLeft
end
item
ShortCut = 16421
Command = ecWordLeft
end
item
ShortCut = 24613
Command = ecSelWordLeft
end
item
ShortCut = 39
Command = ecRight
end
item
ShortCut = 8231
Command = ecSelRight
end
item
ShortCut = 16423
Command = ecWordRight
end
item
ShortCut = 24615
Command = ecSelWordRight
end
item
ShortCut = 34
Command = ecPageDown
end
item
ShortCut = 8226
Command = ecSelPageDown
end
item
ShortCut = 16418
Command = ecPageBottom
end
item
ShortCut = 24610
Command = ecSelPageBottom
end
item
ShortCut = 33
Command = ecPageUp
end
item
ShortCut = 8225
Command = ecSelPageUp
end
item
ShortCut = 16417
Command = ecPageTop
end
item
ShortCut = 24609
Command = ecSelPageTop
end
item
ShortCut = 36
Command = ecLineStart
end
item
ShortCut = 8228
Command = ecSelLineStart
end
item
ShortCut = 16420
Command = ecEditorTop
end
item
ShortCut = 24612
Command = ecSelEditorTop
end
item
ShortCut = 35
Command = ecLineEnd
end
item
ShortCut = 8227
Command = ecSelLineEnd
end
item
ShortCut = 16419
Command = ecEditorBottom
end
item
ShortCut = 24611
Command = ecSelEditorBottom
end
item
ShortCut = 45
Command = ecToggleMode
end
item
ShortCut = 16429
Command = ecCopy
end
item
ShortCut = 8237
Command = ecPaste
end
item
ShortCut = 46
Command = ecDeleteChar
end
item
ShortCut = 8238
Command = ecCut
end
item
ShortCut = 8
Command = ecDeleteLastChar
end
item
ShortCut = 16392
Command = ecDeleteLastWord
end
item
ShortCut = 32776
Command = ecUndo
end
item
ShortCut = 40968
Command = ecRedo
end
item
ShortCut = 13
Command = ecLineBreak
end
item
ShortCut = 16449
Command = ecSelectAll
end
item
ShortCut = 16451
Command = ecCopy
end
item
ShortCut = 24649
Command = ecBlockIndent
end
item
ShortCut = 16461
Command = ecLineBreak
end
item
ShortCut = 16462
Command = ecInsertLine
end
item
ShortCut = 16468
Command = ecDeleteWord
end
item
ShortCut = 24661
Command = ecBlockUnindent
end
item
ShortCut = 16470
Command = ecPaste
end
item
ShortCut = 16472
Command = ecCut
end
item
ShortCut = 16473
Command = ecDeleteLine
end
item
ShortCut = 24665
Command = ecDeleteEOL
end
item
ShortCut = 16474
Command = ecUndo
end
item
ShortCut = 24666
Command = ecRedo
end
item
ShortCut = 16432
Command = ecGotoMarker0
end
item
ShortCut = 16433
Command = ecGotoMarker1
end
item
ShortCut = 16434
Command = ecGotoMarker2
end
item
ShortCut = 16435
Command = ecGotoMarker3
end
item
ShortCut = 16436
Command = ecGotoMarker4
end
item
ShortCut = 16437
Command = ecGotoMarker5
end
item
ShortCut = 16438
Command = ecGotoMarker6
end
item
ShortCut = 16439
Command = ecGotoMarker7
end
item
ShortCut = 16440
Command = ecGotoMarker8
end
item
ShortCut = 16441
Command = ecGotoMarker9
end
item
ShortCut = 24624
Command = ecSetMarker0
end
item
ShortCut = 24625
Command = ecSetMarker1
end
item
ShortCut = 24626
Command = ecSetMarker2
end
item
ShortCut = 24627
Command = ecSetMarker3
end
item
ShortCut = 24628
Command = ecSetMarker4
end
item
ShortCut = 24629
Command = ecSetMarker5
end
item
ShortCut = 24630
Command = ecSetMarker6
end
item
ShortCut = 24631
Command = ecSetMarker7
end
item
ShortCut = 24632
Command = ecSetMarker8
end
item
ShortCut = 24633
Command = ecSetMarker9
end>
LeftChar = 1
LeadingZeros = True
MaxUndo = 10
ParentColor = False
ParentFont = False
ReadOnly = False
TabOrder = 0
TopLine = 1
ZeroStart = False
end
object StatusBar1: TStatusBar
Left = 0
Top = 354
Width = 617
Height = 19
Panels = <>
SimplePanel = True
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 617
Height = 29
ButtonHeight = 24
Caption = 'ToolBar1'
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 2
Width = 8
Caption = 'ToolButton1'
Style = tbsSeparator
end
object Tips: TComboBox
Left = 8
Top = 2
Width = 289
Height = 24
Hint = 'Tips'
Color = 12639424
ItemHeight = 16
ParentShowHint = False
PopupMenu = tippop
ShowHint = True
TabOrder = 0
OnClick = TipsClick
end
object ToolButton2: TToolButton
Left = 297
Top = 2
Width = 8
Caption = 'ToolButton2'
ImageIndex = 0
Style = tbsSeparator
end
object FileComboBox1: TFileComboBox
Left = 305
Top = 2
Width = 145
Height = 24
Hint = 'Tip Files'
ItemHeight = 16
Mask = '*.tip'
ParentShowHint = False
PopupMenu = tipfilespop
ShowHint = True
TabOrder = 1
OnClick = FileComboBox1Click
end
object ToolButton3: TToolButton
Left = 450
Top = 2
Width = 8
Caption = 'ToolButton3'
ImageIndex = 1
Style = tbsSeparator
end
object keyfiles: TFileComboBox
Left = 458
Top = 2
Width = 145
Height = 24
Hint = 'Keyword Files'
Color = 12648447
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 16
Mask = '*.jkf'
ParentFont = False
ParentShowHint = False
PopupMenu = keyfilespop
ShowHint = True
TabOrder = 2
OnClick = keyfilesClick
end
end
object highlight: TmwGeneralSyn
Comments = [csAnsiStyle]
CommentAttri.Background = clWindow
CommentAttri.Foreground = clBlue
CommentAttri.Style = [fsItalic]
CommentAttri.IntegerStyle = 2
IdentifierAttri.Background = clWindow
IdentifierAttri.Foreground = clWindowText
IdentifierAttri.Style = []
IdentifierAttri.IntegerStyle = 0
KeyAttri.Background = clWindow
KeyAttri.Foreground = clWindowText
KeyAttri.Style = [fsBold]
KeyAttri.IntegerStyle = 1
NumberAttri.Background = clWindow
NumberAttri.Foreground = clWindowText
NumberAttri.Style = []
NumberAttri.IntegerStyle = 0
SpaceAttri.Background = clWindow
SpaceAttri.Foreground = clWindowText
SpaceAttri.Style = []
SpaceAttri.IntegerStyle = 0
StringAttri.Background = clWindow
StringAttri.Foreground = clWindowText
StringAttri.Style = []
StringAttri.IntegerStyle = 0
SymbolAttri.Background = clWindow
SymbolAttri.Foreground = clWindowText
SymbolAttri.Style = []
SymbolAttri.IntegerStyle = 0
Left = 304
Top = 136
end
object MainMenu1: TMainMenu
Left = 72
Top = 32
object File1: TMenuItem
Caption = '&File'
object Open1: TMenuItem
Caption = '&Open...'
ShortCut = 16463
OnClick = Open1Click
end
object Reopen1: TMenuItem
Caption = 'Reopen'
object ro1: TMenuItem
OnClick = ro1Click
end
object ro2: TMenuItem
OnClick = ro1Click
end
object ro3: TMenuItem
OnClick = ro1Click
end
object ro4: TMenuItem
OnClick = ro1Click
end
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 16467
OnClick = Save1Click
end
object SaveAs1: TMenuItem
Caption = 'Save &As...'
OnClick = SaveAs1Click
end
object Close1: TMenuItem
Caption = '&Close'
OnClick = Close1Click
end
object N6: TMenuItem
Caption = '-'
end
object Print1: TMenuItem
Caption = '&Print'
OnClick = Print1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
end
end
object Edit1: TMenuItem
Caption = '&Edit'
object Undo1: TMenuItem
Caption = '&Undo'
ShortCut = 16474
OnClick = Undo1Click
end
object Redo1: TMenuItem
Caption = '&Redo'
ShortCut = 49242
OnClick = Redo1Click
end
object Cut1: TMenuItem
Caption = 'Cu&t'
ShortCut = 16472
OnClick = Cut1Click
end
object Copy1: TMenuItem
Caption = '&Copy'
ShortCut = 16451
OnClick = Copy1Click
end
object Paste1: TMenuItem
Caption = '&Paste'
ShortCut = 16470
OnClick = Paste1Click
end
object SelectAll1: TMenuItem
Caption = 'Select &All'
ShortCut = 16449
OnClick = SelectAll1Click
end
object N3: TMenuItem
Caption = '-'
end
object Find1: TMenuItem
Caption = '&Find...'
ShortCut = 16454
OnClick = Find1Click
end
object Replace1: TMenuItem
Caption = '&Replace...'
ShortCut = 16466
OnClick = Replace1Click
end
object GotoLine1: TMenuItem
Caption = '&Go to Line Number...'
ShortCut = 16455
OnClick = GotoLine1Click
end
end
object Synth1: TMenuItem
Caption = '&Synth'
object HighLighter1: TMenuItem
Caption = 'HighLighter'
object User1: TMenuItem
Caption = '&User'
Checked = True
GroupIndex = 1
RadioItem = True
OnClick = User1Click
end
object Pascal1: TMenuItem
Caption = '&Pascal'
GroupIndex = 1
RadioItem = True
OnClick = Pascal1Click
end
object Perl1: TMenuItem
Caption = 'Per&l'
GroupIndex = 1
RadioItem = True
OnClick = Perl1Click
end
object C1: TMenuItem
Caption = '&C++'
GroupIndex = 1
RadioItem = True
OnClick = C1Click
end
object Java1: TMenuItem
Caption = '&Java'
GroupIndex = 1
RadioItem = True
OnClick = Java1Click
end
object HTML1: TMenuItem
Caption = '&HTML'
GroupIndex = 1
RadioItem = True
OnClick = HTML1Click
end
object VisualBasicScript1: TMenuItem
Caption = '&Visual Basic Script'
GroupIndex = 1
RadioItem = True
OnClick = VisualBasicScript1Click
end
end
object UserAttributes1: TMenuItem
Caption = 'User Attributes'
object LoadKeywords1: TMenuItem
Caption = 'Load &Keywords'
OnClick = LoadKeywords1Click
end
object SaveKeywords1: TMenuItem
Caption = '&Save Keywords'
OnClick = SaveKeywords1Click
end
object N4: TMenuItem
Caption = '-'
end
object BackColor1: TMenuItem
Caption = 'Back Color...'
OnClick = BackColor1Click
end
object ForeColor1: TMenuItem
Caption = 'Fore Color...'
OnClick = ForeColor1Click
end
object N5: TMenuItem
Caption = '-'
end
object Bold1: TMenuItem
Caption = 'Bold'
Checked = True
OnClick = Bold1Click
end
object Italic1: TMenuItem
Caption = 'Italic'
OnClick = Italic1Click
end
object Underline1: TMenuItem
Caption = 'Underline'
OnClick = Underline1Click
end
end
object CommentStyle1: TMenuItem
Caption = 'Comment Style'
object Ansi1: TMenuItem
Caption = 'Ansi'
Checked = True
GroupIndex = 1
RadioItem = True
OnClick = Ansi1Click
end
object Pascal2: TMenuItem
Caption = 'Pascal'
GroupIndex = 1
RadioItem = True
OnClick = Pascal2Click
end
object C2: TMenuItem
Caption = 'C'
GroupIndex = 1
RadioItem = True
OnClick = C2Click
end
object Asm1: TMenuItem
Caption = 'Asm'
GroupIndex = 1
RadioItem = True
OnClick = Asm1Click
end
object Basic1: TMenuItem
Caption = 'Basic'
GroupIndex = 1
RadioItem = True
OnClick = Basic1Click
end
end
end
object Options1: TMenuItem
Caption = '&Options'
object LineNumbers1: TMenuItem
Caption = 'Line &Numbers'
OnClick = LineNumbers1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
object Contents1: TMenuItem
Caption = '&Contents'
ShortCut = 112
OnClick = Contents1Click
end
object N2: TMenuItem
Caption = '-'
end
object About1: TMenuItem
Caption = '&About'
OnClick = About1Click
end
end
end
object HPascal: TmwPasSyn
DefaultFilter = 'Pascal files (*.pas,*.inc)|*.PAS;*.INC'
AsmAttri.Background = clWindow
AsmAttri.Foreground = clWindowText
AsmAttri.Style = []
AsmAttri.IntegerStyle = 0
CommentAttri.Background = clWindow
CommentAttri.Foreground = clWindowText
CommentAttri.Style = [fsItalic]
CommentAttri.IntegerStyle = 2
IdentifierAttri.Background = clWindow
IdentifierAttri.Foreground = clWindowText
IdentifierAttri.Style = []
IdentifierAttri.IntegerStyle = 0
KeyAttri.Background = clWindow
KeyAttri.Foreground = clWindowText
KeyAttri.Style = [fsBold]
KeyAttri.IntegerStyle = 1
NumberAttri.Background = clWindow
NumberAttri.Foreground = clWindowText
NumberAttri.Style = []
NumberAttri.IntegerStyle = 0
SpaceAttri.Background = clWindow
SpaceAttri.Foreground = clWindowText
SpaceAttri.Style = []
SpaceAttri.IntegerStyle = 0
StringAttri.Background = clWindow
StringAttri.Foreground = clWindowText
StringAttri.Style = []
StringAttri.IntegerStyle = 0
SymbolAttri.Background = clWindow
SymbolAttri.Foreground = clWindowText
SymbolAttri.Style = []
SymbolAttri.IntegerStyle = 0
Left = 136
Top = 48
end
object HCpp: TDcjCppSyn
DefaultFilter = 'C++ files (*.cpp,*.h,*.hpp)|*.CPP;*.H;*.HPP'
AsmAttri.Background = clWindow
AsmAttri.Foreground = clWindowText
AsmAttri.Style = []
AsmAttri.IntegerStyle = 0
CommentAttri.Background = clWindow
CommentAttri.Foreground = clWindowText
CommentAttri.Style = [fsItalic]
CommentAttri.IntegerStyle = 2
DirecAttri.Background = clWindow
DirecAttri.Foreground = clWindowText
DirecAttri.Style = []
DirecAttri.IntegerStyle = 0
IdentifierAttri.Background = clWindow
IdentifierAttri.Foreground = clWindowText
IdentifierAttri.Style = []
IdentifierAttri.IntegerStyle = 0
InvalidAttri.Background = clWindow
InvalidAttri.Foreground = clWindowText
InvalidAttri.Style = []
InvalidAttri.IntegerStyle = 0
KeyAttri.Background = clWindow
KeyAttri.Foreground = clWindowText
KeyAttri.Style = [fsBold]
KeyAttri.IntegerStyle = 1
NumberAttri.Background = clWindow
NumberAttri.Foreground = clWindowText
NumberAttri.Style = []
NumberAttri.IntegerStyle = 0
SpaceAttri.Background = clWindow
SpaceAttri.Foreground = clWindow
SpaceAttri.Style = []
SpaceAttri.IntegerStyle = 0
StringAttri.Background = clWindow
StringAttri.Foreground = clWindowText
StringAttri.Style = []
StringAttri.IntegerStyle = 0
SymbolAttri.Background = clWindow
SymbolAttri.Foreground = clWindowText
SymbolAttri.Style = []
SymbolAttri.IntegerStyle = 0
Left = 136
Top = 88
end
object HPerl: TDcjPerlSyn
DefaultFilter = 'Perl files (*.pl,*.pm,*.cgi)|*.PL;*.PM;*.CGI'
CommentAttri.Background = clWindow
CommentAttri.Foreground = clWindowText
CommentAttri.Style = [fsItalic]
CommentAttri.IntegerStyle = 2
IdentifierAttri.Background = clWindow
IdentifierAttri.Foreground = clWindowText
IdentifierAttri.Style = []
IdentifierAttri.IntegerStyle = 0
InvalidAttri.Background = clWindow
InvalidAttri.Foreground = clWindowText
InvalidAttri.Style = []
InvalidAttri.IntegerStyle = 0
KeyAttri.Background = clWindow
KeyAttri.Foreground = clWindowText
KeyAttri.Style = [fsBold]
KeyAttri.IntegerStyle = 1
NumberAttri.Background = clWindow
NumberAttri.Foreground = clWindowText
NumberAttri.Style = []
NumberAttri.IntegerStyle = 0
OperatorAttri.Background = clWindow
OperatorAttri.Foreground = clWindowText
OperatorAttri.Style = []
OperatorAttri.IntegerStyle = 0
PragmaAttri.Background = clWindow
PragmaAttri.Foreground = clWindowText
PragmaAttri.Style = [fsBold]
PragmaAttri.IntegerStyle = 1
SpaceAttri.Background = clWindow
SpaceAttri.Foreground = clWindow
SpaceAttri.Style = []
SpaceAttri.IntegerStyle = 0
StringAttri.Background = clWindow
StringAttri.Foreground = clWindowText
StringAttri.Style = []
StringAttri.IntegerStyle = 0
SymbolAttri.Background = clWindow
SymbolAttri.Foreground = clWindowText
SymbolAttri.Style = []
SymbolAttri.IntegerStyle = 0
VariableAttri.Background = clWindow
VariableAttri.Foreground = clWindowText
VariableAttri.Style = [fsBold]
VariableAttri.IntegerStyle = 1
Left = 136
Top = 120
end
object HJava: TDcjJavaSyn
DefaultFilter = 'Java files (*.java)|*.JAVA'
CommentAttri.Background = clWindow
CommentAttri.Foreground = clWindowText
CommentAttri.Style = [fsItalic]
CommentAttri.IntegerStyle = 2
DocumentAttri.Background = clWindow
DocumentAttri.Foreground = clWindowText
DocumentAttri.Style = [fsItalic]
DocumentAttri.IntegerStyle = 2
IdentifierAttri.Background = clWindow
IdentifierAttri.Foreground = clWindowText
IdentifierAttri.Style = []
IdentifierAttri.IntegerStyle = 0
InvalidAttri.Background = clWindow
InvalidAttri.Foreground = clWindowText
InvalidAttri.Style = []
InvalidAttri.IntegerStyle = 0
KeyAttri.Background = clWindow
KeyAttri.Foreground = clWindowText
KeyAttri.Style = [fsBold]
KeyAttri.IntegerStyle = 1
NumberAttri.Background = clWindow
NumberAttri.Foreground = clWindowText
NumberAttri.Style = []
NumberAttri.IntegerStyle = 0
SpaceAttri.Background = clWindow
SpaceAttri.Foreground = clWindow
SpaceAttri.Style = []
SpaceAttri.IntegerStyle = 0
StringAttri.Background = clWindow
StringAttri.Foreground = clWindowText
StringAttri.Style = []
StringAttri.IntegerStyle = 0
SymbolAttri.Background = clWindow
SymbolAttri.Foreground = clWindowText
SymbolAttri.Style = []
SymbolAttri.IntegerStyle = 0
Left = 176
Top = 48
end
object OpenDialog1: TOpenDialog
Left = 224
Top = 72
end
object SaveDialog1: TSaveDialog
Left = 264
Top = 80
end
object ReplaceDialog1: TReplaceDialog
Options = [frDown, frHideWholeWord, frHideUpDown, frMatchCase]
OnFind = ReplaceDialog1Find
OnReplace = ReplaceDialog1Replace
Left = 376
Top = 72
end
object FindDialog1: TFindDialog
Options = [frDown, frHideMatchCase, frHideWholeWord, frHideUpDown]
OnFind = FindDialog1Find
Left = 336
Top = 80
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 232
Top = 176
end
object tippop: TPopupMenu
Left = 96
Top = 112
object Add1: TMenuItem
Caption = '&Add'
OnClick = Add1Click
end
object Delete1: TMenuItem
Caption = '&Delete'
OnClick = Delete1Click
end
object Update1: TMenuItem
Caption = '&Update'
OnClick = Update1Click
end
end
object pw: TjansPasswordDialog
Password = '114am'
Left = 136
Top = 200
end
object tipfilespop: TPopupMenu
Left = 400
Top = 40
object New1: TMenuItem
Caption = '&New...'
OnClick = New1Click
end
end
object keyfilespop: TPopupMenu
Left = 504
Top = 26
object New2: TMenuItem
Caption = '&New...'
OnClick = New2Click
end
end
object HHtml: ThkHTMLSyn
DefaultFilter = 'HTML Document (*.htm,*.html)|*.HTM;*.HTML'
CommentAttri.Background = clWindow
CommentAttri.Foreground = clWindowText
CommentAttri.Style = []
CommentAttri.IntegerStyle = 0
IdentifierAttri.Background = clWindow
IdentifierAttri.Foreground = clWindowText
IdentifierAttri.Style = [fsBold]
IdentifierAttri.IntegerStyle = 1
KeyAttri.Background = clWindow
KeyAttri.Foreground = 16711808
KeyAttri.Style = [fsBold]
KeyAttri.IntegerStyle = 1
SpaceAttri.Background = clWindow
SpaceAttri.Foreground = clWindowText
SpaceAttri.Style = []
SpaceAttri.IntegerStyle = 0
SymbolAttri.Background = clWindow
SymbolAttri.Foreground = clWindowText
SymbolAttri.Style = [fsBold]
SymbolAttri.IntegerStyle = 1
TextAttri.Background = clWindow
TextAttri.Foreground = clWindowText
TextAttri.Style = []
TextAttri.IntegerStyle = 0
ValueAttri.Background = clWindow
ValueAttri.Foreground = 16744448
ValueAttri.Style = []
ValueAttri.IntegerStyle = 0
Left = 304
Top = 192
end
object HVbs: TlbVbsSyn
DefaultFilter = 'VBScript files (*.vbs)|*.VBS'
CommentAttri.Background = clWindow
CommentAttri.Foreground = clWindowText
CommentAttri.Style = [fsItalic]
CommentAttri.IntegerStyle = 2
IdentifierAttri.Background = clWindow
IdentifierAttri.Foreground = clWindowText
IdentifierAttri.Style = []
IdentifierAttri.IntegerStyle = 0
KeyAttri.Background = clWindow
KeyAttri.Foreground = clWindowText
KeyAttri.Style = [fsBold]
KeyAttri.IntegerStyle = 1
NumberAttri.Background = clWindow
NumberAttri.Foreground = clWindowText
NumberAttri.Style = []
NumberAttri.IntegerStyle = 0
SpaceAttri.Background = clWindow
SpaceAttri.Foreground = clWindowText
SpaceAttri.Style = []
SpaceAttri.IntegerStyle = 0
StringAttri.Background = clWindow
StringAttri.Foreground = clWindowText
StringAttri.Style = []
StringAttri.IntegerStyle = 0
SymbolAttri.Background = clWindow
SymbolAttri.Foreground = clWindowText
SymbolAttri.Style = []
SymbolAttri.IntegerStyle = 0
Left = 400
Top = 144
end
end