Merge pull request #2504 from keymanapp/fix/developer/stable/2466-charmap-insert-text-editor

fix(developer): char map drop into text editor 🍒
This commit is contained in:
Marc Durdin 2020-01-20 14:57:16 +11:00 • committed by GitHub
commit 3148aa7b8c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 2 deletions

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

View file

@ -3,6 +3,9 @@
## 13.0 alpha
* Start version 13.0
## 2020-01-20 12.0.66 stable
* Bug Fix: Character Map was not reliably dropping into Text Editor (#2504)
## 2020-01-20 12.0.65 stable
* Bug Fix: Lexical model compiler fails to compile packages that don't contain email address (#2496)