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

ide: on app activate: invalidate file state cache immediately

Browse Source 
git-svn-id: trunk@64899 -
This commit is contained in:
mattias 2021-04-02 17:26:11 +00:00
parent 165e812983
commit 74b6997d63
4 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/anchordocking/design/registeranchordocking.pas
View File

@ -198,7 +198,6 @@ begin
DockMaster.OnCreateControl:=@DockMasterCreateControl;
DockMaster.OnShowOptions:=@ShowAnchorDockOptions;
DockMaster.ShowMenuItemShowHeader:=true;
FHideSimpleLayoutOptions:=true;
fCmdLineLayoutFile:=TrimAndExpandFilename(Application.GetOptionValue('anchordocklayout'));
if CmdLineLayoutFile<>'' then
debugln(['Hint: anchordocking layout file: "',CmdLineLayoutFile,'"']);

3
components/ideintf/idewindowintf.pas
View File

@ -436,8 +436,6 @@ type
{ TIDEDockMaster }
TIDEDockMaster = class
protected
FHideSimpleLayoutOptions: boolean;
public
procedure MakeIDEWindowDockable(AControl: TWinControl); virtual; abstract; // make AControl dockable, it can be docked and other dockable windows can be docked to it, this does not make it visible
procedure MakeIDEWindowDockSite(AForm: TCustomForm; ASides: TDockSides = [alBottom]); virtual; abstract; // make AForm a dock site, AForm can not be docked, its Parent must be kept nil, this does not make it visible
@ -448,7 +446,6 @@ type
procedure CloseAll; virtual; // close all forms, called after IDE has saved all and shuts down
procedure ResetSplitters; virtual; abstract; // if the dock site has been resized after loading, you have to reset (percentual) splitters
function DockedDesktopOptClass: TAbstractDesktopDockingOptClass; virtual; abstract;
property HideSimpleLayoutOptions: boolean read FHideSimpleLayoutOptions;
end;
TIDEWindowGlobalOption = class

1
ide/main.pp
View File

@ -12390,6 +12390,7 @@ end;
procedure TMainIDE.HandleApplicationActivate(Sender: TObject);
begin
InvalidateFileStateCache;
DoCheckFilesOnDisk;
end;

10
test/runtestsgui.lpi
View File

@ -1,14 +1,14 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<Title Value="Run Lazarus tests"/>
<ResourceType Value="res"/>
</General>
@ -17,18 +17,16 @@
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>