diff --git a/windows/src/developer/TIKE/main/UframeTextEditor.pas b/windows/src/developer/TIKE/main/UframeTextEditor.pas index e4b5b1dc8d..9f5a590ea0 100644 --- a/windows/src/developer/TIKE/main/UframeTextEditor.pas +++ b/windows/src/developer/TIKE/main/UframeTextEditor.pas @@ -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