[JVCL-Checkins] CVS: jvcl/examples/RALib/RaEditor fJvEditorTest.pas,1.3,1.4

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

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

Modified Files:
	fJvEditorTest.pas 
Log Message:
-Renames and deletions in JvTypes.pas: see changelog.txt for more details
-Updates for D5 compatibility
-Added implicit units to DT package(s)

Index: fJvEditorTest.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/examples/RALib/RaEditor/fJvEditorTest.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** fJvEditorTest.pas	30 Mar 2003 16:46:44 -0000	1.3
--- fJvEditorTest.pas	15 Jun 2003 13:54:45 -0000	1.4
***************
*** 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
!       cmIdentifiers:
          begin
            ImageIndex := StrToInt(Trim(SubStr(Items[Index], 2, Separator))) - 1;
***************
*** 137,141 ****
            Canvas.TextOut(Rect.Right - 2*Offset - W, Rect.Top +2, S);
          end;
!       cmTemplates :
          begin
            Canvas.TextOut(Rect.Left + Offset, Rect.Top +2, SubStr(Items[Index], 1, Separator));
--- 137,141 ----
            Canvas.TextOut(Rect.Right - 2*Offset - W, Rect.Top +2, S);
          end;
!       cmTemplates:
          begin
            Canvas.TextOut(Rect.Left + Offset, Rect.Top +2, SubStr(Items[Index], 1, Separator));