forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

file modif checker, force check on activate 

fix: had to set focus explicitly to check
This commit is contained in:
Basile Burg 2017-03-12 13:37:52 +01:00
parent a00ae4ea65
commit e50a89f671
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_main.lfm
View File

@ -6519,6 +6519,7 @@ object CEMainForm: TCEMainForm
} }
end end
object ApplicationProperties1: TApplicationProperties object ApplicationProperties1: TApplicationProperties
OnActivate = ApplicationProperties1Activate
OnException = ApplicationProperties1Exception OnException = ApplicationProperties1Exception
left = 96 left = 96
top = 1 top = 1

7
src/ce_main.pas
View File

@ -286,6 +286,7 @@ type
procedure actProjSaveGroupExecute(Sender: TObject); procedure actProjSaveGroupExecute(Sender: TObject);
procedure actProjSelUngroupedExecute(Sender: TObject); procedure actProjSelUngroupedExecute(Sender: TObject);
procedure actSetRunnableSwExecute(Sender: TObject); procedure actSetRunnableSwExecute(Sender: TObject);
procedure ApplicationProperties1Activate(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure updateDocumentBasedAction(sender: TObject); procedure updateDocumentBasedAction(sender: TObject);
procedure updateProjectBasedAction(sender: TObject); procedure updateProjectBasedAction(sender: TObject);
@ -2603,6 +2604,12 @@ begin
form.Free; form.Free;
end; end;
procedure TCEMainForm.ApplicationProperties1Activate(Sender: TObject);
begin
if fDoc.isNotNil then
fDoc.checkFileDate;
end;
function TCEMainForm.compileRunnable(unittest: boolean = false): boolean; function TCEMainForm.compileRunnable(unittest: boolean = false): boolean;
var var
i: integer; i: integer;