unit1.dfm

Ritchedit Syntax Editor with color (Pascal, C++, Java, Jajascript,...)

object Form1: TForm1
  Left = 198
  Top = 107
  Width = 385
  Height = 227
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object FireColorSynth1: TFireColorSynth
    Left = 8
    Top = 8
    Width = 361
    Height = 185
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'procedure TForm1.Hello;'
      'begin'
      '          For i := 0 to 10 Do Memo1.Lines.Add("Hello Word");'
      'end;'
      ' '
      '                          '
      '                                '
      '; )')
    ParentFont = False
    TabOrder = 0
    ExplodedWord = False
    Items = <
      item
        ColorList.Font.Charset = ANSI_CHARSET
        ColorList.Font.Color = clWindowText
        ColorList.Font.Height = -12
        ColorList.Font.Name = 'Microsoft Sans Serif'
        ColorList.Font.Style = [fsBold]
        ColorList.List.Strings = (
          'and'
          'array'
          'as'
          'asm'
          'assembler'
          'automated'
          'begin'
          'case'
          'cdecl'
          'class'
          'const'
          'constructor'
          'destructor'
          'dispinterface'
          'div'
          'do'
          'downto'
          'else'
          'end'
          'except'
          'export'
          'exports'
          'far'
          'file'
          'finalization'
          'finally'
          'for'
          'function'
          'goto'
          'if'
          'implementation'
          'in'
          'inherited'
          'initialization'
          'inline'
          'interface'
          'is'
          'label'
          'library'
          'mod'
          'near'
          'nil'
          'not'
          'object'
          'of'
          'on'
          'or'
          'out'
          'packed'
          'pascal'
          'private'
          'procedure'
          'program'
          'property'
          'protected'
          'public'
          'published'
          'raise'
          'record'
          'register'
          'repeat'
          'resourcestring'
          'safecall'
          'set'
          'shl'
          'shr'
          'stdcall'
          'string'
          'then'
          'threadvar'
          'to'
          'try'
          'type'
          'unit'
          'until'
          'uses'
          'var'
          'while'
          'with'
          'xor'
          'end.'
          'end;')
        ColorList.ListType = TYPE_WORD
      end
      item
        ColorList.Font.Charset = ANSI_CHARSET
        ColorList.Font.Color = clTeal
        ColorList.Font.Height = -12
        ColorList.Font.Name = 'Microsoft Sans Serif'
        ColorList.Font.Style = [fsItalic]
        ColorList.List.Strings = (
          '//')
        ColorList.ListType = TYPE_COMMENT
      end>
  end
end