From 5024ed8e2342d94ad0509d4254fc788ad32959ec Mon Sep 17 00:00:00 2001 From: paul Date: Sun, 13 Oct 2013 07:35:04 +0000 Subject: [PATCH] ide: a trial to make IDE with EnableNewExtTools git-svn-id: trunk@43230 - --- ide/lazbuild.lpr | 2 +- ide/projectuserresources.pas | 14 +++++++++----- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ide/lazbuild.lpr b/ide/lazbuild.lpr index f616047249..969fb81156 100644 --- a/ide/lazbuild.lpr +++ b/ide/lazbuild.lpr @@ -36,7 +36,7 @@ uses MacroIntf, PackageIntf, IDEDialogs, ProjectIntf, IDEExternToolIntf, CompOptsIntf, LazIDEIntf, // IDE - IDEProcs, InitialSetupDlgs, OutputFilter, CompilerOptions, ApplicationBundle, + IDEProcs, InitialSetupDlgs, CompilerOptions, ApplicationBundle, TransferMacros, EnvironmentOpts, IDETranslations, LazarusIDEStrConsts, IDECmdLine, ExtToolDialog, MiscOptions, Project, LazConf, PackageDefs, PackageLinks, PackageSystem, BuildLazDialog, BuildProfileManager, diff --git a/ide/projectuserresources.pas b/ide/projectuserresources.pas index 5dc5cd0b8a..c759935528 100644 --- a/ide/projectuserresources.pas +++ b/ide/projectuserresources.pas @@ -1,9 +1,9 @@ { /*************************************************************************** - projecticon.pas - Lazarus IDE unit - --------------------------------------- - TProjectIcon is responsible for the inclusion of the - icon in windows executables as rc file and others as .lrs. + projectuserresources.pas - Lazarus IDE unit + --------------------------------------- + TProjectUserResources is responsible for the inclusion of the + custom resources in executables as res file ***************************************************************************/ @@ -37,7 +37,7 @@ interface uses Classes, SysUtils, FileUtil, Laz2_XMLCfg, lazutf8classes, Process, LCLProc, Controls, Graphics, Forms, CodeToolManager, FileProcs, LazConf, LResources, - ProjectIntf, ProjectResourcesIntf, IDEMsgIntf, LazarusIDEStrConsts, + ProjectIntf, ProjectResourcesIntf, IDEMsgIntf, IDEExternToolIntf, LazarusIDEStrConsts, resource, bitmapresource, groupresource, groupiconresource, groupcursorresource; type @@ -170,7 +170,11 @@ begin end; end else + {$IFDEF EnableNewExtTools} + IDEMessagesWindow.AddCustomMessage(mluError,Format(lisFileNotFound2, ['"', Filename, '"', ''])); + {$ELSE} IDEMessagesWindow.AddMsg(Format(lisFileNotFound2, ['"', Filename, '"', '']), '', -1); + {$ENDIF} end; { TResourceList }