home *** CD-ROM | disk | FTP | other *** search
- object EditForm: TEditForm
- Left = 194
- Top = 119
- Width = 520
- Height = 392
- Caption = 'EditForm'
- ParentFont = True
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- PopupMenu = PopupMenu1
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 13
- object StatusBar1: TStatusBar
- Left = 0
- Top = 346
- Width = 512
- Height = 19
- Panels = <
- item
- Alignment = taRightJustify
- Width = 100
- end
- item
- Width = 100
- end
- item
- Width = 50
- end>
- SimplePanel = False
- end
- object TabControl: TTabControl
- Left = 0
- Top = 0
- Width = 512
- Height = 346
- Align = alClient
- TabOrder = 1
- TabStop = False
- OnChange = TabControlChange
- object Memo: TDCMemo
- Left = 4
- Top = 6
- Width = 504
- Height = 336
- Cursor = crIBeam
- DisabledColor = clGray
- PrintOptions = []
- WantTabs = True
- LineNumColor = clBlack
- LineNumAlign = taRightJustify
- StringsOptions = [soBackUnindents, soGroupUndo, soForceCutCopy, soAutoIndent, soSmartTab, soFindTextAtCursor, soOverwriteBlocks]
- TabStops = '9,17'
- Delimeters = '{}+-/*():=,;><$.#[]^@&~|%'#39
- KeyMapping = 'Default'
- GutterBackColor = clWhite
- ScrollBars = ssBoth
- Options = [moDrawMargin, moDrawGutter, moThumbTracking, moColorSyntax]
- GutterBrush.Color = clBtnFace
- MarginPen.Color = clGrayText
- GutterImgs = <
- item
- Name = 'BreakPoint'
- Glyph.Data = {
- BE000000424DBE00000000000000760000002800000009000000090000000100
- 0400000000004800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
- 0000FFF000FFF0000000FF09990FF0000000F0999990F0000000F0999990F000
- 0000F0999990F0000000FF09990FF0000000FFF000FFF0000000FFFFFFFFF000
- 0000}
- end
- item
- Name = 'Bookmark0'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082026202070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 0
- end
- item
- Name = 'Bookmark1'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086260626070F0FF0826202620
- 70F0FF086260626070F0FF082620262070F0FF086060626070F0FF0826002620
- 70F0FF086260626070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 1
- end
- item
- Name = 'Bookmark2'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086062626070F0FF0826062620
- 70F0FF086260626070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 2
- end
- item
- Name = 'Bookmark3'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082620062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 3
- end
- item
- Name = 'Bookmark4'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082626062070F0FF086262026070F0FF0826260620
- 70F0FF086000006070F0FF082026062070F0FF086062026070F0FF0820260620
- 70F0FF086062026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 4
- end
- item
- Name = 'Bookmark5'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082000062070F0FF086062626070F0FF0820262620
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 5
- end
- item
- Name = 'Bookmark6'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082000062070F0FF086062626070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 6
- end
- item
- Name = 'Bookmark7'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082620262070F0FF086260626070F0FF0826202620
- 70F0FF086262026070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 7
- end
- item
- Name = 'Bookmark8'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF086600062070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 8
- end
- item
- Name = 'Bookmark9'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086262206070F0FF0826262020
- 70F0FF086200606070F0FF082026002070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 9
- end>
- BkgndOption = boNone
- LineSeparator.Options = []
- LineSeparator.Pen.Color = clGrayText
- LineHighlight.Pen.Color = clGrayText
- LineHighlight.Brush.Color = clBtnFace
- LineHighlight.Visible = False
- SpecialSymbols.EOLString = '�'
- SpecialSymbols.EOFString = '_'
- LineNumBackColor = clWhite
- OnStateChange = MemoStateChange
- ReadOnly = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- TextStyles = <
- item
- Name = 'Whitespace'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'String'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Comment'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = [fsItalic]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Identifier'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Integer'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Float'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Reserved words'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = [fsBold, fsUnderline]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Delimeters'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Defines'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Assembler'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html tags'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html params'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Url'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = [fsUnderline]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'BreakPoint'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Error line'
- Color = clMaroon
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -13
- Font.Name = 'Courier'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end>
- PrinterFont.Charset = DEFAULT_CHARSET
- PrinterFont.Color = clBlack
- PrinterFont.Height = -13
- PrinterFont.Name = 'Courier New'
- PrinterFont.Style = []
- TemplateFont.Charset = DEFAULT_CHARSET
- TemplateFont.Color = clWindowText
- TemplateFont.Height = -11
- TemplateFont.Name = 'MS Sans Serif'
- TemplateFont.Style = []
- UsePrinterFont = False
- BlockIndent = 1
- SpacesInTab = 8
- Align = alClient
- Color = clWhite
- PopupMenu = PopupMenu1
- TabOrder = 0
- TabStop = True
- CodeTemplates = <
- item
- Name = 'arrayc'
- Description = 'array declaration (const)'
- Code.Strings = (
- 'array[0..|] of = ();')
- end
- item
- Name = 'arrayd'
- Description = 'array declaration (var)'
- Code.Strings = (
- 'array[0..|] of ;')
- end
- item
- Name = 'casee'
- Description = 'case statement (with else)'
- Code.Strings = (
- 'case | of'
- ' : ;'
- ' : ;'
- 'else ;'
- 'end;')
- end
- item
- Name = 'cases'
- Description = 'case statement'
- Code.Strings = (
- 'case | of'
- ' : ;'
- ' : ;'
- 'end;')
- end
- item
- Name = 'classc'
- Description = 'class declaration (with Create/Destroy overrides)'
- Code.Strings = (
- 'T| = class(T)'
- 'private'
- ''
- 'protected'
- ''
- 'public'
- ' constructor Create; override;'
- ' destructor Destroy; override;'
- 'published'
- ''
- 'end;')
- end
- item
- Name = 'classd'
- Description = 'class declaration (no parts)'
- Code.Strings = (
- 'T| = class(T)'
- ''
- 'end;')
- end
- item
- Name = 'classf'
- Description = 'class declaration (all parts)'
- Code.Strings = (
- 'T| = class(T)'
- 'private'
- ''
- 'protected'
- ''
- 'public'
- ''
- 'published'
- ''
- 'end;')
- end
- item
- Name = 'forb'
- Description = 'for statement'
- Code.Strings = (
- 'for | := to do'
- 'begin'
- ''
- 'end;')
- end
- item
- Name = 'fors'
- Description = 'for (no begin/end)'
- Code.Strings = (
- 'for | := to do')
- end
- item
- Name = 'function'
- Description = 'function declaration'
- Code.Strings = (
- 'function |(): ;'
- 'begin'
- ''
- 'end;')
- end
- item
- Name = 'ifb'
- Description = 'if statement'
- Code.Strings = (
- 'if | then'
- 'begin'
- ''
- 'end;')
- end
- item
- Name = 'ife'
- Description = 'if then (no begin/end) else (no begin/end)'
- Code.Strings = (
- 'if | then'
- ''
- 'else')
- end
- item
- Name = 'ifeb'
- Description = 'if then else'
- Code.Strings = (
- 'if | then'
- 'begin'
- ''
- 'end'
- 'else'
- 'begin'
- ''
- 'end')
- end
- item
- Name = 'ifs'
- Description = 'if (no begin/end)'
- Code.Strings = (
- 'if | then')
- end
- item
- Name = 'procedure'
- Description = 'procedure declaration'
- Code.Strings = (
- 'procedure |();'
- 'begin'
- ''
- 'end;')
- end
- item
- Name = 'trycf'
- Description = 'try finally (with Create/Free)'
- Code.Strings = (
- '|variable := typename.Create;'
- 'try'
- ''
- 'finally'
- ' variable.Free;'
- 'end;')
- end
- item
- Name = 'trye'
- Description = 'try except'
- Code.Strings = (
- 'try'
- ' |'
- 'except'
- ''
- 'end;')
- end
- item
- Name = 'tryf'
- Description = 'try finally'
- Code.Strings = (
- 'try'
- ' |'
- 'finally'
- ''
- 'end;')
- end
- item
- Name = 'whileb'
- Description = 'while statement'
- Code.Strings = (
- 'while | do'
- 'begin'
- ''
- 'end;')
- end
- item
- Name = 'whiles'
- Description = 'while (no begin)'
- Code.Strings = (
- 'while | do')
- end
- item
- Name = 'withb'
- Description = 'with statement'
- Code.Strings = (
- 'with | do'
- 'begin'
- ''
- 'end;')
- end
- item
- Name = 'withs'
- Description = 'with (no begin)'
- Code.Strings = (
- 'with | do')
- end>
- TemplatesType = 'None'
- HideCaret = False
- UseGlobalOptions = True
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 181
- Top = 94
- object PopupClosePage: TMenuItem
- Caption = '&Close Page'
- ShortCut = 32882
- end
- object PopupSave: TMenuItem
- Caption = '&Save'
- ShortCut = 113
- end
- object OpenFileatCursor1: TMenuItem
- Caption = 'Open &File at Cursor'
- Enabled = False
- ShortCut = 16397
- end
- object PopupNewEditWindow: TMenuItem
- Caption = '&New Edit Window'
- end
- object BrowseSymbolatCursor1: TMenuItem
- Caption = '&Browse Symbol at Cursor'
- Enabled = False
- Visible = False
- end
- object TopicSearch1: TMenuItem
- Caption = 'Topic &Search'
- Enabled = False
- ShortCut = 112
- Visible = False
- end
- object N1: TMenuItem
- Caption = '-'
- Visible = False
- end
- object ToggleBreakpoint1: TMenuItem
- Caption = 'Toggle Brea&kpoint'
- Enabled = False
- ShortCut = 16503
- Visible = False
- end
- object RuntoCursor1: TMenuItem
- Caption = 'R&un to Cursor'
- Enabled = False
- ShortCut = 115
- Visible = False
- end
- object EvaluateModify1: TMenuItem
- Caption = '&Evaluate/Modify...'
- Enabled = False
- ShortCut = 16499
- Visible = False
- end
- object AddWatchatCursor1: TMenuItem
- Caption = '&Add Watch at Cursor...'
- Enabled = False
- ShortCut = 16502
- Visible = False
- end
- object N2: TMenuItem
- Caption = '-'
- Visible = False
- end
- object ViewasForm1: TMenuItem
- Caption = '&View as Form'
- Enabled = False
- ShortCut = 32891
- Visible = False
- end
- object ReadOnly1: TMenuItem
- Caption = 'Read &Only'
- Enabled = False
- Visible = False
- end
- object PopupMessageView: TMenuItem
- Caption = '&Message View'
- Enabled = False
- Visible = False
- end
- object N3: TMenuItem
- Caption = '-'
- Visible = False
- end
- object Properties1: TMenuItem
- Caption = 'P&roperties'
- Enabled = False
- Visible = False
- end
- end
- object VerbDispatcher1: TVerbDispatcher
- VerbList = <
- item
- VerbComp = PopupClosePage
- VerbName = 'File.Close'
- end
- item
- VerbComp = PopupNewEditWindow
- VerbName = 'View.NewEditWindow'
- end
- item
- VerbComp = PopupSave
- VerbName = 'File.Save'
- end>
- Left = 110
- Top = 176
- end
- end
-