paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

added some messages when compiler filename is invalid

Browse Source 
git-svn-id: trunk@2871 -
This commit is contained in:
mattias 2002-08-18 08:55:17 +00:00
parent 5ec68e1898
commit f23eb0d18e
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -118,6 +118,7 @@ designer/sizecompsdlg.pp svneol=native#text/pascal
designer/taborderdlg.lfm svneol=native#text/plain designer/taborderdlg.lfm svneol=native#text/plain
designer/taborderdlg.lrs svneol=native#text/pascal designer/taborderdlg.lrs svneol=native#text/pascal
designer/taborderdlg.pas svneol=native#text/pascal designer/taborderdlg.pas svneol=native#text/pascal
docs/LazarusIDEInternals.pdf -text svneol=unset#application/pdf
docs/Packages.txt svneol=native#text/plain docs/Packages.txt svneol=native#text/plain
examples/bitbtnform.pp svneol=native#text/pascal examples/bitbtnform.pp svneol=native#text/pascal
examples/bitbutton.pp svneol=native#text/pascal examples/bitbutton.pp svneol=native#text/pascal

BIN
docs/LazarusIDEInternals.pdf Normal file
View File

Binary file not shown.

12
ide/main.pp
View File

@ -55,7 +55,7 @@ uses
BuildLazDialog, MiscOptions, EditDefineTree, CodeToolsOptions, TypInfo, BuildLazDialog, MiscOptions, EditDefineTree, CodeToolsOptions, TypInfo,
IDEOptionDefs, CodeToolsDefines, LocalsDlg, DebuggerDlg, InputHistory, IDEOptionDefs, CodeToolsDefines, LocalsDlg, DebuggerDlg, InputHistory,
DiskDiffsDialog, UnitDependencies, PublishProjectDlg, ClipBoardHistory, DiskDiffsDialog, UnitDependencies, PublishProjectDlg, ClipBoardHistory,
ProcessList, ProcessList, InitialSetupDlgs,
// main ide // main ide
BaseDebugManager, DebugManager, MainBar; BaseDebugManager, DebugManager, MainBar;
@ -686,7 +686,11 @@ end;
procedure TMainIDE.LoadGlobalOptions; procedure TMainIDE.LoadGlobalOptions;
// load environment, miscellaneous, editor and codetools options // load environment, miscellaneous, editor and codetools options
var
InteractiveSetup: boolean;
begin begin
InteractiveSetup:=true;
EnvironmentOptions:=TEnvironmentOptions.Create; EnvironmentOptions:=TEnvironmentOptions.Create;
with EnvironmentOptions do begin with EnvironmentOptions do begin
SetLazarusDefaultFilename; SetLazarusDefaultFilename;
@ -694,8 +698,7 @@ begin
TranslateResourceStrings(EnvironmentOptions.LazarusDirectory, TranslateResourceStrings(EnvironmentOptions.LazarusDirectory,
LazarusLanguageIDs[EnvironmentOptions.Language]); LazarusLanguageIDs[EnvironmentOptions.Language]);
if EnvironmentOptions.CompilerFilename='' then CheckCompilerFilename(InteractiveSetup);
EnvironmentOptions.CompilerFilename:=FindDefaultCompilerPath;
if EnvironmentOptions.FPCSourceDirectory='' then if EnvironmentOptions.FPCSourceDirectory='' then
EnvironmentOptions.FPCSourceDirectory:=FindDefaultFPCSrcDirectory; EnvironmentOptions.FPCSourceDirectory:=FindDefaultFPCSrcDirectory;
ExternalTools.OnNeedsOutputFilter:=@OnExtToolNeedsOutputFilter; ExternalTools.OnNeedsOutputFilter:=@OnExtToolNeedsOutputFilter;
@ -7720,6 +7723,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.462 2003/02/19 22:27:33 mattias
added some messages when compiler filename is invalid
Revision 1.461 2003/02/07 19:13:57 mattias Revision 1.461 2003/02/07 19:13:57 mattias
fixed searching lazarus in current dir fixed searching lazarus in current dir