[JVCL-Checkins] CVS: jvcl/examples/RALib/RaEditor RAEditorTest.dof,1.2,1.3 RAEditorTest.res,1.1,1.2 fJvEditorTest.dfm,1.3,1.4 fJvEditorTest.pas,1.2,1.3

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/jvcl/examples/RALib/RaEditor
In directory sc8-pr-cvs1:/tmp/cvs-serv30252/examples/RALib/RaEditor

Modified Files:
	RAEditorTest.dof RAEditorTest.res fJvEditorTest.dfm 
	fJvEditorTest.pas 
Log Message:
Several changes and mergings. See changelog.txt for details

Index: RAEditorTest.dof
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/RALib/RaEditor/RAEditorTest.dof,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** RAEditorTest.dof	28 Feb 2003 23:08:47 -0000	1.2
--- RAEditorTest.dof	30 Mar 2003 16:46:39 -0000	1.3
***************
*** 1,4 ****
  [Directories]
! OutputDir=..\..\Bin
! UnitOutputDir=..\..\Dcu
  SearchPath=..\..\Source;..\..\Common
--- 1,4 ----
  [Directories]
! OutputDir=..\..\..\Bin
! UnitOutputDir=..\..\..\Dcu
  SearchPath=..\..\Source;..\..\Common

Index: RAEditorTest.res
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/RALib/RaEditor/RAEditorTest.res,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvsPs1EBj and /tmp/cvsoY4DXs differ

Index: fJvEditorTest.dfm
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/RALib/RaEditor/fJvEditorTest.dfm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** fJvEditorTest.dfm	19 Nov 2002 15:27:46 -0000	1.3
--- fJvEditorTest.dfm	30 Mar 2003 16:46:40 -0000	1.4
***************
*** 497,511 ****
          RightMarginColor = clSilver
          Completion.Enabled = True
-         Completion.Identifers.Strings = (
-           'Add==method Add==2'
-           'ANSILowerCase==function ANSILowerCase==3'
-           'ANSIUpperCase==function ANSIUpperCase==3'
-           'Application==variable Application==1'
-           'Clear==method Clear==2'
-           'Copy==function Copy==3'
-           'Delete==function Delete==3'
-           'Delete==method Delete==2'
-           'MessageBox==function MessageBox==3'
-           'Screen==variable Screen==1')
          Completion.Templates.Strings = (
            'arrayd==array declaration (var)==array[0..|] of ;'
--- 497,500 ----
***************
*** 550,584 ****
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
!         Colors.Statement.ForeColor = clWindowText
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 539,551 ----
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
!         DelphiColors = False
        end
      end
***************
*** 701,706 ****
          Completion.DropDownCount = 8
          Completion.Enabled = True
-         Completion.Identifers.Strings = (
-           'Don'#39't use builder - use DELPHI !=builder')
          Completion.Templates.Strings = (
            'builder=builder sample=Don'#39't use builder - use DELPHI !')
--- 668,671 ----
***************
*** 729,763 ****
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
!         Colors.Statement.ForeColor = clWindowText
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 694,706 ----
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
!         DelphiColors = False
        end
      end
***************
*** 1165,1172 ****
          Completion.DropDownCount = 8
          Completion.Enabled = True
-         Completion.Identifers.Strings = (
-           'Human=Human'
-           'Organ=Organ'
-           'Vars=Vars')
          Completion.Templates.Strings = (
            'crp=create procedure=create procedure | as/nbegin/nend')
--- 1108,1111 ----
***************
*** 1195,1229 ****
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
!         Colors.Statement.ForeColor = clWindowText
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 1134,1146 ----
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
!         DelphiColors = False
        end
      end
***************
*** 1318,1352 ****
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
!         Colors.Statement.ForeColor = clWindowText
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 1235,1247 ----
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
!         DelphiColors = False
        end
      end
***************
*** 1923,1957 ****
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
!         Colors.Statement.ForeColor = clWindowText
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 1818,1830 ----
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
!         DelphiColors = False
        end
      end
***************
*** 2179,2213 ****
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
!         Colors.Statement.ForeColor = clWindowText
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 2052,2064 ----
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
!         DelphiColors = False
        end
      end
***************
*** 2358,2392 ****
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clGreen
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clRed
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
          Colors.Statement.ForeColor = clLime
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 2209,2222 ----
          Colors.Comment.Style = [fsItalic]
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clGreen
!         Colors.Identifier.ForeColor = clRed
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
          Colors.Statement.ForeColor = clLime
!         DelphiColors = False
        end
      end
***************
*** 2462,2498 ****
          UseDockManager = False
          HighLighter = hlIni
-         Colors.Comment.Style = []
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clGreen
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clGreen
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
          Colors.Declaration.Style = [fsBold]
          Colors.Declaration.ForeColor = clNavy
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
-         Colors.Statement.ForeColor = clWindowText
-         Colors.Statement.BackColor = clWindow
-         Colors.PlainText.Style = []
          Colors.PlainText.ForeColor = clGray
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 2292,2308 ----
          UseDockManager = False
          HighLighter = hlIni
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clGreen
!         Colors.Identifier.ForeColor = clGreen
          Colors.Preproc.ForeColor = clGreen
          Colors.Declaration.Style = [fsBold]
          Colors.Declaration.ForeColor = clNavy
          Colors.Statement.Style = [fsBold]
          Colors.PlainText.ForeColor = clGray
!         DelphiColors = False
        end
      end
***************
*** 2808,2844 ****
          UseDockManager = False
          HighLighter = hlPerl
-         Colors.Comment.Style = []
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clGreen
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clGreen
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
          Colors.Declaration.Style = [fsBold]
          Colors.Declaration.ForeColor = clNavy
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
-         Colors.Statement.ForeColor = clWindowText
-         Colors.Statement.BackColor = clWindow
-         Colors.PlainText.Style = []
          Colors.PlainText.ForeColor = clGray
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 2618,2634 ----
          UseDockManager = False
          HighLighter = hlPerl
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clGreen
!         Colors.Identifier.ForeColor = clGreen
          Colors.Preproc.ForeColor = clGreen
          Colors.Declaration.Style = [fsBold]
          Colors.Declaration.ForeColor = clNavy
          Colors.Statement.Style = [fsBold]
          Colors.PlainText.ForeColor = clGray
!         DelphiColors = False
        end
      end
***************
*** 2883,2919 ****
          UseDockManager = False
          HighLighter = hlPhp
-         Colors.Comment.Style = []
          Colors.Comment.ForeColor = clOlive
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clBlack
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
          Colors.Declaration.Style = [fsBold]
          Colors.Declaration.ForeColor = clNavy
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
-         Colors.Statement.ForeColor = clWindowText
-         Colors.Statement.BackColor = clWindow
-         Colors.PlainText.Style = []
          Colors.PlainText.ForeColor = clGray
!         Colors.PlainText.BackColor = clWindow
        end
      end
--- 2673,2689 ----
          UseDockManager = False
          HighLighter = hlPhp
          Colors.Comment.ForeColor = clOlive
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clBlack
          Colors.Declaration.Style = [fsBold]
          Colors.Declaration.ForeColor = clNavy
          Colors.Statement.Style = [fsBold]
          Colors.PlainText.ForeColor = clGray
!         DelphiColors = False
        end
      end
***************
*** 3084,3120 ****
          UseDockManager = False
          HighLighter = hlNone
-         Colors.Comment.Style = []
-         Colors.Comment.ForeColor = clWindowText
-         Colors.Comment.BackColor = clWindow
-         Colors.Number.Style = []
          Colors.Number.ForeColor = clNavy
-         Colors.Number.BackColor = clWindow
-         Colors.Strings.Style = []
          Colors.Strings.ForeColor = clPurple
-         Colors.Strings.BackColor = clWindow
-         Colors.Symbol.Style = []
          Colors.Symbol.ForeColor = clBlue
-         Colors.Symbol.BackColor = clWindow
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Reserved.BackColor = clWindow
!         Colors.Identifer.Style = []
!         Colors.Identifer.ForeColor = clBlack
!         Colors.Identifer.BackColor = clWindow
!         Colors.Preproc.Style = []
          Colors.Preproc.ForeColor = clGreen
-         Colors.Preproc.BackColor = clWindow
-         Colors.FunctionCall.Style = []
-         Colors.FunctionCall.ForeColor = clWindowText
-         Colors.FunctionCall.BackColor = clWindow
-         Colors.Declaration.Style = []
-         Colors.Declaration.ForeColor = clWindowText
-         Colors.Declaration.BackColor = clWindow
          Colors.Statement.Style = [fsBold]
!         Colors.Statement.ForeColor = clWindowText
!         Colors.Statement.BackColor = clWindow
!         Colors.PlainText.Style = []
!         Colors.PlainText.ForeColor = clWindowText
!         Colors.PlainText.BackColor = clWindow
          OnReservedWord = RAEditor3ReservedWord
        end
--- 2854,2866 ----
          UseDockManager = False
          HighLighter = hlNone
          Colors.Number.ForeColor = clNavy
          Colors.Strings.ForeColor = clPurple
          Colors.Symbol.ForeColor = clBlue
          Colors.Reserved.Style = [fsBold]
          Colors.Reserved.ForeColor = clBlack
!         Colors.Identifier.ForeColor = clBlack
          Colors.Preproc.ForeColor = clGreen
          Colors.Statement.Style = [fsBold]
!         DelphiColors = False
          OnReservedWord = RAEditor3ReservedWord
        end

Index: fJvEditorTest.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/RALib/RaEditor/fJvEditorTest.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** fJvEditorTest.pas	19 Nov 2002 15:27:47 -0000	1.2
--- fJvEditorTest.pas	30 Mar 2003 16:46:44 -0000	1.3
***************
*** 128,132 ****
      Canvas.FillRect(Rect);
      case Mode of
!       cmIdentifers :
          begin
            ImageIndex := StrToInt(Trim(SubStr(Items[Index], 2, Separator))) - 1;
--- 128,132 ----
      Canvas.FillRect(Rect);
      case Mode of
!       cmIdentifers:
          begin
            ImageIndex := StrToInt(Trim(SubStr(Items[Index], 2, Separator))) - 1;