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
|
