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

Merge pull request #6449 from keymanapp/feat/developer/5063-multiple-virtual-keys

Browse source 
feat(developer): keep Virtual Key Identifier dialog open on Insert
This commit is contained in:
Marc Durdin 2022-04-01 07:32:53 +11:00 • committed by GitHub
commit 5dcd95da41
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
windows/src/developer/TIKE/debug/UfrmKeyTest.pas
View file

@ -1,18 +1,18 @@
(*
Name: UfrmKeyTest
Copyright: Copyright (C) SIL International.
Documentation:
Description:
Documentation:
Description:
Create Date: 1 Aug 2006
Modified Date: 22 Jan 2007
Authors: mcdurdin
Related Files:
Dependencies:
Related Files:
Dependencies:
Bugs:
Todo:
Notes:
Bugs:
Todo:
Notes:
History: 23 Aug 2006 - mcdurdin - Use TApplicationEvents instead of hooking all messages
23 Aug 2006 - mcdurdin - Insert with new CharMapDropTool
22 Jan 2007 - mcdurdin - Add K_NPENTER special case
@ -33,7 +33,7 @@ const
KT_LALT = $0010000;
KT_RCTRL = $0020000;
KT_RALT = $0040000;
type
TfrmKeyTest = class(TTIKEForm)
lblTitle: TLabel;
@ -105,7 +105,6 @@ end;
procedure TfrmKeyTest.cmdInsertClick(Sender: TObject);
begin
Close;
if Assigned(FLastActiveControl) then
GetCharMapDropTool.InsertToControl(FLastActiveControl, FormatKeyName(FLastShift, FLastKey), cmimCode);
end;