[GExperts-CVS] gexperts/unstable/Comps FileView.pas,1.14,1.15

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Comps
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv25462/Comps

Modified Files:
	FileView.pas 
Log Message:
Minor Delphi 2007 changes

Index: FileView.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/FileView.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- FileView.pas	23 Jun 2005 21:38:15 -0000	1.14
+++ FileView.pas	17 Mar 2007 07:52:56 -0000	1.15
@@ -165,7 +165,7 @@
         or (Ext = '.HTML') or (Ext = '.HTM') or (Ext = '.DIZ')
         or (Ext = '.C') or (Ext = '.CPP') or (Ext = '.H') or (Ext = '.HPP')
         or (Ext = '.SQL') or (Ext = '.XML') or (Ext = '.RC') or (Ext = '.BDSGROUP')
-        or (Ext = '.BDSPROJ') or (Ext = '.DOF') or (Ext = '.DSK') or (Ext = '.ISS')
+        or (Ext = '.BDSPROJ') or (Ext = '.DPROJ') or (Ext = '.DOF') or (Ext = '.DSK') or (Ext = '.ISS')
         or (Ext = '.BPF') or (Ext = '.KOF') or (Ext = '.DEBUGLOG') or (Ext = '.CFG')
         or (Ext = '.DRC') or (Ext = '.MAP') or (Ext = '.CONF')
         or (Ext = '.LOCAL') or (Ext = '.LOG') or IsForm(FileName)
@@ -204,7 +204,7 @@
         AssignParser(gxpSQL)
       else if (Ext = '.CS') then
         AssignParser(gxpCS)
-      else if (Ext = '.XML') or (Ext = '.BDSPROJ') or (Ext = '.BDSGROUP') or (Ext = '.LOCAL')  or (Ext = '.BPR') then
+      else if (Ext = '.XML') or (Ext = '.BDSPROJ') or (Ext = '.DPROJ') or (Ext = '.BDSGROUP') or (Ext = '.LOCAL')  or (Ext = '.BPR') then
         AssignParser(gxpXML)
     {$ENDIF GX_ENHANCED_EDITOR}
     else