From: Erik B. <eb...@us...> - 2007-03-18 22:09:32
|
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 |