home *** CD-ROM | disk | FTP | other *** search
Text File | 2003-02-24 | 90.9 KB | 2,827 lines |
- object CompareForm: TCompareForm
- Left = 401
- Top = 301
- Width = 694
- Height = 611
- Caption = 'Differences Viewer'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel3: TPanel
- Left = 0
- Top = 26
- Width = 667
- Height = 517
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object Splitter2: TSplitter
- Left = 0
- Top = 374
- Width = 667
- Height = 3
- Cursor = crVSplit
- Align = alBottom
- AutoSnap = False
- Visible = False
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 667
- Height = 374
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object Splitter1: TSplitter
- Left = 329
- Top = 0
- Width = 3
- Height = 374
- Cursor = crHSplit
- AutoSnap = False
- end
- object Panel5: TPanel
- Left = 0
- Top = 0
- Width = 329
- Height = 374
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object DCMemo1: TDCMemo
- Left = 0
- Top = 17
- Width = 329
- Height = 357
- Cursor = crIBeam
- PrintOptions = [poShowProgress]
- LineNumColor = clBlack
- LineNumAlign = taRightJustify
- StringsOptions = [soBackUnindents, soGroupUndo, soForceCutCopy, soAutoIndent, soSmartTab, soFindTextAtCursor, soOverwriteBlocks]
- TabStops = '9,17'
- KeyMapping = 'Default'
- SelColor = clWhite
- SelBackColor = clNavy
- MatchBackColor = clBlack
- GutterBackColor = clWindow
- ScrollBars = ssBoth
- Options = [moDrawGutter, moThumbTracking, moColorSyntax, moLineNumbers, moLineNumbersOnGutter]
- GutterBrush.Color = clBtnFace
- MarginPen.Color = clGrayText
- GutterImgs = <
- item
- Name = 'BreakPoint'
- Glyph.Data = {
- BE000000424DBE00000000000000760000002800000009000000090000000100
- 0400000000004800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
- 0000FFF000FFF0000000FF09990FF0000000F0999990F0000000F0999990F000
- 0000F0999990F0000000FF09990FF0000000FFF000FFF0000000FFFFFFFFF000
- 0000}
- end
- item
- Name = 'Bookmark0'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082026202070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 0
- end
- item
- Name = 'Bookmark1'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086260626070F0FF0826202620
- 70F0FF086260626070F0FF082620262070F0FF086060626070F0FF0826002620
- 70F0FF086260626070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 1
- end
- item
- Name = 'Bookmark2'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086062626070F0FF0826062620
- 70F0FF086260626070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 2
- end
- item
- Name = 'Bookmark3'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082620062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 3
- end
- item
- Name = 'Bookmark4'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082626062070F0FF086262026070F0FF0826260620
- 70F0FF086000006070F0FF082026062070F0FF086062026070F0FF0820260620
- 70F0FF086062026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 4
- end
- item
- Name = 'Bookmark5'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082000062070F0FF086062626070F0FF0820262620
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 5
- end
- item
- Name = 'Bookmark6'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082000062070F0FF086062626070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 6
- end
- item
- Name = 'Bookmark7'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082620262070F0FF086260626070F0FF0826202620
- 70F0FF086262026070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 7
- end
- item
- Name = 'Bookmark8'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF086600062070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 8
- end
- item
- Name = 'Bookmark9'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086262206070F0FF0826262020
- 70F0FF086200606070F0FF082026002070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 9
- end
- item
- Name = 'Added Lines'
- end
- item
- Name = 'Deleted Lines'
- end
- item
- Name = 'Modified Lines'
- end>
- BkgndOption = boNone
- LineSeparator.Options = []
- LineSeparator.Pen.Color = clGrayText
- LineHighlight.Visible = False
- LineHighlight.Shape = shDoubleLine
- SpecialSymbols.EOLStringBinary = {01000000B6}
- SpecialSymbols.EOFStringBinary = {010000005F}
- UseDefaultMenu = False
- OnMemoScroll = DCMemo1MemoScroll
- OnGetLineNumber = DCMemo1GetLineNumber
- ReadOnly = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- TextStyles = <
- item
- Name = 'Whitespace'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'String'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Comment'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsItalic]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Identifier'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Integer'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Float'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Reserved words'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Delimiters'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Defines'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Assembler'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html tags'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html params'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Url'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsUnderline]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'BreakPoint'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindow
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Error line'
- Color = clMaroon
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindow
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Marked Block'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcSelection
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Search Match'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcSearchMatch
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Emphasis'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'System Variable'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Whitespace'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clTeal
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Delimiters'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Comment'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsItalic]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script String'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Number'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script ResWord'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Plain Text'
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcText
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Added Lines'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Deleted Lines'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Modified Lines'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- 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
- UseDockManager = False
- OnEnter = DCMemo1Enter
- OnExit = DCMemo1Exit
- 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 = 'Delphi'
- HideCaret = False
- UseGlobalOptions = False
- end
- object Panel6: TPanel
- Left = 0
- Top = 0
- Width = 329
- Height = 17
- Align = alTop
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- Color = clActiveCaption
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clCaptionText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- object Label1: TLabel
- Left = 224
- Top = 0
- Width = 39
- Height = 13
- Caption = 'Label1'
- Visible = False
- end
- end
- end
- object Panel4: TPanel
- Left = 332
- Top = 0
- Width = 335
- Height = 374
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object DCMemo2: TDCMemo
- Tag = 1
- Left = 0
- Top = 17
- Width = 335
- Height = 357
- Cursor = crIBeam
- PrintOptions = [poShowProgress]
- LineNumColor = clBlack
- LineNumAlign = taRightJustify
- StringsOptions = [soBackUnindents, soGroupUndo, soForceCutCopy, soAutoIndent, soSmartTab, soFindTextAtCursor, soOverwriteBlocks]
- TabStops = '9,17'
- KeyMapping = 'Default'
- SelColor = clWhite
- SelBackColor = clNavy
- MatchBackColor = clBlack
- GutterBackColor = clWindow
- ScrollBars = ssBoth
- Options = [moDrawGutter, moThumbTracking, moColorSyntax, moLineNumbers, moLineNumbersOnGutter]
- GutterBrush.Color = clBtnFace
- MarginPen.Color = clGrayText
- GutterImgs = <
- item
- Name = 'BreakPoint'
- Glyph.Data = {
- BE000000424DBE00000000000000760000002800000009000000090000000100
- 0400000000004800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
- 0000FFF000FFF0000000FF09990FF0000000F0999990F0000000F0999990F000
- 0000F0999990F0000000FF09990FF0000000FFF000FFF0000000FFFFFFFFF000
- 0000}
- end
- item
- Name = 'Bookmark0'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082026202070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 0
- end
- item
- Name = 'Bookmark1'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086260626070F0FF0826202620
- 70F0FF086260626070F0FF082620262070F0FF086060626070F0FF0826002620
- 70F0FF086260626070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 1
- end
- item
- Name = 'Bookmark2'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086062626070F0FF0826062620
- 70F0FF086260626070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 2
- end
- item
- Name = 'Bookmark3'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082620062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 3
- end
- item
- Name = 'Bookmark4'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082626062070F0FF086262026070F0FF0826260620
- 70F0FF086000006070F0FF082026062070F0FF086062026070F0FF0820260620
- 70F0FF086062026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 4
- end
- item
- Name = 'Bookmark5'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082000062070F0FF086062626070F0FF0820262620
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 5
- end
- item
- Name = 'Bookmark6'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082000062070F0FF086062626070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 6
- end
- item
- Name = 'Bookmark7'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082620262070F0FF086260626070F0FF0826202620
- 70F0FF086262026070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 7
- end
- item
- Name = 'Bookmark8'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF086600062070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 8
- end
- item
- Name = 'Bookmark9'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086262206070F0FF0826262020
- 70F0FF086200606070F0FF082026002070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 9
- end
- item
- Name = 'Added Lines'
- end
- item
- Name = 'Deleted Lines'
- end
- item
- Name = 'Modified Lines'
- end>
- BkgndOption = boNone
- LineSeparator.Options = []
- LineSeparator.Pen.Color = clGrayText
- LineHighlight.Visible = False
- LineHighlight.Shape = shDoubleLine
- SpecialSymbols.EOLStringBinary = {01000000B6}
- SpecialSymbols.EOFStringBinary = {010000005F}
- UseDefaultMenu = False
- OnMemoScroll = DCMemo2MemoScroll
- OnGetLineNumber = DCMemo1GetLineNumber
- ReadOnly = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- TextStyles = <
- item
- Name = 'Whitespace'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'String'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Comment'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsItalic]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Identifier'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Integer'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Float'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Reserved words'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Delimiters'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Defines'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Assembler'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html tags'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html params'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Url'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsUnderline]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'BreakPoint'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindow
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Error line'
- Color = clMaroon
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindow
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Marked Block'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcSelection
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Search Match'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcSearchMatch
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Emphasis'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'System Variable'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Whitespace'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clTeal
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Delimiters'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Comment'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsItalic]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script String'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Number'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script ResWord'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Plain Text'
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcText
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Added Lines'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Deleted Lines'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Modified Lines'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- 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
- UseDockManager = False
- OnEnter = DCMemo2Enter
- OnExit = DCMemo1Exit
- 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 = 'Delphi'
- HideCaret = False
- UseGlobalOptions = False
- end
- object Panel7: TPanel
- Left = 0
- Top = 0
- Width = 335
- Height = 17
- Align = alTop
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- Color = clInactiveCaption
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clCaptionText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- end
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 377
- Width = 667
- Height = 140
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- Visible = False
- object DCMemo3: TDCMemo
- Tag = 1
- Left = 0
- Top = 0
- Width = 667
- Height = 140
- Cursor = crIBeam
- PrintOptions = [poShowProgress]
- LineNumColor = clBlack
- LineNumAlign = taRightJustify
- StringsOptions = [soBackUnindents, soGroupUndo, soForceCutCopy, soAutoIndent, soSmartTab, soFindTextAtCursor, soOverwriteBlocks]
- TabStops = '9,17'
- KeyMapping = 'Default'
- SelColor = clWhite
- SelBackColor = clNavy
- MatchBackColor = clBlack
- GutterBackColor = clWindow
- ScrollBars = ssBoth
- Options = [moDrawGutter, moThumbTracking, moColorSyntax, moLineNumbers, moLineNumbersOnGutter]
- GutterBrush.Color = clBtnFace
- MarginPen.Color = clGrayText
- GutterImgs = <
- item
- Name = 'BreakPoint'
- Glyph.Data = {
- BE000000424DBE00000000000000760000002800000009000000090000000100
- 0400000000004800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
- 0000FFF000FFF0000000FF09990FF0000000F0999990F0000000F0999990F000
- 0000F0999990F0000000FF09990FF0000000FFF000FFF0000000FFFFFFFFF000
- 0000}
- end
- item
- Name = 'Bookmark0'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082026202070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 0
- end
- item
- Name = 'Bookmark1'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086260626070F0FF0826202620
- 70F0FF086260626070F0FF082620262070F0FF086060626070F0FF0826002620
- 70F0FF086260626070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 1
- end
- item
- Name = 'Bookmark2'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082000002070F0FF086062626070F0FF0826062620
- 70F0FF086260626070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 2
- end
- item
- Name = 'Bookmark3'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082620062070F0FF086262606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 3
- end
- item
- Name = 'Bookmark4'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082626062070F0FF086262026070F0FF0826260620
- 70F0FF086000006070F0FF082026062070F0FF086062026070F0FF0820260620
- 70F0FF086062026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 4
- end
- item
- Name = 'Bookmark5'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0826262020
- 70F0FF086262606070F0FF082000062070F0FF086062626070F0FF0820262620
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 5
- end
- item
- Name = 'Bookmark6'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF082000062070F0FF086062626070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 6
- end
- item
- Name = 'Bookmark7'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082620262070F0FF086260626070F0FF0826202620
- 70F0FF086262026070F0FF082626062070F0FF086262606070F0FF0820262020
- 70F0FF086000006070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 7
- end
- item
- Name = 'Bookmark8'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086062606070F0FF0820262020
- 70F0FF086062606070F0FF086600062070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 8
- end
- item
- Name = 'Bookmark9'
- Glyph.Data = {
- EE000000424DEE0000000000000076000000280000000F0000000F0000000100
- 0400000000007800000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
- FFF0FF08626262600FF0FF082600062070F0FF086262206070F0FF0826262020
- 70F0FF086200606070F0FF082026002070F0FF086062606070F0FF0820262020
- 70F0FF086200026070F0FF082626262070F0FF000000000070F0FFF088888888
- 70F0FFFF000000000FF0FFFFFFFFFFFFFFF0}
- BookmarkIndex = 9
- end
- item
- Name = 'Added Lines'
- end
- item
- Name = 'Deleted Lines'
- end
- item
- Name = 'Modified Lines'
- end>
- BkgndOption = boNone
- LineSeparator.Options = []
- LineSeparator.Pen.Color = clGrayText
- LineHighlight.Visible = False
- LineHighlight.Shape = shDoubleLine
- SpecialSymbols.EOLStringBinary = {01000000B6}
- SpecialSymbols.EOFStringBinary = {010000005F}
- UseDefaultMenu = False
- OnGetLineNumber = DCMemo3GetLineNumber
- ReadOnly = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- TextStyles = <
- item
- Name = 'Whitespace'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'String'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Comment'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsItalic]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Identifier'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Integer'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Float'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Reserved words'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Delimiters'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Defines'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Assembler'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html tags'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Html params'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Url'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsUnderline]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'BreakPoint'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindow
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Error line'
- Color = clMaroon
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindow
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Marked Block'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcSelection
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Search Match'
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcSearchMatch
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Emphasis'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'System Variable'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Whitespace'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clTeal
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Delimiters'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Comment'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsItalic]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script String'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script Number'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Script ResWord'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- UpdateMemoColors = mcNone
- UseMemoColor = True
- UseMemoFont = False
- end
- item
- Name = 'Plain Text'
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcText
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Added Lines'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Deleted Lines'
- Color = clRed
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Style = []
- UpdateMemoColors = mcNone
- UseMemoColor = False
- UseMemoFont = False
- end
- item
- Name = 'Modified Lines'
- Color = clLime
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- 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
- UseDockManager = False
- OnEnter = DCMemo3Enter
- 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 = 'Delphi'
- HideCaret = False
- UseGlobalOptions = False
- end
- end
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 543
- Width = 686
- Height = 19
- Hint = 'xxx'
- AutoHint = True
- Anchors = [akLeft, akTop, akRight]
- Panels = <
- item
- Alignment = taCenter
- Width = 75
- end
- item
- Width = 75
- end
- item
- Width = 75
- end
- item
- Alignment = taCenter
- Style = psOwnerDraw
- Text = '+'
- Width = 18
- end
- item
- Alignment = taCenter
- Style = psOwnerDraw
- Text = '~'
- Width = 18
- end
- item
- Alignment = taCenter
- Style = psOwnerDraw
- Text = '-'
- Width = 18
- end
- item
- Width = 50
- end>
- SimplePanel = False
- OnDrawPanel = StatusBarDrawPanel
- OnResize = StatusBarResize
- end
- object pnlDisplay: TPanel
- Left = 667
- Top = 26
- Width = 19
- Height = 517
- Align = alRight
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 2
- Visible = False
- object PaintBox1: TPaintBox
- Left = 8
- Top = 2
- Width = 9
- Height = 513
- Align = alClient
- Color = clBtnFace
- ParentColor = False
- OnPaint = PaintBox1Paint
- end
- object PaintBox2: TPaintBox
- Left = 2
- Top = 2
- Width = 6
- Height = 513
- Align = alLeft
- Color = clBtnFace
- ParentColor = False
- OnPaint = PaintBox2Paint
- end
- end
- object CoolBar1: TCoolBar
- Left = 0
- Top = 0
- Width = 686
- Height = 26
- AutoSize = True
- Bands = <
- item
- Control = ToolBar1
- ImageIndex = -1
- MinHeight = 22
- MinWidth = 209
- Width = 682
- end>
- ParentShowHint = False
- ShowHint = True
- object ToolBar1: TToolBar
- Left = 9
- Top = 0
- Width = 669
- Height = 22
- AutoSize = True
- Caption = 'ToolBar1'
- EdgeBorders = []
- Flat = True
- Images = CodePadMainForm.ImageList1
- TabOrder = 0
- Wrapable = False
- object ToolButton1: TToolButton
- Left = 0
- Top = 0
- Action = CompareDiffsOnly
- end
- object ToolButton2: TToolButton
- Left = 23
- Top = 0
- Width = 8
- Caption = 'ToolButton2'
- ImageIndex = 1
- Style = tbsSeparator
- end
- object ToolButton3: TToolButton
- Left = 31
- Top = 0
- Action = ComparePrevDiff
- end
- object ToolButton4: TToolButton
- Left = 54
- Top = 0
- Action = CompareNextDiff
- end
- object ToolButton5: TToolButton
- Left = 77
- Top = 0
- Width = 8
- Caption = 'ToolButton5'
- ImageIndex = 3
- Style = tbsSeparator
- end
- object ToolButton6: TToolButton
- Left = 85
- Top = 0
- Action = CompareMergeLeft
- end
- object ToolButton7: TToolButton
- Left = 108
- Top = 0
- Action = CompareMergeRight
- end
- object ToolButton8: TToolButton
- Left = 131
- Top = 0
- Action = CompareMergeNeither
- end
- object ToolButton9: TToolButton
- Left = 154
- Top = 0
- Width = 8
- Caption = 'ToolButton9'
- ImageIndex = 6
- Style = tbsSeparator
- end
- object ToolButton10: TToolButton
- Left = 162
- Top = 0
- Action = CompareSaveMerged
- end
- object ToolButton11: TToolButton
- Left = 185
- Top = 0
- Action = CompareSaveMergedNew
- end
- end
- end
- object ActionList1: TActionList
- Images = CodePadMainForm.ImageList1
- Left = 448
- Top = 72
- object CompareDiffsOnly: TAction
- Caption = '&Show Differences Only'
- Hint =
- 'Show Differences Only|Show differences between compared files on' +
- 'ly'
- ImageIndex = 91
- OnExecute = CompareDiffsOnlyExecute
- OnUpdate = CompareDiffsOnlyUpdate
- end
- object CompareNextDiff: TAction
- Caption = '&Next Difference'
- Hint = 'Next Difference|Go to next diffrence'
- ImageIndex = 93
- ShortCut = 16462
- OnExecute = CompareNextDiffExecute
- OnUpdate = CompareNextDiffUpdate
- end
- object ComparePrevDiff: TAction
- Caption = '&Previous Difference'
- Hint = 'Previous Difference|Go to previous diffrence'
- ImageIndex = 92
- ShortCut = 16464
- OnExecute = ComparePrevDiffExecute
- OnUpdate = ComparePrevDiffUpdate
- end
- object CompareMergeLeft: TAction
- Caption = 'Merge &Left'
- Hint = 'Merge Left|Merge left file'
- ImageIndex = 94
- OnExecute = CompareMergeLeftExecute
- OnUpdate = CompareMergeLeftUpdate
- end
- object CompareMergeRight: TAction
- Caption = 'Merge &Right'
- Hint = 'Merge Right|Merge right file'
- ImageIndex = 95
- OnExecute = CompareMergeLeftExecute
- OnUpdate = CompareMergeLeftUpdate
- end
- object CompareMergeNeither: TAction
- Caption = '&Merge Neither'
- Hint = 'Merge Neither|Merge neither files'
- ImageIndex = 96
- OnExecute = CompareMergeLeftExecute
- OnUpdate = CompareMergeLeftUpdate
- end
- object CompareSaveMerged: TAction
- Caption = '&Use Merged'
- Hint = 'Use Merged File|Use merged file as first compared'
- ImageIndex = 97
- OnExecute = CompareSaveMergedExecute
- OnUpdate = CompareSaveMergedUpdate
- end
- object CompareSaveMergedNew: TAction
- Caption = 'Use Merged as &New'
- Hint = 'Use Merged as New|Use merged file as new one'
- ImageIndex = 98
- OnExecute = CompareSaveMergedNewExecute
- OnUpdate = CompareSaveMergedNewUpdate
- end
- object CompareClose: TAction
- Caption = '&Close'
- Hint = 'Close|Close differences window'
- ImageIndex = 9
- ShortCut = 32883
- OnExecute = Action1Execute
- end
- object Action1: TAction
- Caption = 'Action1'
- ShortCut = 27
- OnExecute = Action1Execute
- end
- object find: TAction
- Caption = 'find'
- ShortCut = 16454
- OnExecute = findExecute
- end
- object findnext: TAction
- Caption = 'findnext'
- ShortCut = 114
- OnExecute = findnextExecute
- end
- object findprev: TAction
- Caption = 'findprev'
- ShortCut = 8306
- OnExecute = findprevExecute
- end
- object gotoline: TAction
- Caption = 'gotoline'
- ShortCut = 16455
- OnExecute = gotolineExecute
- end
- object Action2: TAction
- Category = 'Edit'
- Caption = 'Action2'
- ShortCut = 24624
- OnExecute = Action2Execute
- end
- object Action3: TAction
- Category = 'Edit'
- Caption = 'Action3'
- ShortCut = 24625
- OnExecute = Action2Execute
- end
- object Action4: TAction
- Category = 'Edit'
- Caption = 'Action4'
- ShortCut = 24626
- OnExecute = Action2Execute
- end
- object Action5: TAction
- Category = 'Edit'
- Caption = 'Action5'
- ShortCut = 24627
- OnExecute = Action2Execute
- end
- object Action6: TAction
- Category = 'Edit'
- Caption = 'Action6'
- ShortCut = 24628
- OnExecute = Action2Execute
- end
- object Action7: TAction
- Category = 'Edit'
- Caption = 'Action7'
- ShortCut = 24629
- OnExecute = Action2Execute
- end
- object Action8: TAction
- Category = 'Edit'
- Caption = 'Action8'
- ShortCut = 24630
- OnExecute = Action2Execute
- end
- object Action9: TAction
- Category = 'Edit'
- Caption = 'Action9'
- ShortCut = 24631
- OnExecute = Action2Execute
- end
- object Action10: TAction
- Category = 'Edit'
- Caption = 'Action10'
- ShortCut = 24632
- OnExecute = Action2Execute
- end
- object Action11: TAction
- Category = 'Edit'
- Caption = 'Action11'
- ShortCut = 24633
- OnExecute = Action2Execute
- end
- object Action12: TAction
- Category = 'Edit'
- Caption = 'Action12'
- ShortCut = 16432
- OnExecute = Action2Execute
- end
- object Action13: TAction
- Category = 'Edit'
- Caption = 'Action13'
- ShortCut = 16433
- OnExecute = Action2Execute
- end
- object Action14: TAction
- Category = 'Edit'
- Caption = 'Action14'
- ShortCut = 16434
- OnExecute = Action2Execute
- end
- object Action15: TAction
- Category = 'Edit'
- Caption = 'Action15'
- ShortCut = 16435
- OnExecute = Action2Execute
- end
- object Action16: TAction
- Category = 'Edit'
- Caption = 'Action16'
- ShortCut = 16436
- OnExecute = Action2Execute
- end
- object Action17: TAction
- Category = 'Edit'
- Caption = 'Action17'
- ShortCut = 16437
- OnExecute = Action2Execute
- end
- object Action18: TAction
- Category = 'Edit'
- Caption = 'Action18'
- ShortCut = 16438
- OnExecute = Action2Execute
- end
- object Action19: TAction
- Category = 'Edit'
- Caption = 'Action19'
- ShortCut = 16439
- OnExecute = Action2Execute
- end
- object Action20: TAction
- Category = 'Edit'
- Caption = 'Action20'
- ShortCut = 16440
- OnExecute = Action2Execute
- end
- object Action21: TAction
- Category = 'Edit'
- Caption = 'Action21'
- ShortCut = 16441
- OnExecute = Action2Execute
- end
- object Action22: TAction
- Category = 'Edit'
- Caption = 'Action22'
- ShortCut = 16458
- OnExecute = Action2Execute
- end
- object Action23: TAction
- Category = 'Edit'
- Caption = 'Action23'
- ShortCut = 16453
- OnExecute = Action2Execute
- end
- object Action24: TAction
- Category = 'Edit'
- Caption = 'Action24'
- ShortCut = 16460
- OnExecute = Action2Execute
- end
- object _copy: TAction
- Caption = '_copy'
- ShortCut = 16451
- OnExecute = _copyExecute
- OnUpdate = _copyUpdate
- end
- object _paste: TAction
- Caption = '_paste'
- ShortCut = 16470
- OnExecute = _pasteExecute
- OnUpdate = _pasteUpdate
- end
- object _cut: TAction
- Caption = '_cut'
- ShortCut = 16472
- OnExecute = _cutExecute
- OnUpdate = _cutUpdate
- end
- object _undo: TAction
- Caption = '_undo'
- ShortCut = 16474
- OnExecute = _undoExecute
- OnUpdate = _undoUpdate
- end
- object _redo: TAction
- Caption = '_redo'
- ShortCut = 24666
- OnExecute = _redoExecute
- OnUpdate = _redoUpdate
- end
- end
- object MainMenu1: TMainMenu
- Left = 392
- Top = 72
- object MenuFile: TMenuItem
- Caption = '&File'
- object SaveMerged1: TMenuItem
- Action = CompareSaveMerged
- end
- object SaveMergedasNew1: TMenuItem
- Action = CompareSaveMergedNew
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Action = CompareClose
- end
- end
- object MenuView: TMenuItem
- Caption = '&View'
- object ShowDifferencesOnly2: TMenuItem
- Action = CompareDiffsOnly
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object PreviousDifference2: TMenuItem
- Action = ComparePrevDiff
- end
- object NextDifference2: TMenuItem
- Action = CompareNextDiff
- end
- end
- object MenuMerge: TMenuItem
- Caption = '&Merge'
- object MergeLeft2: TMenuItem
- Action = CompareMergeLeft
- end
- object MergeRight2: TMenuItem
- Action = CompareMergeRight
- end
- object MergeNeither2: TMenuItem
- Action = CompareMergeNeither
- end
- end
- end
- end
-