cedit.dpr

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

program cEdit;

uses
  ShareMem,
  Forms,
  fMain in 'pas\fMain.pas' {frmMain},
  fProjects in 'pas\fProjects.pas' {frmProjects},
  fSnippets in 'pas\fSnippets.pas' {frmSnippets},
  fTags in 'pas\fTags.pas' {frmTags},
  fDoc in 'pas\fDoc.pas' {frmDoc},
  fOptions in 'pas\fOptions.pas' {frmOptions},
  fOutput in 'pas\fOutput.pas' {frmOutput},
  fCompiler in 'pas\fCompiler.pas' {frmCompiler},
  GrepResultsDlg in 'grep\GrepResultsDlg.pas' {frmGrepResults},
  GrepSearchDlg in 'grep\GrepSearchDlg.pas' {frmGrepSearch},
  SearchFile in 'grep\SearchFile.pas',
  fFindText in 'pas\fFindText.pas' {frmFindText},
  fFTP in 'pas\fFTP.pas' {frmFTP},
  fAccount in 'pas\fAccount.pas' {frmAccount},
  fUpload in 'pas\fUpload.pas' {frmUpload},
  fSettings in 'pas\fSettings.pas' {frmSettings},
  fRemote in 'pas\fRemote.pas' {frmRemotePermissions},
  uDialogSettings in 'pas\uDialogSettings.pas',
  uTypes in 'pas\uTypes.pas',
  plgIface in 'pas\plgIface.pas' {Plugin API Interface},
  fFiles in 'pas\fFiles.pas' {frmFiles},
  fWeb in 'pas\fWeb.pas' {frmWeb},
  fGoto in 'pas\fGoto.pas' {frmGoto},
  fReplace in 'pas\fReplace.pas' {frmReplace},
  dMain in 'pas\dMain.pas' {dmMain: TDataModule},
  uHighlighterProcs in 'pas\uHighlighterProcs.pas',
  uOptVars in 'pas\uOptVars.pas',
  fPSelect in 'pas\fPSelect.pas' {frmProposeSelect},
  fSaveMacroDialog in 'pas\fSaveMacroDialog.pas' {frmSaveMacrodlg},
  fSaveDlg in 'pas\fSaveDlg.pas' {frmSaveDlg},
  fImage in '..\SynEdit\Source\fImage.pas' {frmImage},
  dlgFileProperties in 'pas\dlgFileProperties.pas' {FilePropertiesDialog},
  dlgConfirmReplace in 'pas\dlgConfirmReplace.pas' {ConfirmReplaceDialog},
  fAbout in 'pas\fAbout.pas' {frmAbout},
  dlgKeyboardMap in 'pas\dlgKeyboardMap.pas' {KeyboardMapDialog},
  uMyReg in 'pas\umyreg.pas',
  dlgSpellCheck in 'pas\dlgSpellCheck.pas' {SpellCheckDialog},
  fTask in 'pas\fTask.pas' {frmTask},
  fOpenWeb in 'pas\fOpenWeb.pas' {frmOpenWeb},
  fFindHex in 'pas\fFindHex.pas' {frmFindHex},
  fTagEdit in 'pas\fTagEdit.pas' {frmTagEdit},
  fQuickFTP in 'pas\fQuickFTP.pas' {frmQuickFTP},
  fDownloadLanguage in 'pas\fDownloadLanguage.pas' {frmDownloadLanguage},
  fOpenWindows in 'pas\fOpenWindows.pas' {frmOpenWindows},
  fBookmarks in 'pas\fBookmarks.pas' {frmBookmarks},
  fDownloadPlugins in '..\SynEdit\Source\fDownloadPlugins.pas' {frmDownloadPlugins};

{$R *.res}

function GetDoc: TfrmDoc;
begin
	if dmMain.SelDoc <> nil then
          GetDoc := dmMain.SelDoc;
end;

procedure SetLang(strFile: PChar);
begin
  if dmMain.SelDoc <> nil then
    dmMain.SelDoc.sciMain.Highlighter := dmMain.SetHighlighter(strFile);

end;

exports GetDoc, SetLang;

begin
  Application.Initialize;
  Application.HelpFile := 'C:\backup\cEdit5\cedit.chm';
  Application.CreateForm(TfrmMain, frmMain);
  Application.Title := 'cEdit Professional';
  Application.Run;
end.