diff --git a/ide/initialsetupdlgs.pas b/ide/initialsetupdlgs.pas index 0f67a0de42..54f97876f2 100644 --- a/ide/initialsetupdlgs.pas +++ b/ide/initialsetupdlgs.pas @@ -127,6 +127,7 @@ type procedure LazDirComboBoxChange(Sender: TObject); procedure MakeExeBrowseButtonClick(Sender: TObject); procedure MakeExeComboBoxChange(Sender: TObject); + procedure OnAppActivate(Sender: TObject); procedure PropertiesPageControlChange(Sender: TObject); procedure PropertiesTreeViewSelectionChanged(Sender: TObject); procedure StartIDEBitBtnClick(Sender: TObject); @@ -1220,6 +1221,8 @@ begin s+=' '+lisAUsefulSettingOnWindowsSystemsIsLazarusDirMingwBin; {$ENDIF} DebuggerLabel.Caption:=s; + + Application.AddOnActivateHandler(@OnAppActivate); end; procedure TInitialSetupDialog.CompilerComboBoxChange(Sender: TObject); @@ -1349,6 +1352,12 @@ begin UpdateMakeExeNote; end; +procedure TInitialSetupDialog.OnAppActivate(Sender: TObject); +begin + // switched back from another application + InvalidateFileStateCache; +end; + procedure TInitialSetupDialog.PropertiesPageControlChange(Sender: TObject); var s: String;