erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-09-28 02:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

fix(developer): char map drop into text editor

Browse source 
With changes to the text editor relating to focus,
double-clicking and drag-dropping from character
map no longer worked reliably. This patch resolves
this problem.

Fixes #2466.
This commit is contained in:
Marc Durdin 2020-01-20 11:44:16 +11:00
parent 6dc964817b
commit a2a8e34653
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
windows/src/developer/TIKE/main/UframeTextEditor.pas
View file

@ -85,6 +85,7 @@ type
eventFlags: Cardinal; out Result: Boolean);
procedure cefPreKeySyncEvent(Sender: TObject; e: TCEFHostKeyEventData; out isShortcut, Handled: Boolean);
procedure cefKeyEvent(Sender: TObject; e: TCEFHostKeyEventData; wasShortcut, wasHandled: Boolean);
procedure cefLoadEnd(Sender: TObject);
procedure WMUser_TextEditor_Command(var Message: TMessage); message WM_USER_TextEditor_Command;
procedure WMUser_SyntaxColourChange(var Message: TMessage); message WM_USER_SYNTAXCOLOURCHANGE;
@ -95,7 +96,6 @@ type
procedure ExecuteLineCommand(ALine: Integer; const command: string);
procedure UpdateToken(command: string);
procedure SetCursorPosition(AColumn, ARow: Integer);
procedure cefLoadEnd(Sender: TObject);
procedure DoBreakpointClicked(const line: string);
procedure UpdateEditorFonts;
procedure CharMapDragDrop(Sender, Source: TObject; X, Y: Integer);
@ -325,12 +325,13 @@ end;
procedure TframeTextEditor.SetupCharMapDrop;
begin
GetCharMapDropTool.Handle(cef.cefwp, cmimDefault, CharMapDragOver, CharMapDragDrop);
GetCharMapDropTool.Handle(cef, cmimDefault, CharMapDragOver, CharMapDragDrop);
end;
procedure TframeTextEditor.cefLoadEnd(Sender: TObject);
begin
FHasBeenLoaded := True;
SetupCharMapDrop;
end;
type