unit1.dfm

这是一个有关文本编辑器的源程序,支持彩色语法,你可以任意修改,修改后发给我一份

object Form1: TForm1
  Left = 204
  Top = 120
  Width = 696
  Height = 480
  Caption = 'SourceEdit Test Program'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 80
      end
      item
        Width = 80
      end
      item
        Text = 'Demo'
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 415
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 1
    object ScEdit: TSourceEdit
      Left = 1
      Top = 1
      Width = 686
      Height = 413
      ScrollBars = ssBoth
      BorderStyle = bsNone
      Bitmapped = True
      Lines.Strings = (
        '/*This is a test for line comment*/'
        'Create Table Test('
        ' Id Integer Not Null,'
        ' Name VarChar2(10) Not Null,'
        ' Primary key(Id)'
        ');'
        ''
        '(*Another comment for line comment*)'
        'Create View(Id, Name) as'
        ' Select Id, Name from Test;'
        ''
        '{Block comment Test'
        ' Please click Menu: File--> Export to view effect'
        '}'
        'Test End')
      AlwaysShowCaret = False
      LeftMargin = 2
      TopMargin = 0
      TabSize = 2
      DragDropEditing = False
      RemoveTrailingSpaces = True
      Align = alClient
      Color = clWindow
      Constraints.MinHeight = 64
      Constraints.MinWidth = 64
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      SyntaxColoring.Enabled = True
      SyntaxColoring.SymbolColor = clGreen
      SyntaxColoring.SymbolStyle = []
      SyntaxColoring.SymbolCustomStyle = False
      SyntaxColoring.NumberColor = clRed
      SyntaxColoring.NumberStyle = []
      SyntaxColoring.NumberCustomStyle = False
      SyntaxColoring.WordLists = <
        item
          Caption = 'KeyWord'
          CustomColor = True
          Color = clBlue
          CustomStyle = False
          Style = []
          CaseSensitive = False
          Words.Strings = (
            'Add'
            'After'
            'All'
            'Alter'
            'Always'
            'And'
            'As'
            'Asc'
            'Auto_Increment'
            'Avg'
            'BEFORE'
            'BEGIN'
            'Between'
            'Bfile'
            'Binary'
            'Bit'
            'BLOB'
            'BY'
            'Byte'
            'Cache'
            'Cascade'
            'CHAR'
            'Character'
            'CHECK'
            'Clob'
            'Close'
            'Cluster'
            'Commit'
            'Connect'
            'CONSTRAIN'
            'Constraint'
            'COUNT'
            'Counter'
            'CREATE'
            'Currency'
            'Cursor'
            'DataBase'
            'DATE'
            'DATETIME'
            'Dbclob'
            'Decalre'
            'DECIMAL'
            'Declare'
            'DEFAULT'
            'DELETE'
            'Desc'
            'Describe'
            'DisConnect'
            'DISTINCT'
            'DO'
            'Domain'
            'Double'
            'Drop'
            'DUAL'
            'EACH'
            'ELSE'
            'END'
            'Entry_Point'
            'Exception'
            'Execute'
            'Exists'
            'Exit'
            'External'
            'Fetch'
            'Float'
            'Flush'
            'FOR'
            'Foreign'
            'Free'
            'FROM'
            'Full'
            'Function'
            'Generated'
            'Generator'
            'Go'
            'Grant'
            'Graphic'
            'GROUP'
            'Guid'
            'HAVING'
            'Identity'
            'IF'
            'Image'
            'Include'
            'Increment'
            'Index'
            'INNER'
            'Insert'
            'INT'
            'INTEGER'
            'Internal'
            'InterSect'
            'Interval'
            'Into'
            'Is'
            'isolation'
            'Join'
            'KEY'
            'LEFT'
            'level'
            'Like'
            'Locator'
            'Lock'
            'LONG'
            'Long Raw'
            'LongBinary'
            'Loop'
            'MAX'
            'MIN'
            'Nchar'
            'Nclob'
            'No'
            'NOT'
            'NULL'
            'Number'
            'NUMERIC'
            'Nvarchar'
            'Of'
            'ON'
            'OR'
            'Order'
            'Out'
            'OUTER'
            'Package'
            'PassWord'
            'PRIMARY'
            'Privileges'
            'Procedure'
            'Public'
            'RAW'
            'Real'
            'REFERENCE'
            'References'
            'REPLACE'
            'Return'
            'Returning_Values'
            'Returns'
            'RIGHT'
            'RollBack'
            'ROW'
            'Rule'
            'Schema'
            'Segment'
            'SELECT'
            'SEQUENCE'
            'Serial'
            'Set'
            'Short'
            'ShortDateTime'
            'Single'
            'SmallDateTime'
            'SMALLINT'
            'SmallMoney'
            'START'
            'SUM'
            'Suspend'
            'Synonym'
            'TABLE'
            'TableSpace'
            'Text'
            'Then'
            'TIME'
            'TIMESTAMP'
            'TinyInt'
            'To'
            'Transaction'
            'TRIGGER'
            'Union'
            'Unique'
            'UnLock'
            'Unsigned'
            'UPDATE'
            'Use'
            'User'
            'Values'
            'Varbinary'
            'Varbit'
            'VARCHAR'
            'VARCHAR2'
            'Vargraphic'
            'Variable'
            'VIEW'
            'When'
            'Whenever'
            'WHERE'
            'WHILE'
            'WITH'
            'Work')
        end>
      SyntaxColoring.CustomStyles = <>
      SyntaxColoring.ParenthesisColors.Strings = (
        '$000000')
      SyntaxColoring.ParenthesisStyle = []
      SyntaxColoring.ParenthesisCustomStyle = False
      AutoIndent = True
      AutoIndentIncrease = True
      AutoIndentIncreaseStart = '{'
      AutoIndentIncreaseEnd = '}'
      SplitOnFly = True
    end
  end
  object MainMenu1: TMainMenu
    Left = 400
    Top = 40
    object FileF1: TMenuItem
      Caption = 'File(&F)'
      object Open1: TMenuItem
        Caption = 'Open'
        OnClick = Open1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ExporttoRtf1: TMenuItem
        Caption = 'Export to Rtf'
        OnClick = ExporttoRtf1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object exit1: TMenuItem
        Caption = 'Exit(&X)'
        OnClick = exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit(&E)'
      object Find1: TMenuItem
        Caption = 'Find'
        ShortCut = 16454
        OnClick = Find1Click
      end
      object Refind1: TMenuItem
        Caption = 'Refind'
        ShortCut = 114
        OnClick = Refind1Click
      end
      object Replace1: TMenuItem
        Caption = 'Replace'
        ShortCut = 16466
        OnClick = Replace1Click
      end
      object Replace2: TMenuItem
        Caption = 'Re-replace'
        ShortCut = 115
        OnClick = Replace2Click
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 504
    Top = 120
  end
end