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

IDE: initial setup dlg: invalidate file state cache when user comes back from another application

Browse Source 
git-svn-id: trunk@39291 -
This commit is contained in:
mattias 2012-11-17 09:45:41 +00:00
parent a99a932801
commit d291bcedbd
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/initialsetupdlgs.pas
View File

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