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

IDE: drop files: invalidate file state cache

Browse Source 
git-svn-id: trunk@47563 -
This commit is contained in:
mattias 2015-01-29 14:38:02 +00:00
parent 48f6e42729
commit dfffaa0c33
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/mainbar.pas
View File

@ -41,7 +41,7 @@ uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, Menus,
ComCtrls, ExtCtrls, Dialogs, LMessages,
// IDEIntf
ProjectIntf, NewItemIntf, MenuIntf, LazIDEIntf,
ProjectIntf, NewItemIntf, MenuIntf, LazIDEIntf, LazFileCache,
EnvironmentOpts, LazarusIDEStrConsts;
type
@ -403,6 +403,9 @@ implementation
procedure TMainIDEBar.MainIDEBarDropFiles(Sender: TObject;
const FileNames: array of String);
begin
// the Drop event comes before the Application activate event
// => invalidate file state
InvalidateFileStateCache;
LazarusIDE.DoDropFiles(Sender,FileNames);
end;