diff --git a/linux/README.md b/linux/README.md index 6ab8258e34..28d9c18b90 100644 --- a/linux/README.md +++ b/linux/README.md @@ -15,7 +15,7 @@ - It is helpful to be using the [packages.sil.org](http://packages.sil.org) repo - Install packages required for building and developing KMFL and Keyman for Linux -`sudo apt install cdbs debhelper libx11-dev autotools-dev build-essential dh-autoreconf flex bison libibus-1.0-dev python3-setuptools meson libjson-glib-dev libgtk-3-dev help2man python3-lxml python3-magic python3-numpy python3-pil python3-pip python3-requests python3-requests-cache python3 python3-gi gir1.2-webkit-3.0 dconf-cli` +`sudo apt install cdbs debhelper libx11-dev autotools-dev build-essential devtools dh-autoreconf flex bison libibus-1.0-dev python3-setuptools meson libjson-glib-dev libgtk-3-dev libxml2-utils help2man python3-lxml python3-magic python3-numpy python3-pil python3-pip python3-requests python3-requests-cache python3 python3-gi gir1.2-webkit-3.0 dconf-cli` ### Compiling from Command Line @@ -83,6 +83,31 @@ Nightly builds upload the most recent new master build to https://downloads.keym Jenkins now continuously builds Debian packages on every commit to master Periodically test packages will be uploaded to https://launchpad.net/~keymanapp/+archive/ubuntu/keyman-daily +### Launchpad +This section is primarily for "Keyman for Linux" team members, and not needed for general building. + +1. If you don't have one, create an account at https://launchpad.net +2. Request to join the ["Keyman for Linux"](https://launchpad.net/~keymanapp) team. +3. Create a [GPG](https://help.ubuntu.com/community/GnuPrivacyGuardHowto) key and associate it to your launchpad account +4. Set the following environment variables in your ~/.profile or ~/.bashrc (so you don't have to set them every time) + `export GPGKEY=[key_id]` using the `key_id` of your GPG key + `DEBEMAIL="your.email.address@example.org"` + `DEBFULLNAME="Firstname Lastname"` + `export DEBEMAIL DEBFULLNAME` + +To upload the packages to launchpad, run the following script from the `linux/` directory: +``` +./scripts/launchpad.sh [UPLOAD="yes"] [TIER=""] [PROJECT=""] [DIST=""] [PACKAGEVERSION=""] +``` +**Parameters** +UPLOAD="yes" do the dput for real +TIER="\" alpha, beta, or stable, default beta +PROJECT="\" only upload this project +DIST="\" only upload for this distribution +PACKAGEVERSION="\" normally use the default so don't specify it. But if you change packaging and run another upload you need to increment the number at the end of `PACKAGEVERSION`. e.g. next one is `1~sil2` then `1~sil3`... + +Refer to https://help.launchpad.net/Packaging/PPA/Uploading for troubleshooting and setting up for dput upload. + ### Testing Tests to be created as there are no current tests diff --git a/linux/history.md b/linux/history.md index ee7540e3ff..ab99512c4c 100644 --- a/linux/history.md +++ b/linux/history.md @@ -3,6 +3,9 @@ ## 12.0 alpha * Started work on Keyman for Linux 12 +## 2019-02-18 11.0.109 beta +* create appstream appdata for keyman-config (#1543) + ## 2019-02-15 11.0.108 beta * handle keyboard package install/uninstall when languages aren't defined (#1585) diff --git a/linux/ibus-keyman/debian/com.github.ibus.ibus-keyman.metainfo.xml b/linux/ibus-keyman/debian/com.github.ibus.ibus-keyman.metainfo.xml new file mode 100644 index 0000000000..b356586db8 --- /dev/null +++ b/linux/ibus-keyman/debian/com.github.ibus.ibus-keyman.metainfo.xml @@ -0,0 +1,31 @@ +​ +​ +​ com.github.ibus.ibus-keyman +​ FSFAP +​ ibus-keyman +​ Keyman input method for IBus +​ +​

+ This input method provides the Keyman IM engine for IBus. With this module, you can + use keyboard layouts designed for Keyman version 11 or earlier under the IBus + platform. +

+

+ Originally created in 1993 to type Lao on Windows, Keyman is now a free and + open source keyboarding platform which allows anyone to write a keyboard layout + for their language. Keyman is available for many platforms, including Windows, + macOS, iOS, Android, Linux and the web. +

+

+ Keyboard layouts are defined with a clear and easy to understand keyboard + grammar. Keyman's contextual input model means keyboard layouts can be + intelligent and make it simple to type even the most complex languages. + Keyboard layouts are distributed through an open catalog to all major desktop + and mobile platforms. +

+

+​ Input methods are typing systems allowing users to input complex languages. +​

+​ +​ https://www.keyman.com/linux +​ diff --git a/linux/ibus-keyman/debian/install b/linux/ibus-keyman/debian/install new file mode 100644 index 0000000000..8848fcfd87 --- /dev/null +++ b/linux/ibus-keyman/debian/install @@ -0,0 +1 @@ +debian/com.github.ibus.ibus-keyman.metainfo.xml /usr/share/metainfo diff --git a/linux/ibus-kmfl/debian/com.github.ibus.ibus-kmfl.metainfo.xml b/linux/ibus-kmfl/debian/com.github.ibus.ibus-kmfl.metainfo.xml new file mode 100644 index 0000000000..16200db00a --- /dev/null +++ b/linux/ibus-kmfl/debian/com.github.ibus.ibus-kmfl.metainfo.xml @@ -0,0 +1,31 @@ +​ +​ +​ com.github.ibus.ibus-kmfl +​ FSFAP +​ ibus-kmfl +​ KMFL input method for IBus +​ +​

+ This package provides the KMFL (Keyboard Mapping for Linux) input method + engine for IBus. With this module, you can use keyboard layouts designed + for Keyman for Windows 6.0 under the IBus platform. +

+

+ Originally created in 1993 to type Lao on Windows, Keyman is now a free and + open source keyboarding platform which allows anyone to write a keyboard layout + for their language. Keyman is available for many platforms, including Windows, + macOS, iOS, Android, Linux and the web. +

+

+ Keyboard layouts are defined with a clear and easy to understand keyboard + grammar. Keyman's contextual input model means keyboard layouts can be + intelligent and make it simple to type even the most complex languages. + Keyboard layouts are distributed through an open catalog to all major desktop + and mobile platforms. +

+

+​ Input methods are typing systems allowing users to input complex languages. +​

+​ +​ https://www.keyman.com/linux +​ diff --git a/linux/ibus-kmfl/debian/install b/linux/ibus-kmfl/debian/install new file mode 100644 index 0000000000..2d4ec4eb14 --- /dev/null +++ b/linux/ibus-kmfl/debian/install @@ -0,0 +1 @@ +debian/com.github.ibus.ibus-kmfl.metainfo.xml /usr/share/metainfo diff --git a/linux/keyman-config/debian/com.keyman.config.appdata.xml b/linux/keyman-config/debian/com.keyman.config.appdata.xml new file mode 100644 index 0000000000..72760d64c0 --- /dev/null +++ b/linux/keyman-config/debian/com.keyman.config.appdata.xml @@ -0,0 +1,42 @@ + + + + com.keyman.config + FSFAP + MIT + Keyman + Keyman Keyboards + Configure keyboards for Keyman for Linux + + +

+ Originally created in 1993 to type Lao on Windows, Keyman is now a free and +open source keyboarding platform which allows anyone to write a keyboard layout +for their language. Keyman is available for many platforms, including Windows, +macOS, iOS, Android, Linux and the web. +

+

+ Keyboard layouts are defined with a clear and easy to understand keyboard +grammar. Keyman's contextual input model means keyboard layouts can be +intelligent and make it simple to type even the most complex languages. +Keyboard layouts are distributed through an open catalog to all major desktop +and mobile platforms. +

+

+ Install, uninstall and view information about Keyman keyboard packages. +

+ + + km-config.desktop + + + + The Keyman Keyboards main window with a keyboard welcome window. + https://keyman.com/go/linux/11.0/linux-configuration.png + + + + https://keyman.com/linux/ + https://github.com/keymanapp/keyman/issues + https://community.software.sil.org/c/keyman + diff --git a/linux/keyman-config/debian/keyman.install b/linux/keyman-config/debian/keyman.install index c79ac94f7f..de47157e0b 100644 --- a/linux/keyman-config/debian/keyman.install +++ b/linux/keyman-config/debian/keyman.install @@ -1,5 +1,6 @@ ./keyman_config/icons/* /usr/share/keyman/icons/ debian/km-config.desktop /usr/share/applications +debian/com.keyman.config.appdata.xml /usr/share/metainfo ./icons/24/km-config.png /usr/share/icons/hicolor/24x24/apps/ ./icons/32/km-config.png /usr/share/icons/hicolor/32x32/apps/ ./icons/48/km-config.png /usr/share/icons/hicolor/48x48/apps/ diff --git a/windows/src/developer/TIKE/child/UfrmEditor.pas b/windows/src/developer/TIKE/child/UfrmEditor.pas index cff811b950..d212ea7ccd 100644 --- a/windows/src/developer/TIKE/child/UfrmEditor.pas +++ b/windows/src/developer/TIKE/child/UfrmEditor.pas @@ -232,15 +232,11 @@ function TfrmEditor.DoOpenFile: Boolean; begin RefreshOptions; - if FileExists(FileName) then + FEditorFrame.LoadFromFile(FileName); + UpdateEditorFormat; + + if not FileExists(FileName) then begin - FEditorFrame.LoadFromFile(FileName); - UpdateEditorFormat; - end - else - begin - TextFileFormat := tffUTF8; - UpdateEditorFormat; case EditorFormat of // I1423 - default template efXML: SetEditorText(GetXMLTemplate); efHTML: SetEditorText(GetHTMLTemplate); diff --git a/windows/src/developer/TIKE/main/UfrmMain.pas b/windows/src/developer/TIKE/main/UfrmMain.pas index a117c60370..88742a7196 100644 --- a/windows/src/developer/TIKE/main/UfrmMain.pas +++ b/windows/src/developer/TIKE/main/UfrmMain.pas @@ -1,910 +1,910 @@ -(* - Name: UfrmMain - Copyright: Copyright (C) SIL International. - Documentation: - Description: - Create Date: 20 Jun 2006 - - Modified Date: 24 Aug 2015 - Authors: mcdurdin - Related Files: - Dependencies: - - Bugs: - Todo: - Notes: - History: 20 Jun 2006 - mcdurdin - Initial version - 01 Aug 2006 - mcdurdin - Rework ui using sp-TBX - 02 Aug 2006 - mcdurdin - Remove old menu - 23 Aug 2006 - mcdurdin - Remove Window menu - 23 Aug 2006 - mcdurdin - Refactor menus as actions - 23 Aug 2006 - mcdurdin - Implement encoding combobox - 23 Aug 2006 - mcdurdin - Support WM_InputLangChange for visual keyboard dynamic refresh - 23 Aug 2006 - mcdurdin - Add help form - 23 Aug 2006 - mcdurdin - Force tab orders to active child or active docked form only (not through all forms) - 30 Aug 2006 - mcdurdin - Add reformat XML edit menu item - 14 Sep 2006 - mcdurdin - Add debug toolbar - 14 Sep 2006 - mcdurdin - Add CRM links - 14 Sep 2006 - mcdurdin - Add UnicodeData build callbacks - 14 Sep 2006 - mcdurdin - Add new Character Map events - 28 Sep 2006 - mcdurdin - Add check for updates, debug manager - 28 Sep 2006 - mcdurdin - Remove file association check (now done only by installer) - 04 Dec 2006 - mcdurdin - Add CRM button - 04 Dec 2006 - mcdurdin - Add file to project MRU when opened - 04 Dec 2006 - mcdurdin - Support standalone OSK editor for KVK files - 12 Dec 2006 - mcdurdin - Remove Project Settings menu item - 04 Jan 2007 - mcdurdin - Add help support - 04 Jan 2007 - mcdurdin - Add proxy support - 04 Jan 2007 - mcdurdin - Fix scroll bug for page control - 04 Jan 2007 - mcdurdin - Check if branding pack is installed - 15 Jan 2007 - mcdurdin - Disable KPP editor if no branding pack installed - 25 Jan 2007 - mcdurdin - Remove ActiveChild.Setfocus in WMActivate (resets focus to wrong control) - 16 May 2007 - mcdurdin - I806 - File/Close menu item - 30 May 2007 - mcdurdin - I825 - Added proxy username and password - 23 Aug 2007 - mcdurdin - I1010 - Persist untitled project - 23 Aug 2007 - mcdurdin - I1004 - Fix crash when starting up on Vista with Matrox driver? - 12 Oct 2007 - mcdurdin - I944 - Fix crash when FChildWindows is nil when closing Keyman Developer - 19 Nov 2007 - mcdurdin - I1157 - const string parameters - 16 Jan 2009 - mcdurdin - Add font helper menu item - 25 May 2010 - mcdurdin - I2392 - Activation Client integration - 26 Jul 2010 - mcdurdin - I2467 - 8.0 renumber - 17 Dec 2010 - mcdurdin - U2595 - Remove gnugettext - 31 Jan 2011 - mcdurdin - I2655 - No prompt for unsaved untitled project on exit - 03 May 2011 - mcdurdin - I2890 - Record diagnostic data when encountering registry errors - 18 May 2012 - mcdurdin - I3306 - V9.0 - Remove TntControls + Win9x support - 08 Jun 2012 - mcdurdin - I3350 - V9.0 - Register control classes for Keyman Developer to start - 17 Aug 2012 - mcdurdin - I3377 - KM9 - Update code references from 8.0 to 9.0 - 08 Oct 2012 - mcdurdin - I3463 - V9.0 - Look up charmap root path from registry when starting Developer - 24 Oct 2012 - mcdurdin - I3484 - V9.0 - Tidy up look and feel of Keyman Developer skins - 24 Jan 2012 - mcdurdin - I3184 - Missing manifest for tike.exe - 02 Feb 2012 - mcdurdin - I2975 - VistaAltFixUnit causes exception on shutdown - 06 Feb 2012 - mcdurdin - I3082 - Reload text file with specific encoding support - 03 Nov 2012 - mcdurdin - I3502 - V9.0 - Merge of I3082 - Reload text file with specific encoding support - 03 Nov 2012 - mcdurdin - I3501 - V9.0 - Merge of I3184 - Missing manifest for tike.exe - 11 Aug 2013 - mcdurdin - I3887 - V9.0 - Use strict most standard compliant edge compatibility for embedded IE in TIKE - 13 Feb 2014 - mcdurdin - I4045 - V9.0 - Developer should use a TIKE user agent for the layout editor - 27 Feb 2014 - mcdurdin - I4081 - V9.0 - Trace compile errors in subfiles in Keyman Developer - 10 Jun 2014 - mcdurdin - I4257 - V9.0 - Add ethnologue language codes to unicodedata.mdb - 10 Jun 2014 - mcdurdin - I3733 - V9.0 - File format dropdown should be disabled in project view - 10 Oct 2014 - mcdurdin - I4436 - V9.0 - browser emulation control for kmshell breaks downlevel versions of Keyman - 04 Nov 2014 - mcdurdin - I4507 - V9.0 - Move tab close button onto tabs - 30 Apr 2015 - mcdurdin - I4677 - V9.0 - Move Developer help to online only - 04 May 2015 - mcdurdin - I4687 - V9.0 - Split project UI actions into separate classes - 04 May 2015 - mcdurdin - I4691 - V9.0 - Always save project automatically - 27 May 2015 - mcdurdin - I4352 - Developer crashes on exit occasionally [CrashID:tike.exe_9.0.453.0_0058805F_EInvalidOperation] - 27 May 2015 - mcdurdin - I4404 - Developer crashes on exit occasionally [CrashID:tike.exe_9.0.466.0_0058805F_EInvalidOperation] - 27 May 2015 - mcdurdin - I4485 - Developer crashes on exit occasionally [CrashID:tike.exe_9.0.473.0_005880FB_EInvalidOperation] - 23 Jun 2015 - mcdurdin - I4749 - Opening a keyboard externally can open it multiple times - 24 Jul 2015 - mcdurdin - I4796 - Refresh Keyman Developer look and feel for release - 03 Aug 2015 - mcdurdin - I4807 - Add Character Identifier to Keyman Developer - 09 Aug 2015 - mcdurdin - I4841 - Restructure version 9 developer help - 09 Aug 2015 - mcdurdin - I4847 - Code editor does not get focus automatically when file is loaded - 09 Aug 2015 - mcdurdin - I2986 - Ctrl+N, Ctrl+O not working in Developer Project view - 24 Aug 2015 - mcdurdin - I4874 - Keyman Configuration test windows do not always display correctly -*) -unit UfrmMain; // I3306 // I3502 // I3501 // I4796 - -interface - -uses - System.UITypes, - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, - ComCtrls, ImgList, Menus, StdCtrls, ExtCtrls, ToolWin, Buttons, - KeymanDeveloperUtils, UfrmMDIChild, UfrmMDIEditor, - MenuImgList, - Keyman.Developer.System.Project.Project, - Keyman.Developer.UI.Project.UfrmProject, CharacterMapSettings, - mrulist, - UfrmUnicodeDataStatus, - CharacterDragObject, - dmActionsMain, UnicodeData, UserMessages, webhelp, - dmActionsKeyboardEditor, Dialogs, UfrmTike, AppEvnts, - DropTarget, - System.ImageList, Winapi.ActiveX, CloseButtonPageControl, JvComponentBase, - JvDockControlForm, JvDockTree, JvDockVIDStyle, JvDockVSNetStyle, - JvAppRegistryStorage, Vcl.ActnMan, Vcl.ActnCtrls; - -type - TfrmKeymanDeveloper = class(TTikeForm, IUnicodeDataUIManager, IDragDrop) - barStatus: TStatusBar; - ilPages: TImageList; - lstImages: TMenuImgList; - ApplicationEvents1: TApplicationEvents; - pages: TCloseButtonPageControl; - dockServer: TJvDockServer; - JvDockVSNetStyle1: TJvDockVSNetStyle; - mnuReloadAsFormat: TPopupMenu; - ANSI1: TMenuItem; - UTF81: TMenuItem; - UTF161: TMenuItem; - MainMenu1: TMainMenu; - barTools: TControlBar; - panDebugToolbar: TPanel; - cbDebugSystemKeyboard: TComboBox; - ToolBar2: TToolBar; - ToolButton20: TToolButton; - ToolButton21: TToolButton; - ToolButton23: TToolButton; - ToolButton22: TToolButton; - ToolButton24: TToolButton; - ToolButton25: TToolButton; - ToolButton26: TToolButton; - ToolButton27: TToolButton; - ToolButton28: TToolButton; - ToolButton29: TToolButton; - panToolbar: TPanel; - ToolBar1: TToolBar; - ToolButton1: TToolButton; - ToolButton2: TToolButton; - ToolButton3: TToolButton; - ToolButton4: TToolButton; - ToolButton5: TToolButton; - ToolButton6: TToolButton; - ToolButton7: TToolButton; - ToolButton8: TToolButton; - ToolButton9: TToolButton; - ToolButton10: TToolButton; - ToolButton11: TToolButton; - ToolButton12: TToolButton; - ToolButton19: TToolButton; - ToolButton14: TToolButton; - ToolButton15: TToolButton; - cbTextFileFormat: TComboBox; - SpeedButton1: TSpeedButton; - SpeedButton2: TSpeedButton; - File1: TMenuItem; - Edit1: TMenuItem; - View1: TMenuItem; - Project1: TMenuItem; - Keyboards1: TMenuItem; - Debug2: TMenuItem; - ools1: TMenuItem; - Help1: TMenuItem; - New1: TMenuItem; - Open1: TMenuItem; - Save1: TMenuItem; - SaveAs1: TMenuItem; - Savecopyas1: TMenuItem; - Revert1: TMenuItem; - N5: TMenuItem; - Close1: TMenuItem; - N6: TMenuItem; - PageSetup1: TMenuItem; - PrintPreview1: TMenuItem; - Print1: TMenuItem; - N8: TMenuItem; - Exit1: TMenuItem; - N9: TMenuItem; - mnuFileRecent: TMenuItem; - Undo1: TMenuItem; - Redo1: TMenuItem; - N10: TMenuItem; - Cut1: TMenuItem; - Copy1: TMenuItem; - Paste1: TMenuItem; - N18: TMenuItem; - Delete1: TMenuItem; - N19: TMenuItem; - SelectAll1: TMenuItem; - N20: TMenuItem; - Find1: TMenuItem; - FindNext1: TMenuItem; - Replace1: TMenuItem; - N21: TMenuItem; - ReformatXMLDocument1: TMenuItem; - Project2: TMenuItem; - N22: TMenuItem; - CharacterIdentifier1: TMenuItem; - CharacterMap1: TMenuItem; - Messages1: TMenuItem; - ContextHelp1: TMenuItem; - oolbar1: TMenuItem; - StatusBar1: TMenuItem; - N23: TMenuItem; - ExpandEditor1: TMenuItem; - N24: TMenuItem; - CharacterFont1: TMenuItem; - CodeFont1: TMenuItem; - NewProject1: TMenuItem; - OpenProject1: TMenuItem; - SaveProjectAs1: TMenuItem; - N25: TMenuItem; - mnuProjectsRecent: TMenuItem; - N26: TMenuItem; - N27: TMenuItem; - Addtoproject1: TMenuItem; - CurrentEditorFile1: TMenuItem; - OtherFiles1: TMenuItem; - ProjectSettings1: TMenuItem; - CompileKeyboard1: TMenuItem; - N28: TMenuItem; - N29: TMenuItem; - N30: TMenuItem; - IncludeDebugInformation1: TMenuItem; - estKeyboard1: TMenuItem; - PackageforDistribution1: TMenuItem; - Install1: TMenuItem; - Uninstall1: TMenuItem; - N31: TMenuItem; - Fonts1: TMenuItem; - FontHelper1: TMenuItem; - SetBreakpoint1: TMenuItem; - N32: TMenuItem; - N33: TMenuItem; - N34: TMenuItem; - N35: TMenuItem; - N36: TMenuItem; - StartDebugging1: TMenuItem; - StopDebugger1: TMenuItem; - ANSITestMode1: TMenuItem; - SingleStepMode1: TMenuItem; - StepForward1: TMenuItem; - Run1: TMenuItem; - Pause1: TMenuItem; - View2: TMenuItem; - N37: TMenuItem; - SelectSystemKeyboard1: TMenuItem; - State1: TMenuItem; - Elements1: TMenuItem; - CallStack1: TMenuItem; - Deadkeys1: TMenuItem; - RegressionTesting1: TMenuItem; - N38: TMenuItem; - Font1: TMenuItem; - UseEditorCharacterFont1: TMenuItem; - VirtualKeyIdentifier1: TMenuItem; - N39: TMenuItem; - Customise1: TMenuItem; - Options1: TMenuItem; - Contents1: TMenuItem; - N40: TMenuItem; - CheckforUpdates1: TMenuItem; - N41: TMenuItem; - About1: TMenuItem; - N1: TMenuItem; - Reloadwithencoding1: TMenuItem; - ReloadasANSI1: TMenuItem; - ReloadasUTF81: TMenuItem; - ReloadasUTF161: TMenuItem; - DebugTests1: TMenuItem; - CrashTest1: TMenuItem; - procedure FormCreate(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure mnuFileClick(Sender: TObject); - procedure FormDestroy(Sender: TObject); - procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure mnuProjectClick(Sender: TObject); - procedure crash1Click(Sender: TObject); - procedure cmdCrashTestClick(Sender: TObject); - procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); - procedure cbTextFileFormatItemClick(Sender: TObject); - procedure cbDebugSystemKeyboard_DropDown(Sender: TObject); - procedure cbDebugSystemKeyboardItemClick(Sender: TObject); - procedure mnuDebugI374Click(Sender: TObject); - function ApplicationEvents1Help(Command: Word; Data: NativeInt; - var CallHelp: Boolean): Boolean; - procedure mnuDebugSetWindowSizeForScreenshotsClick(Sender: TObject); - procedure pagesChange(Sender: TObject); - procedure pagesCloseTab(Sender: TObject; Index: Integer); - procedure ools1Click(Sender: TObject); - - private - AppStorage: TJvAppRegistryStorage; - - FCharMapSettings: TCharMapSettings; - FDropTarget: TDropTarget; - FChildWindows: TChildWindowList; - - FProjectMRU: TMRUList; - hInputLangChangeHook: Cardinal; - FUnicodeDataStatusForm: TfrmUnicodeDataStatus; - FInOnHelp: Boolean; - mHHelp: TWebHookHelpSystem; // I4677 - FFirstShow: Boolean; - FIsClosing: Boolean; - FCanClose: Boolean; - - //procedure ChildWindowsChange(Sender: TObject); - procedure WMUserFormShown(var Message: TMessage); message WM_USER_FORMSHOWN; - procedure WMUserLoadRegFiles(var Message: TMessage); message WM_USER_LOADREGFILES; - procedure WMUserInputLangChange(var Message: TMessage); message WM_USER_INPUTLANGCHANGE; - - procedure UpdateFileMRU; - - procedure AppOnActivate(Sender: TObject); - function GetActiveEditor: TfrmTikeEditor; - - function OpenKMNEditor(FFileName: string): TfrmTikeEditor; - function OpenKPSEditor(FFileName: string): TfrmTikeEditor; - procedure SetActiveChild(const Value: TfrmTikeChild); - function OpenKVKEditor(FFileName: string): TfrmTikeEditor; - - procedure ShowChild(Window: TfrmTikeChild); - function GetActiveChild: TfrmTikeChild; - function GetActiveChildIndex: Integer; - procedure SetActiveChildIndex(const Value: Integer); - procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE; - procedure mnuProjectRecentFileClick(Sender: TObject); - procedure mnuFileRecentFileClick(Sender: TObject); - - function GetDropTargetIntf: IDropTarget; - - { IDropTarget } - - procedure Drop(const FileNames: array of string); - function DropAllowed(const FileNames: array of string): Boolean; - procedure InitDock; - procedure LoadDockLayout; - procedure SaveDockLayout; - procedure CEFShutdownComplete(Sender: TObject); - procedure ActivateActiveChild; - - protected - procedure WndProc(var Message: TMessage); override; - procedure CreateWnd; override; - procedure DestroyWnd; override; - - public - procedure AddMRU(FileName: string); - procedure GetTabOrderList(List: TList); override; - - procedure CharMapCancelFocus(Sender: TObject); - procedure CharMapCanInsertCode(Sender: TObject; Control: TWinControl; - var Result: Boolean); - procedure CharMapInsertCode(Sender: TObject; Control: TWinControl; - DragObject: TCharacterDragObject); - - procedure UpdateCaption; - - procedure DefaultDockLayout; - - procedure UDUI_Error(Sender: TUnicodeData; Error: TUnicodeDataError; const Details: WideString); - function UDUI_ShouldStartRebuildOnError(const Msg: WideString): Boolean; - function UDUI_StartRebuild(Callback: TNotifyEvent; AskFirst: Boolean): Boolean; - procedure UDUI_UpdateStatus(const Msg: WideString; Pos: Integer; Max: Integer); - - property ActiveChildIndex: Integer read GetActiveChildIndex write SetActiveChildIndex; - - function BeforeOpenProject: Boolean; - procedure ShowProject; - function ProjectForm: TfrmProject; - procedure ToggleProject; - - procedure ShowDebug(AShow: Boolean); - - property ActiveChild: TfrmTikeChild read GetActiveChild write SetActiveChild; - property ActiveEditor: TfrmTikeEditor read GetActiveEditor; - procedure FocusActiveChild; - - procedure NotifyChildWindowChange(Window: TfrmTikeChild; Action: TListNotification); - procedure UpdateChildCaption(Window: TfrmTikeChild); - - function FindEditorByFileName(AFileName: string): TfrmTikeEditor; - - procedure RefreshOptions; - - function OpenEditor(FFileName: string; frmClass: TfrmTikeEditorClass): TfrmTikeEditor; - function OpenFile(FFileName: string; FCloseNewFile: Boolean): TfrmTikeChild; - - procedure HelpTopic(s: string); overload; - procedure HelpTopic(Sender: TTIKEForm); overload; - - property ChildWindows: TChildWindowList read FChildWindows; - property CharMapSettings: TCharMapSettings read FCharMapSettings; - - property ProjectMRU: TMRUList read FProjectMRU; - - property DropTargetIntf: IDropTarget read GetDropTargetIntf; - end; - -var - frmKeymanDeveloper: TfrmKeymanDeveloper; - -procedure InitClasses; - -implementation - -uses - System.Math, - Winapi.WinInet, - Winapi.Urlmon, - Winapi.UxTheme, - System.Win.ComObj, - Vcl.Themes, - - Keyman.Developer.System.CEFManager, - - CharMapDropTool, - HTMLHelpViewer, - KLog, - keymanapi_TLB, - KeymanVersion, - OnlineConstants, - OnlineUpdateCheck, - GlobalProxySettings, - Keyman.Developer.UI.Project.ProjectFileUI, - Keyman.Developer.UI.Project.ProjectUI, - TextFileFormat, - RedistFiles, - ErrorControlledRegistry, - RegistryKeys, - TikeUnicodeData, - UfrmCharacterMapDock, - UfrmMessages, - UfrmNew, - UfrmAboutTike, - UfrmOSKEditor, - UfrmSelectSystemKeyboard, - UfrmStartup, UfrmOptions, - UfrmKeyTest, UfrmKeymanWizard, - UfrmPackageEditor, UfrmEditor, UfrmBitmapEditor, Keyman.Developer.System.Project.ProjectFile, Keyman.Developer.System.Project.ProjectFileType, - UfrmDebug, KeymanDeveloperOptions, utilfiletypes, - UfrmHelp, dmActionsTextEditor, UfrmDebugStatus, - UfrmCharacterIdentifier, UfrmCharacterMapNew; - -{$R *.DFM} - -{------------------------------------------------------------------------------- - - Form events and messages - - -------------------------------------------------------------------------------} - -function CallWndProc_InputLangChange(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; -begin - if nCode >= 0 then - with PCWPSTRUCT(lParam)^ do - if message = WM_INPUTLANGCHANGE then - PostMessage(frmKeymanDeveloper.Handle, WM_USER_INPUTLANGCHANGE, wParam, lParam); - Result := CallNextHookEx(frmKeymanDeveloper.hInputLangChangeHook, nCode, wParam, lParam); -end; - - -procedure TfrmKeymanDeveloper.FormCreate(Sender: TObject); -var - FActiveProject: string; -begin - inherited; - - FFirstShow := True; - - hInputLangChangeHook := SetWindowsHookEx(WH_CALLWNDPROC, CallWndProc_InputLangChange, 0, GetCurrentThreadId); - - modActionsTextEditor := TmodActionsTextEditor.Create(Self); - modActionsKeyboardEditor := TmodActionsKeyboardEditor.Create(Self); - modActionsMain := TmodActionsMain.Create(Self); - - FProjectMRU := TMRUList.Create('Project'); - FChildWindows := TChildWindowList.Create; - - ShowDebug(False); - - CreateTikeUnicodeData(Self); // I4257 - - //CreateKeymanDeveloperOptions; - FCharMapSettings := TCharMapSettings.Create; - - Application.HelpFile := GetHelpURL; // I4677 // I4841 - mHHelp := TWebHookHelpSystem.Create(Application.HelpFile); // I4677 // I4841 - - FActiveProject := ''; - - with TRegistryErrorControlled.Create do // I2890 - try - RootKey := HKEY_CURRENT_USER; - if OpenKeyReadOnly(SRegKey_IDEOptions_CU) then - begin - if ValueExists(SRegValue_IDEOptToolbarVisible) and (ReadString(SRegValue_IDEOptToolbarVisible) = '0') then - barTools.Visible := False; - if ValueExists(SRegValue_ActiveProject) then FActiveProject := ReadString(SRegValue_ActiveProject); - end; - finally - Free; - end; - - try - kmcom := CoKeyman.Create; - except - on E:Exception do - begin - ShowMessage('Unable to instanatiate Keyman COM object. Keyman Developer tools will run, but will have limited functionality. '+ - 'To resolve this problem, reinstall Keyman.'#13#10#13#10'The error returned was: '+E.Message); - kmcom := nil; - end; - end; - - RemoveOldestTikeEditFonts(False); - RemoveOldestTikeTestFonts(False); - - if (FActiveProject <> '') and not FileExists(FActiveProject) then - FActiveProject := ''; - - LoadGlobalProjectUI(FActiveProject, True); - - InitDock; - - frmMessages := TfrmMessages.Create(Self); - - frmCharacterMapDock := TfrmCharacterMapDock.Create(Self); - - frmCharacterIdentifier := TfrmCharacterIdentifier.Create(Self); // I4807 - frmCharacterIdentifier.OnCancelFocus := CharMapCancelFocus; - - frmHelp := TfrmHelp.Create(Application); - - Application.OnActivate := AppOnActivate; - - LoadDockLayout; - Invalidate; - - UpdateCaption; -end; - -procedure TfrmKeymanDeveloper.CreateWnd; -begin - inherited; - FDropTarget := TDropTarget.Create(WindowHandle, Self); -end; - -procedure TfrmKeymanDeveloper.DestroyWnd; -begin - FreeAndNil(FDropTarget); - inherited; -end; - -procedure TfrmKeymanDeveloper.CharMapInsertCode(Sender: TObject; Control: TWinControl; DragObject: TCharacterDragObject); -begin - GetCharMapDropTool.InsertToControl(Control, DragObject); -end; - -procedure TfrmKeymanDeveloper.CharMapCanInsertCode(Sender: TObject; Control: TWinControl; var Result: Boolean); -begin - Result := Assigned(Control) and (GetCharMapDropTool.Controls.IndexOfControl(Control) >= 0); -end; - -procedure TfrmKeymanDeveloper.CharMapCancelFocus(Sender: TObject); -begin - if Assigned(ActiveChild) then ActiveChild.SetFocus; -end; - -procedure TfrmKeymanDeveloper.FormClose(Sender: TObject; var Action: TCloseAction); -var - i: Integer; -begin - for i := FChildWindows.Count - 1 downto 0 do - begin - FChildWindows[i].Visible := False; - FChildWindows[i].Parent := nil; - FChildWindows[i].Release; // I2595, probably not necessary - end; - - if Assigned(FGlobalProject) then - with TRegistryErrorControlled.Create do // I2890 - try - if FGlobalProject.Untitled - then FGlobalProject.PersistUntitledProject // I1010: Persist untitled project - else FGlobalProject.Save; // I4691 - - RootKey := HKEY_CURRENT_USER; - if OpenKey(SRegKey_IDEOptions_CU, True) then - begin - WriteString(SRegValue_ActiveProject, FGlobalProject.FileName); - end; - finally - Free; - end; - - Action := caFree; - - FreeAndNil(frmCharacterMapDock); - FreeAndNil(frmCharacterIdentifier); // I4807 - FreeAndNil(frmMessages); - FreeAndNil(frmHelp); -// FreeAndNil(frmDebugStatus); -end; - -procedure TfrmKeymanDeveloper.FormCloseQuery(Sender: TObject; - var CanClose: Boolean); -var - i: Integer; -begin -// OutputDebugString(PChar('TfrmKeymanDeveloper.FormCloseQuery: FIsClosing='+BoolToStr(FIsClosing)+' FCanClose='+BoolToStr(FCanClose))); - if not FIsClosing then - begin - // I944 - Fix crash when FChildWindows is nil on closing Keyman Developer - if Assigned(FChildWindows) then - begin - for i := 0 to FChildWindows.Count - 1 do - if not FChildWindows[i].CloseQuery then - begin - CanClose := False; - Exit; - end; - end; - - FIsClosing := True; - SaveDockLayout; - - CanClose := FInitializeCEF.StartShutdown(CEFShutdownComplete); - // TODO: complete exit after StartClose is successful - end - else - CanClose := FCanClose; -end; - -procedure TfrmKeymanDeveloper.CEFShutdownComplete(Sender: TObject); -begin -// OutputDebugString(PChar('TfrmKeymanDeveloper.CEFShutdownComplete')); - FCanClose := True; - Close; -end; - -procedure TfrmKeymanDeveloper.FormDestroy(Sender: TObject); -begin -// OutputDebugString(PChar('TfrmKeymanDeveloper.FormDestroy')); - UnhookWindowsHookEx(hInputLangChangeHook); - - FreeAndNil(FCharMapSettings); - Application.OnActivate := nil; - - FreeGlobalProjectUI; - FreeAndNil(FChildWindows); - FreeAndNil(FProjectMRU); - - ClearSystemKeyboardList(cbDebugSystemKeyboard.Items); - - FreeAndNil(mHHelp); // I4677 - - FreeUnicodeData; - - FreeAndNil(AppStorage); - - kmcom := nil; -end; - -procedure TfrmKeymanDeveloper.FormShow(Sender: TObject); -begin - if FFirstShow then PostMessage(Handle, WM_USER_FORMSHOWN, 0, 0); - FFirstShow := False; -end; - -procedure TfrmKeymanDeveloper.WMActivate(var Message: TWMActivate); -begin - try // I4352 // I4404 // I4485 - inherited; - except - on E:EInvalidOperation do - ; // This happens on shutdown sometimes due to - // annoying sequence of operations in Delphi's focus management. - // It's easier to do this, and relatively side-effect-free, so - // happy to live with this... I4352, I4404, I4485 - end; -end; - -procedure TfrmKeymanDeveloper.WMUserFormShown(var Message: TMessage); -var - i: Integer; -begin - try - if ParamCount = 0 then - begin - ShowProject; - ShowStartupModal(Self); - end - else - begin - for i := 1 to ParamCount do - if FileExists(ParamStr(i)) then - OpenFile(ParamStr(i), False); - ShowStartupModal(Self); - end; - except - CloseStartup; - raise; - end; - - if True then //FKeymanDeveloperOptions.AutoCheckForUpdates then - begin - with TOnlineUpdateCheck.Create(SRegKey_KeymanDeveloper_CU, OnlineProductID_KeymanDeveloper_100, False, True, True, GetProxySettings.Server, GetProxySettings.Port, GetProxySettings.Username, GetProxySettings.Password) do // I3377 - Run; - end; -end; - -procedure TfrmKeymanDeveloper.WMUserInputLangChange(var Message: TMessage); -var - i: Integer; -begin - for i := 0 to FChildWindows.Count - 1 do - PostMessage(FChildWindows[i].Handle, WM_USER_INPUTLANGCHANGE, Message.wParam, Message.LParam); -end; - -procedure TfrmKeymanDeveloper.WMUserLoadRegFiles(var Message: TMessage); -var - i: Integer; - s: TStringList; - t: string; -begin - s := TStringList.Create; - with TRegistryErrorControlled.Create do // I2890 - try - RootKey := HKEY_CURRENT_USER; - if not OpenKey(SRegKey_IDEFiles_CU, True) then // I2890 - RaiseLastRegistryError; - - GetValueNames(s); - for i := 0 to s.Count - 1 do - begin - t := ReadString(s[i]); - DeleteValue(s[i]); - OpenFile(t, False); - end; - finally - Free; - end; -end; - -const - SPI_GETKEYBOARDCUES = $100A; -var - FAlwaysDrawUnderline: Boolean = False; - FWndProcInit: Boolean = False; - -procedure TfrmKeymanDeveloper.WndProc(var Message: TMessage); -begin - case Message.Msg of - WM_DRAWITEM: - begin - if not FWndProcInit then - begin - SystemParametersInfo(SPI_GETKEYBOARDCUES, 0, @FAlwaysDrawUnderline, 0); - FWndProcInit := True; - end; - - if FAlwaysDrawUnderline then - with PDrawItemStruct(Message.lParam)^ do - if (CtlType = ODT_MENU) and Assigned(Menu) then - itemState := itemState and $FEFF; - end; - end; - inherited; -end; - -function TfrmKeymanDeveloper.ApplicationEvents1Help(Command: Word; - Data: NativeInt; var CallHelp: Boolean): Boolean; // I4677 -var - s: string; - frm: TCustomForm; -begin - CallHelp := False; - if Command = HELP_COMMAND then // I4677 - begin - if not FInOnHelp then - begin - FInOnHelp := True; - try - s := PChar(Data); - if s = '' then - begin - frm := GetParentForm(Screen.ActiveControl, False); - if frm is TTikeForm then - s := (frm as TTikeForm).HelpTopic; - end; - if s <> '' then - mHHelp.HelpTopic(s); - finally - FInOnHelp := False; - end; - end - else - mHHelp.HelpTopic(s); - end; - Result := True; -end; - -procedure TfrmKeymanDeveloper.AppOnActivate(Sender: TObject); -var - i: Integer; -begin - FWndProcInit := False; - for i := 0 to FChildWindows.Count - 1 do - if FChildWindows[i] is TfrmTikeEditor then - with FChildWindows[i] as TfrmTikeEditor do - CheckForReload; - - try - FocusActiveChild; // I4847 // I2986 - except - on E:EInvalidOperation do ; // We don't want to crash if focus fails, e.g. on shutdown - end; -end; - -{------------------------------------------------------------------------------- - - File menu - - -------------------------------------------------------------------------------} - -procedure TfrmKeymanDeveloper.mnuDebugI374Click(Sender: TObject); -begin - if Assigned(ActiveEditor) - then frmMessages.Add(ActiveEditor.FileName, '1: bug with multi-line messages'#13#10'Double-click on the second line of this message') - else frmMessages.Add('test.txt', '1: bug with multi-line messages'#13#10'Double-click on the second line of this message'); -end; - -procedure TfrmKeymanDeveloper.mnuDebugSetWindowSizeForScreenshotsClick(Sender: TObject); -begin - Width := 960; - Height := 600; -end; - -procedure TfrmKeymanDeveloper.mnuFileClick(Sender: TObject); -begin - UpdateFileMRU; - mnuFileRecent.Enabled := mnuFileRecent.Count > 0; -end; - -{------------------------------------------------------------------------------- - - View menu - - -------------------------------------------------------------------------------} - -procedure TfrmKeymanDeveloper.ShowChild(Window: TfrmTikeChild); -var - i, j: Integer; -begin - for i := 0 to FChildWindows.Count - 1 do - if FChildWindows[i] = Window then - begin - //Window.SetFocus; - for j := 0 to pages.PageCount - 1 do - if pages.Pages[j].Tag = Integer(Window) then - begin - pages.ActivePageIndex := j; - Break; - end; - end; - //else - //FChildWindows[i].Visible := False; -end; - -procedure TfrmKeymanDeveloper.ShowDebug(AShow: Boolean); -begin - if ActiveEditor is TfrmKeymanWizard then - begin - (ActiveEditor as TfrmKeymanWizard).panDebugHost.Visible := AShow; - if AShow then - // Move the form below the splitter - (ActiveEditor as TfrmKeymanWizard).panDebugHost.Top := ActiveEditor.ClientHeight; - end; -// if Assigned(frmDebugStatus) then frmDebugStatus.Visible := AShow; - panDebugToolbar.Visible := AShow; -end; - -procedure TfrmKeymanDeveloper.ShowProject; -begin - if ProjectForm = nil - then ShowChild(TfrmProject.Create(Self)) - else ShowChild(ProjectForm); - ProjectForm.SetGlobalProject; -end; - -procedure TfrmKeymanDeveloper.ToggleProject; -var - frmProject: TfrmProject; -begin - frmProject := ProjectForm; - if Assigned(frmProject) and (ActiveChild = frmProject) - then PostMessage(frmProject.Handle, WM_CLOSE, 0, 0) - else ShowProject; -end; - -procedure TfrmKeymanDeveloper.InitDock; -begin - AppStorage := TJvAppRegistryStorage.Create(self); +(* + Name: UfrmMain + Copyright: Copyright (C) SIL International. + Documentation: + Description: + Create Date: 20 Jun 2006 + + Modified Date: 24 Aug 2015 + Authors: mcdurdin + Related Files: + Dependencies: + + Bugs: + Todo: + Notes: + History: 20 Jun 2006 - mcdurdin - Initial version + 01 Aug 2006 - mcdurdin - Rework ui using sp-TBX + 02 Aug 2006 - mcdurdin - Remove old menu + 23 Aug 2006 - mcdurdin - Remove Window menu + 23 Aug 2006 - mcdurdin - Refactor menus as actions + 23 Aug 2006 - mcdurdin - Implement encoding combobox + 23 Aug 2006 - mcdurdin - Support WM_InputLangChange for visual keyboard dynamic refresh + 23 Aug 2006 - mcdurdin - Add help form + 23 Aug 2006 - mcdurdin - Force tab orders to active child or active docked form only (not through all forms) + 30 Aug 2006 - mcdurdin - Add reformat XML edit menu item + 14 Sep 2006 - mcdurdin - Add debug toolbar + 14 Sep 2006 - mcdurdin - Add CRM links + 14 Sep 2006 - mcdurdin - Add UnicodeData build callbacks + 14 Sep 2006 - mcdurdin - Add new Character Map events + 28 Sep 2006 - mcdurdin - Add check for updates, debug manager + 28 Sep 2006 - mcdurdin - Remove file association check (now done only by installer) + 04 Dec 2006 - mcdurdin - Add CRM button + 04 Dec 2006 - mcdurdin - Add file to project MRU when opened + 04 Dec 2006 - mcdurdin - Support standalone OSK editor for KVK files + 12 Dec 2006 - mcdurdin - Remove Project Settings menu item + 04 Jan 2007 - mcdurdin - Add help support + 04 Jan 2007 - mcdurdin - Add proxy support + 04 Jan 2007 - mcdurdin - Fix scroll bug for page control + 04 Jan 2007 - mcdurdin - Check if branding pack is installed + 15 Jan 2007 - mcdurdin - Disable KPP editor if no branding pack installed + 25 Jan 2007 - mcdurdin - Remove ActiveChild.Setfocus in WMActivate (resets focus to wrong control) + 16 May 2007 - mcdurdin - I806 - File/Close menu item + 30 May 2007 - mcdurdin - I825 - Added proxy username and password + 23 Aug 2007 - mcdurdin - I1010 - Persist untitled project + 23 Aug 2007 - mcdurdin - I1004 - Fix crash when starting up on Vista with Matrox driver? + 12 Oct 2007 - mcdurdin - I944 - Fix crash when FChildWindows is nil when closing Keyman Developer + 19 Nov 2007 - mcdurdin - I1157 - const string parameters + 16 Jan 2009 - mcdurdin - Add font helper menu item + 25 May 2010 - mcdurdin - I2392 - Activation Client integration + 26 Jul 2010 - mcdurdin - I2467 - 8.0 renumber + 17 Dec 2010 - mcdurdin - U2595 - Remove gnugettext + 31 Jan 2011 - mcdurdin - I2655 - No prompt for unsaved untitled project on exit + 03 May 2011 - mcdurdin - I2890 - Record diagnostic data when encountering registry errors + 18 May 2012 - mcdurdin - I3306 - V9.0 - Remove TntControls + Win9x support + 08 Jun 2012 - mcdurdin - I3350 - V9.0 - Register control classes for Keyman Developer to start + 17 Aug 2012 - mcdurdin - I3377 - KM9 - Update code references from 8.0 to 9.0 + 08 Oct 2012 - mcdurdin - I3463 - V9.0 - Look up charmap root path from registry when starting Developer + 24 Oct 2012 - mcdurdin - I3484 - V9.0 - Tidy up look and feel of Keyman Developer skins + 24 Jan 2012 - mcdurdin - I3184 - Missing manifest for tike.exe + 02 Feb 2012 - mcdurdin - I2975 - VistaAltFixUnit causes exception on shutdown + 06 Feb 2012 - mcdurdin - I3082 - Reload text file with specific encoding support + 03 Nov 2012 - mcdurdin - I3502 - V9.0 - Merge of I3082 - Reload text file with specific encoding support + 03 Nov 2012 - mcdurdin - I3501 - V9.0 - Merge of I3184 - Missing manifest for tike.exe + 11 Aug 2013 - mcdurdin - I3887 - V9.0 - Use strict most standard compliant edge compatibility for embedded IE in TIKE + 13 Feb 2014 - mcdurdin - I4045 - V9.0 - Developer should use a TIKE user agent for the layout editor + 27 Feb 2014 - mcdurdin - I4081 - V9.0 - Trace compile errors in subfiles in Keyman Developer + 10 Jun 2014 - mcdurdin - I4257 - V9.0 - Add ethnologue language codes to unicodedata.mdb + 10 Jun 2014 - mcdurdin - I3733 - V9.0 - File format dropdown should be disabled in project view + 10 Oct 2014 - mcdurdin - I4436 - V9.0 - browser emulation control for kmshell breaks downlevel versions of Keyman + 04 Nov 2014 - mcdurdin - I4507 - V9.0 - Move tab close button onto tabs + 30 Apr 2015 - mcdurdin - I4677 - V9.0 - Move Developer help to online only + 04 May 2015 - mcdurdin - I4687 - V9.0 - Split project UI actions into separate classes + 04 May 2015 - mcdurdin - I4691 - V9.0 - Always save project automatically + 27 May 2015 - mcdurdin - I4352 - Developer crashes on exit occasionally [CrashID:tike.exe_9.0.453.0_0058805F_EInvalidOperation] + 27 May 2015 - mcdurdin - I4404 - Developer crashes on exit occasionally [CrashID:tike.exe_9.0.466.0_0058805F_EInvalidOperation] + 27 May 2015 - mcdurdin - I4485 - Developer crashes on exit occasionally [CrashID:tike.exe_9.0.473.0_005880FB_EInvalidOperation] + 23 Jun 2015 - mcdurdin - I4749 - Opening a keyboard externally can open it multiple times + 24 Jul 2015 - mcdurdin - I4796 - Refresh Keyman Developer look and feel for release + 03 Aug 2015 - mcdurdin - I4807 - Add Character Identifier to Keyman Developer + 09 Aug 2015 - mcdurdin - I4841 - Restructure version 9 developer help + 09 Aug 2015 - mcdurdin - I4847 - Code editor does not get focus automatically when file is loaded + 09 Aug 2015 - mcdurdin - I2986 - Ctrl+N, Ctrl+O not working in Developer Project view + 24 Aug 2015 - mcdurdin - I4874 - Keyman Configuration test windows do not always display correctly +*) +unit UfrmMain; // I3306 // I3502 // I3501 // I4796 + +interface + +uses + System.UITypes, + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + ComCtrls, ImgList, Menus, StdCtrls, ExtCtrls, ToolWin, Buttons, + KeymanDeveloperUtils, UfrmMDIChild, UfrmMDIEditor, + MenuImgList, + Keyman.Developer.System.Project.Project, + Keyman.Developer.UI.Project.UfrmProject, CharacterMapSettings, + mrulist, + UfrmUnicodeDataStatus, + CharacterDragObject, + dmActionsMain, UnicodeData, UserMessages, webhelp, + dmActionsKeyboardEditor, Dialogs, UfrmTike, AppEvnts, + DropTarget, + System.ImageList, Winapi.ActiveX, CloseButtonPageControl, JvComponentBase, + JvDockControlForm, JvDockTree, JvDockVIDStyle, JvDockVSNetStyle, + JvAppRegistryStorage, Vcl.ActnMan, Vcl.ActnCtrls; + +type + TfrmKeymanDeveloper = class(TTikeForm, IUnicodeDataUIManager, IDragDrop) + barStatus: TStatusBar; + ilPages: TImageList; + lstImages: TMenuImgList; + ApplicationEvents1: TApplicationEvents; + pages: TCloseButtonPageControl; + dockServer: TJvDockServer; + JvDockVSNetStyle1: TJvDockVSNetStyle; + mnuReloadAsFormat: TPopupMenu; + ANSI1: TMenuItem; + UTF81: TMenuItem; + UTF161: TMenuItem; + MainMenu1: TMainMenu; + barTools: TControlBar; + panDebugToolbar: TPanel; + cbDebugSystemKeyboard: TComboBox; + ToolBar2: TToolBar; + ToolButton20: TToolButton; + ToolButton21: TToolButton; + ToolButton23: TToolButton; + ToolButton22: TToolButton; + ToolButton24: TToolButton; + ToolButton25: TToolButton; + ToolButton26: TToolButton; + ToolButton27: TToolButton; + ToolButton28: TToolButton; + ToolButton29: TToolButton; + panToolbar: TPanel; + ToolBar1: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + ToolButton8: TToolButton; + ToolButton9: TToolButton; + ToolButton10: TToolButton; + ToolButton11: TToolButton; + ToolButton12: TToolButton; + ToolButton19: TToolButton; + ToolButton14: TToolButton; + ToolButton15: TToolButton; + cbTextFileFormat: TComboBox; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + File1: TMenuItem; + Edit1: TMenuItem; + View1: TMenuItem; + Project1: TMenuItem; + Keyboards1: TMenuItem; + Debug2: TMenuItem; + ools1: TMenuItem; + Help1: TMenuItem; + New1: TMenuItem; + Open1: TMenuItem; + Save1: TMenuItem; + SaveAs1: TMenuItem; + Savecopyas1: TMenuItem; + Revert1: TMenuItem; + N5: TMenuItem; + Close1: TMenuItem; + N6: TMenuItem; + PageSetup1: TMenuItem; + PrintPreview1: TMenuItem; + Print1: TMenuItem; + N8: TMenuItem; + Exit1: TMenuItem; + N9: TMenuItem; + mnuFileRecent: TMenuItem; + Undo1: TMenuItem; + Redo1: TMenuItem; + N10: TMenuItem; + Cut1: TMenuItem; + Copy1: TMenuItem; + Paste1: TMenuItem; + N18: TMenuItem; + Delete1: TMenuItem; + N19: TMenuItem; + SelectAll1: TMenuItem; + N20: TMenuItem; + Find1: TMenuItem; + FindNext1: TMenuItem; + Replace1: TMenuItem; + N21: TMenuItem; + ReformatXMLDocument1: TMenuItem; + Project2: TMenuItem; + N22: TMenuItem; + CharacterIdentifier1: TMenuItem; + CharacterMap1: TMenuItem; + Messages1: TMenuItem; + ContextHelp1: TMenuItem; + oolbar1: TMenuItem; + StatusBar1: TMenuItem; + N23: TMenuItem; + ExpandEditor1: TMenuItem; + N24: TMenuItem; + CharacterFont1: TMenuItem; + CodeFont1: TMenuItem; + NewProject1: TMenuItem; + OpenProject1: TMenuItem; + SaveProjectAs1: TMenuItem; + N25: TMenuItem; + mnuProjectsRecent: TMenuItem; + N26: TMenuItem; + N27: TMenuItem; + Addtoproject1: TMenuItem; + CurrentEditorFile1: TMenuItem; + OtherFiles1: TMenuItem; + ProjectSettings1: TMenuItem; + CompileKeyboard1: TMenuItem; + N28: TMenuItem; + N29: TMenuItem; + N30: TMenuItem; + IncludeDebugInformation1: TMenuItem; + estKeyboard1: TMenuItem; + PackageforDistribution1: TMenuItem; + Install1: TMenuItem; + Uninstall1: TMenuItem; + N31: TMenuItem; + Fonts1: TMenuItem; + FontHelper1: TMenuItem; + SetBreakpoint1: TMenuItem; + N32: TMenuItem; + N33: TMenuItem; + N34: TMenuItem; + N35: TMenuItem; + N36: TMenuItem; + StartDebugging1: TMenuItem; + StopDebugger1: TMenuItem; + ANSITestMode1: TMenuItem; + SingleStepMode1: TMenuItem; + StepForward1: TMenuItem; + Run1: TMenuItem; + Pause1: TMenuItem; + View2: TMenuItem; + N37: TMenuItem; + SelectSystemKeyboard1: TMenuItem; + State1: TMenuItem; + Elements1: TMenuItem; + CallStack1: TMenuItem; + Deadkeys1: TMenuItem; + RegressionTesting1: TMenuItem; + N38: TMenuItem; + Font1: TMenuItem; + UseEditorCharacterFont1: TMenuItem; + VirtualKeyIdentifier1: TMenuItem; + N39: TMenuItem; + Customise1: TMenuItem; + Options1: TMenuItem; + Contents1: TMenuItem; + N40: TMenuItem; + CheckforUpdates1: TMenuItem; + N41: TMenuItem; + About1: TMenuItem; + N1: TMenuItem; + Reloadwithencoding1: TMenuItem; + ReloadasANSI1: TMenuItem; + ReloadasUTF81: TMenuItem; + ReloadasUTF161: TMenuItem; + DebugTests1: TMenuItem; + CrashTest1: TMenuItem; + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure mnuFileClick(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure mnuProjectClick(Sender: TObject); + procedure crash1Click(Sender: TObject); + procedure cmdCrashTestClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure cbTextFileFormatItemClick(Sender: TObject); + procedure cbDebugSystemKeyboard_DropDown(Sender: TObject); + procedure cbDebugSystemKeyboardItemClick(Sender: TObject); + procedure mnuDebugI374Click(Sender: TObject); + function ApplicationEvents1Help(Command: Word; Data: NativeInt; + var CallHelp: Boolean): Boolean; + procedure mnuDebugSetWindowSizeForScreenshotsClick(Sender: TObject); + procedure pagesChange(Sender: TObject); + procedure pagesCloseTab(Sender: TObject; Index: Integer); + procedure ools1Click(Sender: TObject); + + private + AppStorage: TJvAppRegistryStorage; + + FCharMapSettings: TCharMapSettings; + FDropTarget: TDropTarget; + FChildWindows: TChildWindowList; + + FProjectMRU: TMRUList; + hInputLangChangeHook: Cardinal; + FUnicodeDataStatusForm: TfrmUnicodeDataStatus; + FInOnHelp: Boolean; + mHHelp: TWebHookHelpSystem; // I4677 + FFirstShow: Boolean; + FIsClosing: Boolean; + FCanClose: Boolean; + + //procedure ChildWindowsChange(Sender: TObject); + procedure WMUserFormShown(var Message: TMessage); message WM_USER_FORMSHOWN; + procedure WMUserLoadRegFiles(var Message: TMessage); message WM_USER_LOADREGFILES; + procedure WMUserInputLangChange(var Message: TMessage); message WM_USER_INPUTLANGCHANGE; + + procedure UpdateFileMRU; + + procedure AppOnActivate(Sender: TObject); + function GetActiveEditor: TfrmTikeEditor; + + function OpenKMNEditor(FFileName: string): TfrmTikeEditor; + function OpenKPSEditor(FFileName: string): TfrmTikeEditor; + procedure SetActiveChild(const Value: TfrmTikeChild); + function OpenKVKEditor(FFileName: string): TfrmTikeEditor; + + procedure ShowChild(Window: TfrmTikeChild); + function GetActiveChild: TfrmTikeChild; + function GetActiveChildIndex: Integer; + procedure SetActiveChildIndex(const Value: Integer); + procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE; + procedure mnuProjectRecentFileClick(Sender: TObject); + procedure mnuFileRecentFileClick(Sender: TObject); + + function GetDropTargetIntf: IDropTarget; + + { IDropTarget } + + procedure Drop(const FileNames: array of string); + function DropAllowed(const FileNames: array of string): Boolean; + procedure InitDock; + procedure LoadDockLayout; + procedure SaveDockLayout; + procedure CEFShutdownComplete(Sender: TObject); + procedure ActivateActiveChild; + + protected + procedure WndProc(var Message: TMessage); override; + procedure CreateWnd; override; + procedure DestroyWnd; override; + + public + procedure AddMRU(FileName: string); + procedure GetTabOrderList(List: TList); override; + + procedure CharMapCancelFocus(Sender: TObject); + procedure CharMapCanInsertCode(Sender: TObject; Control: TWinControl; + var Result: Boolean); + procedure CharMapInsertCode(Sender: TObject; Control: TWinControl; + DragObject: TCharacterDragObject); + + procedure UpdateCaption; + + procedure DefaultDockLayout; + + procedure UDUI_Error(Sender: TUnicodeData; Error: TUnicodeDataError; const Details: WideString); + function UDUI_ShouldStartRebuildOnError(const Msg: WideString): Boolean; + function UDUI_StartRebuild(Callback: TNotifyEvent; AskFirst: Boolean): Boolean; + procedure UDUI_UpdateStatus(const Msg: WideString; Pos: Integer; Max: Integer); + + property ActiveChildIndex: Integer read GetActiveChildIndex write SetActiveChildIndex; + + function BeforeOpenProject: Boolean; + procedure ShowProject; + function ProjectForm: TfrmProject; + procedure ToggleProject; + + procedure ShowDebug(AShow: Boolean); + + property ActiveChild: TfrmTikeChild read GetActiveChild write SetActiveChild; + property ActiveEditor: TfrmTikeEditor read GetActiveEditor; + procedure FocusActiveChild; + + procedure NotifyChildWindowChange(Window: TfrmTikeChild; Action: TListNotification); + procedure UpdateChildCaption(Window: TfrmTikeChild); + + function FindEditorByFileName(AFileName: string): TfrmTikeEditor; + + procedure RefreshOptions; + + function OpenEditor(FFileName: string; frmClass: TfrmTikeEditorClass): TfrmTikeEditor; + function OpenFile(FFileName: string; FCloseNewFile: Boolean): TfrmTikeChild; + + procedure HelpTopic(s: string); overload; + procedure HelpTopic(Sender: TTIKEForm); overload; + + property ChildWindows: TChildWindowList read FChildWindows; + property CharMapSettings: TCharMapSettings read FCharMapSettings; + + property ProjectMRU: TMRUList read FProjectMRU; + + property DropTargetIntf: IDropTarget read GetDropTargetIntf; + end; + +var + frmKeymanDeveloper: TfrmKeymanDeveloper; + +procedure InitClasses; + +implementation + +uses + System.Math, + Winapi.WinInet, + Winapi.Urlmon, + Winapi.UxTheme, + System.Win.ComObj, + Vcl.Themes, + + Keyman.Developer.System.CEFManager, + + CharMapDropTool, + HTMLHelpViewer, + KLog, + keymanapi_TLB, + KeymanVersion, + OnlineConstants, + OnlineUpdateCheck, + GlobalProxySettings, + Keyman.Developer.UI.Project.ProjectFileUI, + Keyman.Developer.UI.Project.ProjectUI, + TextFileFormat, + RedistFiles, + ErrorControlledRegistry, + RegistryKeys, + TikeUnicodeData, + UfrmCharacterMapDock, + UfrmMessages, + UfrmNew, + UfrmAboutTike, + UfrmOSKEditor, + UfrmSelectSystemKeyboard, + UfrmStartup, UfrmOptions, + UfrmKeyTest, UfrmKeymanWizard, + UfrmPackageEditor, UfrmEditor, UfrmBitmapEditor, Keyman.Developer.System.Project.ProjectFile, Keyman.Developer.System.Project.ProjectFileType, + UfrmDebug, KeymanDeveloperOptions, utilfiletypes, + UfrmHelp, dmActionsTextEditor, UfrmDebugStatus, + UfrmCharacterIdentifier, UfrmCharacterMapNew; + +{$R *.DFM} + +{------------------------------------------------------------------------------- + - Form events and messages - + -------------------------------------------------------------------------------} + +function CallWndProc_InputLangChange(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; +begin + if nCode >= 0 then + with PCWPSTRUCT(lParam)^ do + if message = WM_INPUTLANGCHANGE then + PostMessage(frmKeymanDeveloper.Handle, WM_USER_INPUTLANGCHANGE, wParam, lParam); + Result := CallNextHookEx(frmKeymanDeveloper.hInputLangChangeHook, nCode, wParam, lParam); +end; + + +procedure TfrmKeymanDeveloper.FormCreate(Sender: TObject); +var + FActiveProject: string; +begin + inherited; + + FFirstShow := True; + + hInputLangChangeHook := SetWindowsHookEx(WH_CALLWNDPROC, CallWndProc_InputLangChange, 0, GetCurrentThreadId); + + modActionsTextEditor := TmodActionsTextEditor.Create(Self); + modActionsKeyboardEditor := TmodActionsKeyboardEditor.Create(Self); + modActionsMain := TmodActionsMain.Create(Self); + + FProjectMRU := TMRUList.Create('Project'); + FChildWindows := TChildWindowList.Create; + + ShowDebug(False); + + CreateTikeUnicodeData(Self); // I4257 + + //CreateKeymanDeveloperOptions; + FCharMapSettings := TCharMapSettings.Create; + + Application.HelpFile := GetHelpURL; // I4677 // I4841 + mHHelp := TWebHookHelpSystem.Create(Application.HelpFile); // I4677 // I4841 + + FActiveProject := ''; + + with TRegistryErrorControlled.Create do // I2890 + try + RootKey := HKEY_CURRENT_USER; + if OpenKeyReadOnly(SRegKey_IDEOptions_CU) then + begin + if ValueExists(SRegValue_IDEOptToolbarVisible) and (ReadString(SRegValue_IDEOptToolbarVisible) = '0') then + barTools.Visible := False; + if ValueExists(SRegValue_ActiveProject) then FActiveProject := ReadString(SRegValue_ActiveProject); + end; + finally + Free; + end; + + try + kmcom := CoKeyman.Create; + except + on E:Exception do + begin + ShowMessage('Unable to instanatiate Keyman COM object. Keyman Developer tools will run, but will have limited functionality. '+ + 'To resolve this problem, reinstall Keyman.'#13#10#13#10'The error returned was: '+E.Message); + kmcom := nil; + end; + end; + + RemoveOldestTikeEditFonts(False); + RemoveOldestTikeTestFonts(False); + + if (FActiveProject <> '') and not FileExists(FActiveProject) then + FActiveProject := ''; + + LoadGlobalProjectUI(FActiveProject, True); + + InitDock; + + frmMessages := TfrmMessages.Create(Self); + + frmCharacterMapDock := TfrmCharacterMapDock.Create(Self); + + frmCharacterIdentifier := TfrmCharacterIdentifier.Create(Self); // I4807 + frmCharacterIdentifier.OnCancelFocus := CharMapCancelFocus; + + frmHelp := TfrmHelp.Create(Application); + + Application.OnActivate := AppOnActivate; + + LoadDockLayout; + Invalidate; + + UpdateCaption; +end; + +procedure TfrmKeymanDeveloper.CreateWnd; +begin + inherited; + FDropTarget := TDropTarget.Create(WindowHandle, Self); +end; + +procedure TfrmKeymanDeveloper.DestroyWnd; +begin + FreeAndNil(FDropTarget); + inherited; +end; + +procedure TfrmKeymanDeveloper.CharMapInsertCode(Sender: TObject; Control: TWinControl; DragObject: TCharacterDragObject); +begin + GetCharMapDropTool.InsertToControl(Control, DragObject); +end; + +procedure TfrmKeymanDeveloper.CharMapCanInsertCode(Sender: TObject; Control: TWinControl; var Result: Boolean); +begin + Result := Assigned(Control) and (GetCharMapDropTool.Controls.IndexOfControl(Control) >= 0); +end; + +procedure TfrmKeymanDeveloper.CharMapCancelFocus(Sender: TObject); +begin + if Assigned(ActiveChild) then ActiveChild.SetFocus; +end; + +procedure TfrmKeymanDeveloper.FormClose(Sender: TObject; var Action: TCloseAction); +var + i: Integer; +begin + for i := FChildWindows.Count - 1 downto 0 do + begin + FChildWindows[i].Visible := False; + FChildWindows[i].Parent := nil; + FChildWindows[i].Release; // I2595, probably not necessary + end; + + if Assigned(FGlobalProject) then + with TRegistryErrorControlled.Create do // I2890 + try + if FGlobalProject.Untitled + then FGlobalProject.PersistUntitledProject // I1010: Persist untitled project + else FGlobalProject.Save; // I4691 + + RootKey := HKEY_CURRENT_USER; + if OpenKey(SRegKey_IDEOptions_CU, True) then + begin + WriteString(SRegValue_ActiveProject, FGlobalProject.FileName); + end; + finally + Free; + end; + + Action := caFree; + + FreeAndNil(frmCharacterMapDock); + FreeAndNil(frmCharacterIdentifier); // I4807 + FreeAndNil(frmMessages); + FreeAndNil(frmHelp); +// FreeAndNil(frmDebugStatus); +end; + +procedure TfrmKeymanDeveloper.FormCloseQuery(Sender: TObject; + var CanClose: Boolean); +var + i: Integer; +begin +// OutputDebugString(PChar('TfrmKeymanDeveloper.FormCloseQuery: FIsClosing='+BoolToStr(FIsClosing)+' FCanClose='+BoolToStr(FCanClose))); + if not FIsClosing then + begin + // I944 - Fix crash when FChildWindows is nil on closing Keyman Developer + if Assigned(FChildWindows) then + begin + for i := 0 to FChildWindows.Count - 1 do + if not FChildWindows[i].CloseQuery then + begin + CanClose := False; + Exit; + end; + end; + + FIsClosing := True; + SaveDockLayout; + + CanClose := FInitializeCEF.StartShutdown(CEFShutdownComplete); + // TODO: complete exit after StartClose is successful + end + else + CanClose := FCanClose; +end; + +procedure TfrmKeymanDeveloper.CEFShutdownComplete(Sender: TObject); +begin +// OutputDebugString(PChar('TfrmKeymanDeveloper.CEFShutdownComplete')); + FCanClose := True; + Close; +end; + +procedure TfrmKeymanDeveloper.FormDestroy(Sender: TObject); +begin +// OutputDebugString(PChar('TfrmKeymanDeveloper.FormDestroy')); + UnhookWindowsHookEx(hInputLangChangeHook); + + FreeAndNil(FCharMapSettings); + Application.OnActivate := nil; + + FreeGlobalProjectUI; + FreeAndNil(FChildWindows); + FreeAndNil(FProjectMRU); + + ClearSystemKeyboardList(cbDebugSystemKeyboard.Items); + + FreeAndNil(mHHelp); // I4677 + + FreeUnicodeData; + + FreeAndNil(AppStorage); + + kmcom := nil; +end; + +procedure TfrmKeymanDeveloper.FormShow(Sender: TObject); +begin + if FFirstShow then PostMessage(Handle, WM_USER_FORMSHOWN, 0, 0); + FFirstShow := False; +end; + +procedure TfrmKeymanDeveloper.WMActivate(var Message: TWMActivate); +begin + try // I4352 // I4404 // I4485 + inherited; + except + on E:EInvalidOperation do + ; // This happens on shutdown sometimes due to + // annoying sequence of operations in Delphi's focus management. + // It's easier to do this, and relatively side-effect-free, so + // happy to live with this... I4352, I4404, I4485 + end; +end; + +procedure TfrmKeymanDeveloper.WMUserFormShown(var Message: TMessage); +var + i: Integer; +begin + try + if ParamCount = 0 then + begin + ShowProject; + ShowStartupModal(Self); + end + else + begin + for i := 1 to ParamCount do + if FileExists(ParamStr(i)) then + OpenFile(ParamStr(i), False); + ShowStartupModal(Self); + end; + except + CloseStartup; + raise; + end; + + if True then //FKeymanDeveloperOptions.AutoCheckForUpdates then + begin + with TOnlineUpdateCheck.Create(SRegKey_KeymanDeveloper_CU, OnlineProductID_KeymanDeveloper_100, False, True, True, GetProxySettings.Server, GetProxySettings.Port, GetProxySettings.Username, GetProxySettings.Password) do // I3377 + Run; + end; +end; + +procedure TfrmKeymanDeveloper.WMUserInputLangChange(var Message: TMessage); +var + i: Integer; +begin + for i := 0 to FChildWindows.Count - 1 do + PostMessage(FChildWindows[i].Handle, WM_USER_INPUTLANGCHANGE, Message.wParam, Message.LParam); +end; + +procedure TfrmKeymanDeveloper.WMUserLoadRegFiles(var Message: TMessage); +var + i: Integer; + s: TStringList; + t: string; +begin + s := TStringList.Create; + with TRegistryErrorControlled.Create do // I2890 + try + RootKey := HKEY_CURRENT_USER; + if not OpenKey(SRegKey_IDEFiles_CU, True) then // I2890 + RaiseLastRegistryError; + + GetValueNames(s); + for i := 0 to s.Count - 1 do + begin + t := ReadString(s[i]); + DeleteValue(s[i]); + OpenFile(t, False); + end; + finally + Free; + end; +end; + +const + SPI_GETKEYBOARDCUES = $100A; +var + FAlwaysDrawUnderline: Boolean = False; + FWndProcInit: Boolean = False; + +procedure TfrmKeymanDeveloper.WndProc(var Message: TMessage); +begin + case Message.Msg of + WM_DRAWITEM: + begin + if not FWndProcInit then + begin + SystemParametersInfo(SPI_GETKEYBOARDCUES, 0, @FAlwaysDrawUnderline, 0); + FWndProcInit := True; + end; + + if FAlwaysDrawUnderline then + with PDrawItemStruct(Message.lParam)^ do + if (CtlType = ODT_MENU) and Assigned(Menu) then + itemState := itemState and $FEFF; + end; + end; + inherited; +end; + +function TfrmKeymanDeveloper.ApplicationEvents1Help(Command: Word; + Data: NativeInt; var CallHelp: Boolean): Boolean; // I4677 +var + s: string; + frm: TCustomForm; +begin + CallHelp := False; + if Command = HELP_COMMAND then // I4677 + begin + if not FInOnHelp then + begin + FInOnHelp := True; + try + s := PChar(Data); + if s = '' then + begin + frm := GetParentForm(Screen.ActiveControl, False); + if frm is TTikeForm then + s := (frm as TTikeForm).HelpTopic; + end; + if s <> '' then + mHHelp.HelpTopic(s); + finally + FInOnHelp := False; + end; + end + else + mHHelp.HelpTopic(s); + end; + Result := True; +end; + +procedure TfrmKeymanDeveloper.AppOnActivate(Sender: TObject); +var + i: Integer; +begin + FWndProcInit := False; + for i := 0 to FChildWindows.Count - 1 do + if FChildWindows[i] is TfrmTikeEditor then + with FChildWindows[i] as TfrmTikeEditor do + CheckForReload; + + try + FocusActiveChild; // I4847 // I2986 + except + on E:EInvalidOperation do ; // We don't want to crash if focus fails, e.g. on shutdown + end; +end; + +{------------------------------------------------------------------------------- + - File menu - + -------------------------------------------------------------------------------} + +procedure TfrmKeymanDeveloper.mnuDebugI374Click(Sender: TObject); +begin + if Assigned(ActiveEditor) + then frmMessages.Add(ActiveEditor.FileName, '1: bug with multi-line messages'#13#10'Double-click on the second line of this message') + else frmMessages.Add('test.txt', '1: bug with multi-line messages'#13#10'Double-click on the second line of this message'); +end; + +procedure TfrmKeymanDeveloper.mnuDebugSetWindowSizeForScreenshotsClick(Sender: TObject); +begin + Width := 960; + Height := 600; +end; + +procedure TfrmKeymanDeveloper.mnuFileClick(Sender: TObject); +begin + UpdateFileMRU; + mnuFileRecent.Enabled := mnuFileRecent.Count > 0; +end; + +{------------------------------------------------------------------------------- + - View menu - + -------------------------------------------------------------------------------} + +procedure TfrmKeymanDeveloper.ShowChild(Window: TfrmTikeChild); +var + i, j: Integer; +begin + for i := 0 to FChildWindows.Count - 1 do + if FChildWindows[i] = Window then + begin + //Window.SetFocus; + for j := 0 to pages.PageCount - 1 do + if pages.Pages[j].Tag = Integer(Window) then + begin + pages.ActivePageIndex := j; + Break; + end; + end; + //else + //FChildWindows[i].Visible := False; +end; + +procedure TfrmKeymanDeveloper.ShowDebug(AShow: Boolean); +begin + if ActiveEditor is TfrmKeymanWizard then + begin + (ActiveEditor as TfrmKeymanWizard).panDebugHost.Visible := AShow; + if AShow then + // Move the form below the splitter + (ActiveEditor as TfrmKeymanWizard).panDebugHost.Top := ActiveEditor.ClientHeight; + end; +// if Assigned(frmDebugStatus) then frmDebugStatus.Visible := AShow; + panDebugToolbar.Visible := AShow; +end; + +procedure TfrmKeymanDeveloper.ShowProject; +begin + if ProjectForm = nil + then ShowChild(TfrmProject.Create(Self)) + else ShowChild(ProjectForm); + ProjectForm.SetGlobalProject; +end; + +procedure TfrmKeymanDeveloper.ToggleProject; +var + frmProject: TfrmProject; +begin + frmProject := ProjectForm; + if Assigned(frmProject) and (ActiveChild = frmProject) + then PostMessage(frmProject.Handle, WM_CLOSE, 0, 0) + else ShowProject; +end; + +procedure TfrmKeymanDeveloper.InitDock; +begin + AppStorage := TJvAppRegistryStorage.Create(self); AppStorage.Path := SRegKey_IDEDock_CU; AppStorage.AutoFlush := True; AppStorage.AutoReload := True; end; - -procedure TfrmKeymanDeveloper.SaveDockLayout; -begin - //save - AppStorage.BeginUpdate; + +procedure TfrmKeymanDeveloper.SaveDockLayout; +begin + //save + AppStorage.BeginUpdate; try SaveDockTreeToAppStorage(AppStorage); { SaveDockTreeToAppStorage clears the storage, so we save the forms after the @@ -912,58 +912,58 @@ begin finally AppStorage.EndUpdate; end; -end; - -procedure TfrmKeymanDeveloper.DefaultDockLayout; -begin - // Undock the forms first - frmCharacterMapDock.ManualFloat(Rect(0, 0, Screen.Width div 6, Screen.Height div 2)); - frmCharacterIdentifier.ManualFloat(Rect(0, 0, Screen.Width div 7, Screen.Height div 3)); - frmHelp.ManualFloat(Rect(0, 0, Screen.Width div 6, Screen.Height div 6)); - frmMessages.ManualFloat(Rect(0, 0, Screen.Width * 2 div 3, Screen.Height div 6)); - - // Character Map on Right, Top half - frmCharacterMapDock.ManualDock(dockServer.RightDockPanel); - - // Character Identifier on Left - frmCharacterIdentifier.ManualDock(dockServer.LeftDockPanel); - - // Help on Right, Bottom half - frmHelp.ManualDock(dockServer.RightDockPanel, dockServer.RightDockPanel.Controls[0], alBottom); - - // Messages across bottom - frmMessages.ManualDock(dockServer.BottomDockPanel); - - frmCharacterMapDock.Show; - frmCharacterIdentifier.Show; - frmHelp.Show; - frmMessages.Show; - - frmHelp.Height := frmHelp.TBDockHeight; - - dockServer.RightDockPanel.ShowDockPanel(True, frmCharacterMapDock); - dockServer.RightDockPanel.Width := Screen.Width div 6; - - dockServer.LeftDockPanel.ShowDockPanel(True, frmCharacterIdentifier); - dockServer.LeftDockPanel.Width := Screen.Width div 7; - - dockServer.BottomDockPanel.ShowDockPanel(True, frmMessages); - dockServer.BottomDockPanel.Height := Screen.Height div 6; - - // In future, we could consider resizing the Help window down, but - // this appears non-trivial to accomplish with JvDocking. Not important - // enough to chase right now. -end; - -procedure TfrmKeymanDeveloper.LoadDockLayout; -begin - DefaultDockLayout; - - with TRegistryErrorControlled.Create do - try - if OpenKeyReadOnly(SRegKey_IDEDock_CU) then - begin - BeginDockLoading; +end; + +procedure TfrmKeymanDeveloper.DefaultDockLayout; +begin + // Undock the forms first + frmCharacterMapDock.ManualFloat(Rect(0, 0, Screen.Width div 6, Screen.Height div 2)); + frmCharacterIdentifier.ManualFloat(Rect(0, 0, Screen.Width div 7, Screen.Height div 3)); + frmHelp.ManualFloat(Rect(0, 0, Screen.Width div 6, Screen.Height div 6)); + frmMessages.ManualFloat(Rect(0, 0, Screen.Width * 2 div 3, Screen.Height div 6)); + + // Character Map on Right, Top half + frmCharacterMapDock.ManualDock(dockServer.RightDockPanel); + + // Character Identifier on Left + frmCharacterIdentifier.ManualDock(dockServer.LeftDockPanel); + + // Help on Right, Bottom half + frmHelp.ManualDock(dockServer.RightDockPanel, dockServer.RightDockPanel.Controls[0], alBottom); + + // Messages across bottom + frmMessages.ManualDock(dockServer.BottomDockPanel); + + frmCharacterMapDock.Show; + frmCharacterIdentifier.Show; + frmHelp.Show; + frmMessages.Show; + + frmHelp.Height := frmHelp.TBDockHeight; + + dockServer.RightDockPanel.ShowDockPanel(True, frmCharacterMapDock); + dockServer.RightDockPanel.Width := Screen.Width div 6; + + dockServer.LeftDockPanel.ShowDockPanel(True, frmCharacterIdentifier); + dockServer.LeftDockPanel.Width := Screen.Width div 7; + + dockServer.BottomDockPanel.ShowDockPanel(True, frmMessages); + dockServer.BottomDockPanel.Height := Screen.Height div 6; + + // In future, we could consider resizing the Help window down, but + // this appears non-trivial to accomplish with JvDocking. Not important + // enough to chase right now. +end; + +procedure TfrmKeymanDeveloper.LoadDockLayout; +begin + DefaultDockLayout; + + with TRegistryErrorControlled.Create do + try + if OpenKeyReadOnly(SRegKey_IDEDock_CU) then + begin + BeginDockLoading; try AppStorage.BeginUpdate; try @@ -974,525 +974,525 @@ begin finally EndDockLoading; end; - end; - finally - Free; - end; -end; + end; + finally + Free; + end; +end; + +procedure TfrmKeymanDeveloper.cbDebugSystemKeyboardItemClick(Sender: TObject); +begin + if cbDebugSystemKeyboard.ItemIndex < 0 then + cbDebugSystemKeyboard.ItemIndex := 0; + modActionsKeyboardEditor.SelectDebugSystemKeyboard(cbDebugSystemKeyboard.Items.Objects[cbDebugSystemKeyboard.ItemIndex] as TSystemKeyboardItem); + //actDebugSystemKeyboard +end; + +procedure TfrmKeymanDeveloper.cbDebugSystemKeyboard_DropDown(Sender: TObject); +begin +{ if SelectSystemKeyboard(frmKeymanDeveloper, FLoadedSystemKeyboard, FSystemKeyboardName) then + UpdateSystemKeyboardCaption; + if FDebugVisible then + memo.SetFocus; +} + if cbDebugSystemKeyboard.Items.Count < 2 then + begin + //modActionsKeyboardEditor.SelectedSystemKeyboard; + FillSystemKeyboardList(cbDebugSystemKeyboard.Items); + end; + //modActionsKeyboardEditor.SetupDebugSystemKeyboard(cbDebugSystemKeyboard.Strings); +end; + +procedure TfrmKeymanDeveloper.cmdCrashTestClick(Sender: TObject); +var + p: PChar; + c: Char; +begin + p := nil; + c := p^; + if c <> #0 then ShowMessage('Why didn''t it crash?'); +end; + +{------------------------------------------------------------------------------- + - Utility functions - + -------------------------------------------------------------------------------} + +function TfrmKeymanDeveloper.GetActiveChild: TfrmTikeChild; +var + i: Integer; +begin + i := ActiveChildIndex; + if (i < 0) or not Assigned(FChildWindows) then Result := nil + else Result := FChildWindows[i]; +end; + +function TfrmKeymanDeveloper.GetActiveChildIndex: Integer; +begin + if Assigned(pages) // I1004: Crash when starting up on Vista with Matrox.PowerDesk.Hooks.dll (assumed) + then Result := pages.ActivePageIndex + else Result := -1; +end; + +function TfrmKeymanDeveloper.GetActiveEditor: TfrmTikeEditor; +begin + if Assigned(ActiveChild) and (ActiveChild is TfrmTikeEditor) + then Result := ActiveChild as TfrmTikeEditor + else Result := nil; +end; + +function TfrmKeymanDeveloper.GetDropTargetIntf: IDropTarget; +begin + if Assigned(FDropTarget) + then Result := FDropTarget as IDropTarget + else Result := nil; +end; + +procedure TfrmKeymanDeveloper.GetTabOrderList(List: TList); + function DoForm(Form: TForm): Boolean; + begin + if Assigned(Form) and Form.ContainsControl(Screen.ActiveControl) then + begin + Form.GetTabOrderList(List); + Result := True; + end + else + Result := False; + end; +begin + if not DoForm(ActiveChild) and + not DoForm(frmMessages) and + not DoForm(frmHelp) and + not DoForm(frmCharacterMapDock) then + DoForm(frmCharacterIdentifier); // I4807 +end; + +procedure TfrmKeymanDeveloper.HelpTopic(Sender: TTIKEForm); +begin + HelpTopic(Sender.HelpTopic); +end; + +procedure TfrmKeymanDeveloper.ActivateActiveChild; +begin + if Assigned(ActiveChild) then + SendMessage(ActiveChild.Handle, CM_ACTIVATE, 0, 0); +end; + +procedure TfrmKeymanDeveloper.pagesChange(Sender: TObject); +begin + inherited; + //CharacterMapFormChanged(ActiveChild); + ActivateActiveChild; + + cbTextFileFormat.Enabled := Assigned(ActiveChild) and (ActiveChild is TfrmTikeEditor); // I3733 + FocusActiveChild; +end; + +procedure TfrmKeymanDeveloper.pagesCloseTab(Sender: TObject; Index: Integer); +begin + PostMessage(TfrmTikeChild(pages.Pages[Index].Tag).Handle, WM_CLOSE, 0, 0); +end; + +function TfrmKeymanDeveloper.OpenFile(FFileName: string; FCloseNewFile: Boolean): TfrmTikeChild; +var + ext: string; +begin + Result := nil; + Screen.Cursor := crHourglass; + try + try + ext := LowerCase(ExtractFileExt(FFileName)); + + if ext = Ext_ProjectSource then + begin + if BeforeOpenProject then + modActionsMain.OpenProject(FFileName); + end + else + begin + if FCloseNewFile then + if Assigned(ActiveEditor) then + if not ActiveEditor.Modified and ActiveEditor.Untitled then + ActiveEditor.Free; + + if ext = '.kmn' then Result := OpenKMNEditor(FFileName) + else if ext = '.kps' then Result := OpenKPSEditor(FFileName) + else if ext = '.kvk' then Result := OpenKVKEditor(FFileName) + else if ext = '.bmp' then Result := OpenEditor(FFileName, TfrmBitmapEditor) + else Result := OpenEditor(FFileName, TfrmEditor); + end; + + if Assigned(Result) then + AddMRU(FFileName); + + except + on E:EFOpenError do + ShowMessage('Unable to open the file '''+FFileName+'''.'); + end; + + pagesChange(pages); + finally + Screen.Cursor := crDefault; + end; +end; + +function TfrmKeymanDeveloper.OpenKMNEditor(FFileName: string): TfrmTikeEditor; +begin + Result := OpenEditor(FFileName, TfrmKeymanWizard); + //else Result := OpenEditor(FFileName, TfrmEditor); +end; + +function TfrmKeymanDeveloper.OpenKPSEditor(FFileName: string): TfrmTikeEditor; +begin + Result := OpenEditor(FFileName, TfrmPackageEditor); +end; + +function TfrmKeymanDeveloper.OpenKVKEditor(FFileName: string): TfrmTikeEditor; +begin + Result := OpenEditor(FFileName, TfrmOSKEditor); +end; + +function TfrmKeymanDeveloper.BeforeOpenProject: Boolean; +var + i: Integer; +begin + for i := 0 to FChildWindows.Count - 1 do + if not FChildWindows[i].CloseQuery then + Exit(False); + + Result := True; +end; + +function TfrmKeymanDeveloper.OpenEditor(FFileName: string; frmClass: TfrmTikeEditorClass): TfrmTikeEditor; +var + i, n: Integer; +begin + for i := 0 to FChildWindows.Count - 1 do + if FChildWindows[i] is TfrmTikeEditor then + with FChildWindows[i] as TfrmTikeEditor do + if SameFileName(FileName, FFileName) then // I4749 + begin + Result := Self.FChildWindows[i] as TfrmTikeEditor; + ShowChild(Result); + Exit; + end; + + LockWindowUpdate(pages.Handle); + Result := frmClass.Create(Self); + + n := FGlobalProject.Files.IndexOfFileName(FFileName); + if n >= 0 then + Result.ProjectFile := FGlobalProject.Files[n]; + + (Result as frmClass).OpenFile(FFileName); + LockWindowUpdate(0); +end; + +procedure TfrmKeymanDeveloper.HelpTopic(s: string); +begin + Application.HelpJump(s); +end; + +{------------------------------------------------------------------------------- + - Some functions - + -------------------------------------------------------------------------------} + +function TfrmKeymanDeveloper.FindEditorByFileName(AFileName: string): TfrmTikeEditor; +var + i: Integer; +begin + for i := 0 to FChildWindows.Count - 1 do + begin + if (FChildWindows[i] is TfrmTikeEditor) then // I4081 + begin + if ((FChildWindows[i] as TfrmTikeEditor).FileName = AFileName) or + (FChildWindows[i] as TfrmTikeEditor).HasSubFilename(AFilename) then + begin + Result := FChildWindows[i] as TfrmTikeEditor; + Exit; + end; + end; + end; + + Result := nil; +end; + +{------------------------------------------------------------------------------- + - MRU File List - + -------------------------------------------------------------------------------} + +procedure TfrmKeymanDeveloper.AddMRU(FileName: string); +begin + // Add the filename to the top of the MRU. + + if FileName = '' then Exit; + + if LowerCase(ExtractFileExt(FileName)) <> '.kpj' then + // Don't add project files to project MRU + FGlobalProject.MRU.Add(FileName); +end; + +procedure TfrmKeymanDeveloper.UpdateFileMRU; +var + i: Integer; + m: TMenuItem; +begin + for i := 0 to mnuFileRecent.Count - 1 do + mnuFileRecent.Items[0].Free; + + for i := 0 to FGlobalProject.MRU.FileCount - 1 do + begin + m := TMenuItem.Create(Self); + m.Caption := '&'+IntToStr(i+1)+' '+FGlobalProject.MRU.EllipsisFile(i); + m.Hint := FGlobalProject.MRU.Files[i]; + m.OnClick := mnuFileRecentFileClick; + mnuFileRecent.Add(m); + end; +end; + +procedure TfrmKeymanDeveloper.mnuFileRecentFileClick(Sender: TObject); +begin + with Sender as TMenuItem do + OpenFile(Hint, True); +end; + +{------------------------------------------------------------------------------- + - Drag and Drop functionality - + -------------------------------------------------------------------------------} + +procedure TfrmKeymanDeveloper.Drop(const FileNames: array of string); +var + i: Integer; +begin + for i := Low(Filenames) to High(Filenames) do + OpenFile(Filenames[i], False); +end; + +function TfrmKeymanDeveloper.DropAllowed( + const FileNames: array of string): Boolean; +begin + Result := True; +end; + +{------------------------------------------------------------------------------- + - TIKE projects - + -------------------------------------------------------------------------------} + +procedure TfrmKeymanDeveloper.NotifyChildWindowChange(Window: TfrmTikeChild; Action: TListNotification); +var + item: TTabSheet; + i: Integer; +begin + case Action of + lnAdded: + begin + item := TTabSheet.Create(Self); + item.Caption := Window.Caption+' '; //enough space for [x] close button + if Window is TfrmTikeEditor then + begin + item.Hint := (Window as TfrmTikeEditor).FileName; + end; + item.Tag := Integer(Window); + item.PageControl := pages; + Window.Parent := item; + end; + lnDeleted,lnExtracted: + begin + for i := 0 to pages.PageCount - 1 do + if pages.Pages[i].Tag = Integer(Window) then + begin + //CharacterMapFormChanged(nil); + Window.Parent := nil; + pages.Pages[i].Free; + ActivateActiveChild; + FocusActiveChild; + + if FIsClosing then + if pages.PageCount = 0 then + begin + Close; + end; + Exit; + end; + end; + end; +end; + +procedure TfrmKeymanDeveloper.ools1Click(Sender: TObject); +begin + inherited; + DebugTests1.Visible := GetKeyState(VK_SHIFT) < 0; +end; + +procedure TfrmKeymanDeveloper.mnuProjectClick(Sender: TObject); +var + i: Integer; + m: TMenuItem; +begin + for i := 0 to mnuProjectsRecent.Count - 1 do + mnuProjectsRecent.Items[0].Free; + + for i := 0 to FProjectMRU.FileCount - 1 do + begin + m := TMenuItem.Create(Self); + m.Caption := '&'+IntToStr(i+1)+' '+FProjectMRU.EllipsisFile(i); + m.Hint := FProjectMRU.Files[i]; + m.OnClick := mnuProjectRecentFileClick; + mnuProjectsRecent.Add(m); + end; + + mnuProjectsRecent.Enabled := FProjectMRU.FileCount > 0; +end; + +procedure TfrmKeymanDeveloper.mnuProjectRecentFileClick(Sender: TObject); +begin + with Sender as TMenuItem do + begin + if BeforeOpenProject then + modActionsMain.OpenProject(Hint); + end; +end; + +procedure TfrmKeymanDeveloper.cbTextFileFormatItemClick(Sender: TObject); +begin + modActionsMain.actToolsFileFormat.Execute; +end; + +procedure TfrmKeymanDeveloper.crash1Click(Sender: TObject); +var + p: PChar; +begin + p := nil; + p^ := #0; +end; + +procedure TfrmKeymanDeveloper.SetActiveChild(const Value: TfrmTikeChild); +begin + ShowChild(Value); +end; + +procedure TfrmKeymanDeveloper.SetActiveChildIndex(const Value: Integer); +begin + ShowChild(ChildWindows[Value]); +end; + +procedure TfrmKeymanDeveloper.FocusActiveChild; +var + PrevFocus: TfrmTikeChild; +begin + PrevFocus := ActiveChild; + if Assigned(PrevFocus) then + begin + ShowChild(PrevFocus); + if PrevFocus.Visible then + PrevFocus.SetFocus; + end; +end; + +procedure TfrmKeymanDeveloper.UDUI_Error(Sender: TUnicodeData; + Error: TUnicodeDataError; const Details: WideString); +begin + case Error of + udeCouldNotDeleteDatabaseForRebuild: ShowMessage('Could not delete the character map database prior to rebuild. The error was: '+Details); + udeCouldNotCreateDatabase: ShowMessage('Could not create the character map database. The error was: '+Details); + end; +end; + +function TfrmKeymanDeveloper.UDUI_ShouldStartRebuildOnError( + const Msg: WideString): Boolean; +begin + Result := MessageDlg('The Unicode character database did not load successfully ('+Msg+'). Rebuild it now?', mtConfirmation, mbOkCancel, 0) = mrOk; +end; + +function TfrmKeymanDeveloper.UDUI_StartRebuild(Callback: TNotifyEvent; AskFirst: Boolean): Boolean; +begin + Result := False; + + if AskFirst and (MessageDlg('The Character Map has a database of characters that needs to be built before it can be used. Build it now?', + mtConfirmation, mbOkCancel, 0) = mrCancel) then Exit; + FUnicodeDataStatusForm := TfrmUnicodeDataStatus.Create(Self); + try + FUnicodeDataStatusForm.Callback := Callback; + Result := FUnicodeDataStatusForm.ShowModal = mrOk; + finally + FreeAndNil(FUnicodeDataStatusForm); + end; +end; + +procedure TfrmKeymanDeveloper.UDUI_UpdateStatus(const Msg: WideString; Pos, + Max: Integer); +begin + if Assigned(FUnicodeDataStatusForm) then + FUnicodeDataStatusForm.UpdateStatus(Msg, Pos, Max); +end; + +procedure TfrmKeymanDeveloper.UpdateCaption; +begin + if FGlobalProject.Untitled + then Caption := '(Untitled project) - Keyman Developer' + else Caption := ChangeFileExt(ExtractFileName(FGlobalProject.FileName), '') + ' - Keyman Developer'; + + Application.Title := Caption; +end; + +procedure TfrmKeymanDeveloper.UpdateChildCaption(Window: TfrmTikeChild); +var + i: Integer; +begin + for i := 0 to pages.PageCount - 1 do + if pages.Pages[i].Tag = Integer(Window) then + with pages.Pages[i] do + begin + Caption := Window.Caption+' '; //enough space for [x] close button; + Hint := Window.Hint; + Exit; + end; +end; + +procedure TfrmKeymanDeveloper.RefreshOptions; +var + i: Integer; +begin + Screen.Cursor := crHourglass; + try + FUnicodeData.RefreshOptions; + for i := 0 to Self.FChildWindows.Count - 1 do + if Self.FChildWindows[i] is TfrmEditor then (Self.FChildWindows[i] as TfrmEditor).RefreshOptions; + if ProjectForm <> nil then ProjectForm.RefreshOptions; + if Assigned(frmMessages) then frmMessages.RefreshOptions; + if Assigned(frmCharacterMapDock) then frmCharacterMapDock.RefreshOptions; // Recalculates grid after unicode data refresh + finally + Screen.Cursor := crDefault; + end; +end; + +function TfrmKeymanDeveloper.ProjectForm: TfrmProject; +var + i: Integer; +begin + for i := 0 to FChildWindows.Count - 1 do + if (FChildWindows[i] is TfrmProject) then + begin + Result := FChildWindows[i] as TfrmProject; + Exit; + end; + + Result := nil; +end; + +procedure InitClasses; // I3350 +const + CUserAgent: AnsiString = 'Mozilla/5.0 (compatible; MSIE 11.0; Windows NT 6.1; WOW64; Trident/5.0; TIKE/'+SKeymanVersion+')'; // I4045 +begin + with TRegistryErrorControlled.Create do // I3887 + try + if OpenKey(SRegKey_InternetExplorerFeatureBrowserEmulation_CU, True) then // I4436 + WriteInteger('tike.exe', 9000); // I4874 + finally + Free; + end; + + OleCheck(UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PAnsiChar(CUserAgent), Length(CUserAgent), 0)); // I4045 +end; + +end. -procedure TfrmKeymanDeveloper.cbDebugSystemKeyboardItemClick(Sender: TObject); -begin - if cbDebugSystemKeyboard.ItemIndex < 0 then - cbDebugSystemKeyboard.ItemIndex := 0; - modActionsKeyboardEditor.SelectDebugSystemKeyboard(cbDebugSystemKeyboard.Items.Objects[cbDebugSystemKeyboard.ItemIndex] as TSystemKeyboardItem); - //actDebugSystemKeyboard -end; - -procedure TfrmKeymanDeveloper.cbDebugSystemKeyboard_DropDown(Sender: TObject); -begin -{ if SelectSystemKeyboard(frmKeymanDeveloper, FLoadedSystemKeyboard, FSystemKeyboardName) then - UpdateSystemKeyboardCaption; - if FDebugVisible then - memo.SetFocus; -} - if cbDebugSystemKeyboard.Items.Count < 2 then - begin - //modActionsKeyboardEditor.SelectedSystemKeyboard; - FillSystemKeyboardList(cbDebugSystemKeyboard.Items); - end; - //modActionsKeyboardEditor.SetupDebugSystemKeyboard(cbDebugSystemKeyboard.Strings); -end; - -procedure TfrmKeymanDeveloper.cmdCrashTestClick(Sender: TObject); -var - p: PChar; - c: Char; -begin - p := nil; - c := p^; - if c <> #0 then ShowMessage('Why didn''t it crash?'); -end; - -{------------------------------------------------------------------------------- - - Utility functions - - -------------------------------------------------------------------------------} - -function TfrmKeymanDeveloper.GetActiveChild: TfrmTikeChild; -var - i: Integer; -begin - i := ActiveChildIndex; - if (i < 0) or not Assigned(FChildWindows) then Result := nil - else Result := FChildWindows[i]; -end; - -function TfrmKeymanDeveloper.GetActiveChildIndex: Integer; -begin - if Assigned(pages) // I1004: Crash when starting up on Vista with Matrox.PowerDesk.Hooks.dll (assumed) - then Result := pages.ActivePageIndex - else Result := -1; -end; - -function TfrmKeymanDeveloper.GetActiveEditor: TfrmTikeEditor; -begin - if Assigned(ActiveChild) and (ActiveChild is TfrmTikeEditor) - then Result := ActiveChild as TfrmTikeEditor - else Result := nil; -end; - -function TfrmKeymanDeveloper.GetDropTargetIntf: IDropTarget; -begin - if Assigned(FDropTarget) - then Result := FDropTarget as IDropTarget - else Result := nil; -end; - -procedure TfrmKeymanDeveloper.GetTabOrderList(List: TList); - function DoForm(Form: TForm): Boolean; - begin - if Assigned(Form) and Form.ContainsControl(Screen.ActiveControl) then - begin - Form.GetTabOrderList(List); - Result := True; - end - else - Result := False; - end; -begin - if not DoForm(ActiveChild) and - not DoForm(frmMessages) and - not DoForm(frmHelp) and - not DoForm(frmCharacterMapDock) then - DoForm(frmCharacterIdentifier); // I4807 -end; - -procedure TfrmKeymanDeveloper.HelpTopic(Sender: TTIKEForm); -begin - HelpTopic(Sender.HelpTopic); -end; - -procedure TfrmKeymanDeveloper.ActivateActiveChild; -begin - if Assigned(ActiveChild) then - SendMessage(ActiveChild.Handle, CM_ACTIVATE, 0, 0); -end; - -procedure TfrmKeymanDeveloper.pagesChange(Sender: TObject); -begin - inherited; - //CharacterMapFormChanged(ActiveChild); - ActivateActiveChild; - - cbTextFileFormat.Enabled := Assigned(ActiveChild) and (ActiveChild is TfrmTikeEditor); // I3733 - FocusActiveChild; -end; - -procedure TfrmKeymanDeveloper.pagesCloseTab(Sender: TObject; Index: Integer); -begin - PostMessage(TfrmTikeChild(pages.Pages[Index].Tag).Handle, WM_CLOSE, 0, 0); -end; - -function TfrmKeymanDeveloper.OpenFile(FFileName: string; FCloseNewFile: Boolean): TfrmTikeChild; -var - ext: string; -begin - Result := nil; - Screen.Cursor := crHourglass; - try - try - ext := LowerCase(ExtractFileExt(FFileName)); - - if ext = Ext_ProjectSource then - begin - if BeforeOpenProject then - modActionsMain.OpenProject(FFileName); - end - else - begin - if FCloseNewFile then - if Assigned(ActiveEditor) then - if not ActiveEditor.Modified and ActiveEditor.Untitled then - ActiveEditor.Free; - - if ext = '.kmn' then Result := OpenKMNEditor(FFileName) - else if ext = '.kps' then Result := OpenKPSEditor(FFileName) - else if ext = '.kvk' then Result := OpenKVKEditor(FFileName) - else if ext = '.bmp' then Result := OpenEditor(FFileName, TfrmBitmapEditor) - else Result := OpenEditor(FFileName, TfrmEditor); - end; - - if Assigned(Result) then - AddMRU(FFileName); - - except - on E:EFOpenError do - ShowMessage('Unable to open the file '''+FFileName+'''.'); - end; - - pagesChange(pages); - finally - Screen.Cursor := crDefault; - end; -end; - -function TfrmKeymanDeveloper.OpenKMNEditor(FFileName: string): TfrmTikeEditor; -begin - Result := OpenEditor(FFileName, TfrmKeymanWizard); - //else Result := OpenEditor(FFileName, TfrmEditor); -end; - -function TfrmKeymanDeveloper.OpenKPSEditor(FFileName: string): TfrmTikeEditor; -begin - Result := OpenEditor(FFileName, TfrmPackageEditor); -end; - -function TfrmKeymanDeveloper.OpenKVKEditor(FFileName: string): TfrmTikeEditor; -begin - Result := OpenEditor(FFileName, TfrmOSKEditor); -end; - -function TfrmKeymanDeveloper.BeforeOpenProject: Boolean; -var - i: Integer; -begin - for i := 0 to FChildWindows.Count - 1 do - if not FChildWindows[i].CloseQuery then - Exit(False); - - Result := True; -end; - -function TfrmKeymanDeveloper.OpenEditor(FFileName: string; frmClass: TfrmTikeEditorClass): TfrmTikeEditor; -var - i, n: Integer; -begin - for i := 0 to FChildWindows.Count - 1 do - if FChildWindows[i] is TfrmTikeEditor then - with FChildWindows[i] as TfrmTikeEditor do - if SameFileName(FileName, FFileName) then // I4749 - begin - Result := Self.FChildWindows[i] as TfrmTikeEditor; - ShowChild(Result); - Exit; - end; - - LockWindowUpdate(pages.Handle); - Result := frmClass.Create(Self); - - n := FGlobalProject.Files.IndexOfFileName(FFileName); - if n >= 0 then - Result.ProjectFile := FGlobalProject.Files[n]; - - (Result as frmClass).OpenFile(FFileName); - LockWindowUpdate(0); -end; - -procedure TfrmKeymanDeveloper.HelpTopic(s: string); -begin - Application.HelpJump(s); -end; - -{------------------------------------------------------------------------------- - - Some functions - - -------------------------------------------------------------------------------} - -function TfrmKeymanDeveloper.FindEditorByFileName(AFileName: string): TfrmTikeEditor; -var - i: Integer; -begin - for i := 0 to FChildWindows.Count - 1 do - begin - if (FChildWindows[i] is TfrmTikeEditor) then // I4081 - begin - if ((FChildWindows[i] as TfrmTikeEditor).FileName = AFileName) or - (FChildWindows[i] as TfrmTikeEditor).HasSubFilename(AFilename) then - begin - Result := FChildWindows[i] as TfrmTikeEditor; - Exit; - end; - end; - end; - - Result := nil; -end; - -{------------------------------------------------------------------------------- - - MRU File List - - -------------------------------------------------------------------------------} - -procedure TfrmKeymanDeveloper.AddMRU(FileName: string); -begin - // Add the filename to the top of the MRU. - - if FileName = '' then Exit; - - if LowerCase(ExtractFileExt(FileName)) <> '.kpj' then - // Don't add project files to project MRU - FGlobalProject.MRU.Add(FileName); -end; - -procedure TfrmKeymanDeveloper.UpdateFileMRU; -var - i: Integer; - m: TMenuItem; -begin - for i := 0 to mnuFileRecent.Count - 1 do - mnuFileRecent.Items[0].Free; - - for i := 0 to FGlobalProject.MRU.FileCount - 1 do - begin - m := TMenuItem.Create(Self); - m.Caption := '&'+IntToStr(i+1)+' '+FGlobalProject.MRU.EllipsisFile(i); - m.Hint := FGlobalProject.MRU.Files[i]; - m.OnClick := mnuFileRecentFileClick; - mnuFileRecent.Add(m); - end; -end; - -procedure TfrmKeymanDeveloper.mnuFileRecentFileClick(Sender: TObject); -begin - with Sender as TMenuItem do - OpenFile(Hint, True); -end; - -{------------------------------------------------------------------------------- - - Drag and Drop functionality - - -------------------------------------------------------------------------------} - -procedure TfrmKeymanDeveloper.Drop(const FileNames: array of string); -var - i: Integer; -begin - for i := Low(Filenames) to High(Filenames) do - OpenFile(Filenames[i], False); -end; - -function TfrmKeymanDeveloper.DropAllowed( - const FileNames: array of string): Boolean; -begin - Result := True; -end; - -{------------------------------------------------------------------------------- - - TIKE projects - - -------------------------------------------------------------------------------} - -procedure TfrmKeymanDeveloper.NotifyChildWindowChange(Window: TfrmTikeChild; Action: TListNotification); -var - item: TTabSheet; - i: Integer; -begin - case Action of - lnAdded: - begin - item := TTabSheet.Create(Self); - item.Caption := Window.Caption+' '; //enough space for [x] close button - if Window is TfrmTikeEditor then - begin - item.Hint := (Window as TfrmTikeEditor).FileName; - end; - item.Tag := Integer(Window); - item.PageControl := pages; - Window.Parent := item; - end; - lnDeleted,lnExtracted: - begin - for i := 0 to pages.PageCount - 1 do - if pages.Pages[i].Tag = Integer(Window) then - begin - //CharacterMapFormChanged(nil); - Window.Parent := nil; - pages.Pages[i].Free; - ActivateActiveChild; - FocusActiveChild; - - if FIsClosing then - if pages.PageCount = 0 then - begin - Close; - end; - Exit; - end; - end; - end; -end; - -procedure TfrmKeymanDeveloper.ools1Click(Sender: TObject); -begin - inherited; - DebugTests1.Visible := GetKeyState(VK_SHIFT) < 0; -end; - -procedure TfrmKeymanDeveloper.mnuProjectClick(Sender: TObject); -var - i: Integer; - m: TMenuItem; -begin - for i := 0 to mnuProjectsRecent.Count - 1 do - mnuProjectsRecent.Items[0].Free; - - for i := 0 to FProjectMRU.FileCount - 1 do - begin - m := TMenuItem.Create(Self); - m.Caption := '&'+IntToStr(i+1)+' '+FProjectMRU.EllipsisFile(i); - m.Hint := FProjectMRU.Files[i]; - m.OnClick := mnuProjectRecentFileClick; - mnuProjectsRecent.Add(m); - end; - - mnuProjectsRecent.Enabled := FProjectMRU.FileCount > 0; -end; - -procedure TfrmKeymanDeveloper.mnuProjectRecentFileClick(Sender: TObject); -begin - with Sender as TMenuItem do - begin - if BeforeOpenProject then - modActionsMain.OpenProject(Hint); - end; -end; - -procedure TfrmKeymanDeveloper.cbTextFileFormatItemClick(Sender: TObject); -begin - modActionsMain.actToolsFileFormat.Execute; -end; - -procedure TfrmKeymanDeveloper.crash1Click(Sender: TObject); -var - p: PChar; -begin - p := nil; - p^ := #0; -end; - -procedure TfrmKeymanDeveloper.SetActiveChild(const Value: TfrmTikeChild); -begin - ShowChild(Value); -end; - -procedure TfrmKeymanDeveloper.SetActiveChildIndex(const Value: Integer); -begin - ShowChild(ChildWindows[Value]); -end; - -procedure TfrmKeymanDeveloper.FocusActiveChild; -var - PrevFocus: TfrmTikeChild; -begin - PrevFocus := ActiveChild; - if Assigned(PrevFocus) then - begin - ShowChild(PrevFocus); - if PrevFocus.Visible then - PrevFocus.SetFocus; - end; -end; - -procedure TfrmKeymanDeveloper.UDUI_Error(Sender: TUnicodeData; - Error: TUnicodeDataError; const Details: WideString); -begin - case Error of - udeCouldNotDeleteDatabaseForRebuild: ShowMessage('Could not delete the character map database prior to rebuild. The error was: '+Details); - udeCouldNotCreateDatabase: ShowMessage('Could not create the character map database. The error was: '+Details); - end; -end; - -function TfrmKeymanDeveloper.UDUI_ShouldStartRebuildOnError( - const Msg: WideString): Boolean; -begin - Result := MessageDlg('The Unicode character database did not load successfully ('+Msg+'). Rebuild it now?', mtConfirmation, mbOkCancel, 0) = mrOk; -end; - -function TfrmKeymanDeveloper.UDUI_StartRebuild(Callback: TNotifyEvent; AskFirst: Boolean): Boolean; -begin - Result := False; - - if AskFirst and (MessageDlg('The Character Map has a database of characters that needs to be built before it can be used. Build it now?', - mtConfirmation, mbOkCancel, 0) = mrCancel) then Exit; - FUnicodeDataStatusForm := TfrmUnicodeDataStatus.Create(Self); - try - FUnicodeDataStatusForm.Callback := Callback; - Result := FUnicodeDataStatusForm.ShowModal = mrOk; - finally - FreeAndNil(FUnicodeDataStatusForm); - end; -end; - -procedure TfrmKeymanDeveloper.UDUI_UpdateStatus(const Msg: WideString; Pos, - Max: Integer); -begin - if Assigned(FUnicodeDataStatusForm) then - FUnicodeDataStatusForm.UpdateStatus(Msg, Pos, Max); -end; - -procedure TfrmKeymanDeveloper.UpdateCaption; -begin - if FGlobalProject.Untitled - then Caption := '(Untitled project) - Keyman Developer' - else Caption := ChangeFileExt(ExtractFileName(FGlobalProject.FileName), '') + ' - Keyman Developer'; - - Application.Title := Caption; -end; - -procedure TfrmKeymanDeveloper.UpdateChildCaption(Window: TfrmTikeChild); -var - i: Integer; -begin - for i := 0 to pages.PageCount - 1 do - if pages.Pages[i].Tag = Integer(Window) then - with pages.Pages[i] do - begin - Caption := Window.Caption+' '; //enough space for [x] close button; - Hint := Window.Hint; - Exit; - end; -end; - -procedure TfrmKeymanDeveloper.RefreshOptions; -var - i: Integer; -begin - Screen.Cursor := crHourglass; - try - FUnicodeData.RefreshOptions; - for i := 0 to Self.FChildWindows.Count - 1 do - if Self.FChildWindows[i] is TfrmEditor then (Self.FChildWindows[i] as TfrmEditor).RefreshOptions; - if ProjectForm <> nil then ProjectForm.RefreshOptions; - if Assigned(frmMessages) then frmMessages.RefreshOptions; - if Assigned(frmCharacterMapDock) then frmCharacterMapDock.RefreshOptions; // Recalculates grid after unicode data refresh - finally - Screen.Cursor := crDefault; - end; -end; - -function TfrmKeymanDeveloper.ProjectForm: TfrmProject; -var - i: Integer; -begin - for i := 0 to FChildWindows.Count - 1 do - if (FChildWindows[i] is TfrmProject) then - begin - Result := FChildWindows[i] as TfrmProject; - Exit; - end; - - Result := nil; -end; - -procedure InitClasses; // I3350 -const - CUserAgent: AnsiString = 'Mozilla/5.0 (compatible; MSIE 11.0; Windows NT 6.1; WOW64; Trident/5.0; TIKE/'+SKeymanVersion+')'; // I4045 -begin - with TRegistryErrorControlled.Create do // I3887 - try - if OpenKey(SRegKey_InternetExplorerFeatureBrowserEmulation_CU, True) then // I4436 - WriteInteger('tike.exe', 9000); // I4874 - finally - Free; - end; - - OleCheck(UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PAnsiChar(CUserAgent), Length(CUserAgent), 0)); // I4045 -end; - -end. - diff --git a/windows/src/developer/TIKE/oskbuilder/UframeTouchLayoutBuilder.pas b/windows/src/developer/TIKE/oskbuilder/UframeTouchLayoutBuilder.pas index 01a3841d2d..8d93a2564b 100644 --- a/windows/src/developer/TIKE/oskbuilder/UframeTouchLayoutBuilder.pas +++ b/windows/src/developer/TIKE/oskbuilder/UframeTouchLayoutBuilder.pas @@ -464,9 +464,15 @@ procedure TframeTouchLayoutBuilder.Save(const AFilename: string); var s: string; begin + if (FFilename = '') and (AFilename <> '') then + begin + Load(AFilename, not FileExists(AFilename), False); + end; + if not IsModified and FileExists(AFilename) then // I4047 // I4147 Exit; s := GetLayoutJS; + if s = '' then Exit; FSavedLayoutJS := s; diff --git a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmProject.pas b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmProject.pas index 0a57c0aab7..a8d7a365c6 100644 --- a/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmProject.pas +++ b/windows/src/developer/TIKE/project/Keyman.Developer.UI.Project.UfrmProject.pas @@ -370,7 +370,6 @@ begin try BaseFileName := FGlobalProject.FileName; FileType := FileTypeFromParamType; - if FileType = ftOther then Exit; if ShowModal = mrOk then begin @@ -385,7 +384,6 @@ begin begin { locate an existing file, add it to the project } FFileType := FileTypeFromParamType; - if FFileType = ftOther then Exit; dlgOpenFile.Filter := GetFileTypeFilter(FFileType, FDefaultExtension); dlgOpenFile.DefaultExt := FDefaultExtension; diff --git a/windows/src/developer/TIKE/xml/app/editor/editor.js b/windows/src/developer/TIKE/xml/app/editor/editor.js index 03ebb64e08..b525d9c5be 100644 --- a/windows/src/developer/TIKE/xml/app/editor/editor.js +++ b/windows/src/developer/TIKE/xml/app/editor/editor.js @@ -86,6 +86,10 @@ async function loadSettings() { // Setup callbacks // + window.addEventListener('resize', function() { + editor.layout(); + }); + const model = editor.getModel(); context.reloadSettings(); diff --git a/windows/src/engine/keyman32/kmprocess.cpp b/windows/src/engine/keyman32/kmprocess.cpp index 2b8253bdf0..2e15475548 100644 --- a/windows/src/engine/keyman32/kmprocess.cpp +++ b/windows/src/engine/keyman32/kmprocess.cpp @@ -281,6 +281,13 @@ BOOL ProcessGroup(LPGROUP gp) fOutputKeystroke = TRUE; // I4933 return FALSE; // I4933 } + if (Uni_IsSurrogate1(*pdeletecontext) && Uni_IsSurrogate2(*(pdeletecontext+1))) { + // 2 backspaces to delete both parts of surrogate pair + // This only needs to be done for non-legacy apps as legacy apps + // will receive a BKSP WM_KEYDOWN event which results in deleting + // both parts in one action + _td->app->QueueAction(QIT_BACK, BK_BACKSPACE); + } } _td->app->QueueAction(QIT_BACK, BK_BACKSPACE); // I4933 } diff --git a/windows/src/engine/keyman32/message-analyzer/README.md b/windows/src/engine/keyman32/message-analyzer/README.md index b7a41da2e2..3bdbaa9915 100644 --- a/windows/src/engine/keyman32/message-analyzer/README.md +++ b/windows/src/engine/keyman32/message-analyzer/README.md @@ -4,4 +4,16 @@ keyman-debug-etw.man will be installed with Keyman Engine so that debug log file Microsoft Message Analyzer. You can import the layout file keyman-debug-etw.asset into Microsoft Message Analyzer to provide a good default layout for Keyman log files. +To manually install the provider, run: + + wevtutil im keyman-debug-etw.man + +To uninstall it (a good idea often before installing): + + wevtutil um keyman-debug-etw.man + +You may need to manually edit the file to add the paths for keyman32.dll, e.g.: + + + Debug log files are written to %LOCAL_APP_DATA%\Keyman\Diag.