erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-08-10 10:55:33 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 15

Merge pull request #7642 from keymanapp/fix/developer/7641-prevent-compile-if-no-project

Browse source 
fix(developer): disable Keyboard|Compile if no project loaded
This commit is contained in:
Marc Durdin 2022-11-08 14:42:19 +11:00 • committed by GitHub
commit cbc63c42b2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
developer/src/tike/actions/dmActionsKeyboardEditor.pas
View file

@ -149,6 +149,7 @@ uses
Keyman.Developer.System.Project.kmnProjectFile,
Keyman.Developer.UI.Project.kmnProjectFileUI,
Keyman.Developer.System.Project.kpsProjectFile,
Keyman.Developer.System.Project.Project,
Keyman.Developer.System.Project.ProjectFile,
Keyman.Developer.UI.Project.ProjectFileUI,
Keyman.Developer.UI.Project.UfrmProject,
@ -470,13 +471,13 @@ begin
actKeyboardCompile.Enabled :=
(ActiveEditor <> nil) or
(ActivePackageEditor <> nil) or
(frmKeymanDeveloper.ActiveChild is TfrmProject);
((frmKeymanDeveloper.ActiveChild is TfrmProject) and (FGlobalProject <> nil));
if actKeyboardCompile.Enabled
then actKeyboardCompile.ShortCut := Vcl.Menus.Shortcut(VK_F7, [])
else actKeyboardCompile.ShortCut := scNone;
frmKeymanDeveloper.mnuKeyboard.Visible := actKeyboardCompile.Enabled;
frmKeymanDeveloper.mnuKeyboard.Visible := True;
frmKeymanDeveloper.mnuDebug.Visible := ActiveEditor <> nil;
end;