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

IDE: Don't show error dialog in InitialSetupDialog after every key press when entering compiler path. Issue #35800

Browse Source 
git-svn-id: trunk@62131 -
This commit is contained in:
juha 2019-10-27 10:48:44 +00:00
parent b78a86c467
commit 0569794060
1 changed files with 17 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ide/initialsetupdlgs.pas
View File

@ -1034,39 +1034,37 @@ end;
procedure TInitialSetupDialog.UpdateCompilerNote;
var
CurCaption: String;
Note: string;
CurCaption, ParsedC, Note, s: String;
Quality: TSDFilenameQuality;
s: String;
ImageIndex: Integer;
CfgCache: TPCTargetConfigCache;
begin
if csDestroying in ComponentState then exit;
CurCaption:=CompilerComboBox.Text;
EnvironmentOptions.CompilerFilename:=CurCaption;
if fLastParsedCompiler=EnvironmentOptions.GetParsedCompilerFilename then exit;
fLastParsedCompiler:=EnvironmentOptions.GetParsedCompilerFilename;
//debugln(['TInitialSetupDialog.UpdateCompilerNote ',fLastParsedCompiler]);
ParsedC:=EnvironmentOptions.GetParsedCompilerFilename;
if fLastParsedCompiler=ParsedC then exit;
fLastParsedCompiler:=ParsedC;
Quality:=CheckFPCExeQuality(fLastParsedCompiler,Note,
CodeToolBoss.CompilerDefinesCache.TestFilename);
// check compiler again
CfgCache:=CodeToolBoss.CompilerDefinesCache.ConfigCaches.Find(
fLastParsedCompiler,'','','',true);
CfgCache.CompilerDate:=0; // force update
if CfgCache.NeedsUpdate then
CfgCache.Update(CodeToolBoss.CompilerDefinesCache.TestFilename);
BuildBoss.SetBuildTargetIDE;
if Quality=sddqCompatible then
begin
// check compiler again
CfgCache:=CodeToolBoss.CompilerDefinesCache.ConfigCaches.Find(
fLastParsedCompiler,'','','',true);
CfgCache.CompilerDate:=0; // force update
if CfgCache.NeedsUpdate then
CfgCache.Update(CodeToolBoss.CompilerDefinesCache.TestFilename);
BuildBoss.SetBuildTargetIDE;
end;
case Quality of
sddqInvalid: s:=lisError;
sddqCompatible: s:='';
else s:=lisWarning;
end;
if EnvironmentOptions.CompilerFilename<>EnvironmentOptions.GetParsedCompilerFilename
then
s:=lisFile2+EnvironmentOptions.GetParsedCompilerFilename+LineEnding+
LineEnding+s;
ParsedC:=EnvironmentOptions.GetParsedCompilerFilename;
if EnvironmentOptions.CompilerFilename<>ParsedC then
s:=lisFile2+ParsedC+LineEnding+LineEnding+s;
CompilerMemo.Text:=s+Note;
ImageIndex:=QualityToImgIndex(Quality);