pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Added TChromiumCore.SimulateMouseEvent

Browse Source 
Added TChromiumCore.SimulateTouchEvent
Added TChromiumCore.SimulateEditingCommand
Fixed TChromiumCore.SimulateKeyEvent
Added EditingCommandToString
This commit is contained in:
Salvador Díaz Fau
2024-07-19 18:18:00 +02:00
parent 1fb7b7968b
commit 817a5ff911
22 changed files with 4841 additions and 2515 deletions
Download Patch File Download Diff File Expand all files Collapse all files

150
source/uCEFMiscFunctions.pas
View File

@ -827,6 +827,10 @@ function IsCEFSubprocess : boolean;
{$IFNDEF FPC}{$IFNDEF DELPHI7_UP}
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
{$ENDIF}{$ENDIF}
/// <summary>
/// Convert an editting command to string.
/// </summary>
function EditingCommandToString(aEditingCommand : TCefEditingCommand): ustring;
implementation
@ -3388,4 +3392,150 @@ begin
end;
{$ENDIF}{$ENDIF}
function EditingCommandToString(aEditingCommand : TCefEditingCommand): ustring;
begin
case aEditingCommand of
ecAlignCenter : Result := 'AlignCenter';
ecAlignJustified : Result := 'AlignJustified';
ecAlignLeft : Result := 'AlignLeft';
ecAlignRight : Result := 'AlignRight';
ecBackColor : Result := 'BackColor';
ecBackwardDelete : Result := 'BackwardDelete';
ecBold : Result := 'Bold';
ecCopy : Result := 'Copy';
ecCreateLink : Result := 'CreateLink';
ecCut : Result := 'Cut';
ecDefaultParagraphSeparator : Result := 'DefaultParagraphSeparator';
ecDelete : Result := 'Delete';
ecDeleteBackward : Result := 'DeleteBackward';
ecDeleteBackwardByDecomposingPreviousCharacter : Result := 'DeleteBackwardByDecomposingPreviousCharacter';
ecDeleteForward : Result := 'DeleteForward';
ecDeleteToBeginningOfLine : Result := 'DeleteToBeginningOfLine';
ecDeleteToBeginningOfParagraph : Result := 'DeleteToBeginningOfParagraph';
ecDeleteToEndOfLine : Result := 'DeleteToEndOfLine';
ecDeleteToEndOfParagraph : Result := 'DeleteToEndOfParagraph';
ecDeleteToMark : Result := 'DeleteToMark';
ecDeleteWordBackward : Result := 'DeleteWordBackward';
ecDeleteWordForward : Result := 'DeleteWordForward';
ecFindString : Result := 'FindString';
ecFontName : Result := 'FontName';
ecFontSize : Result := 'FontSize';
ecFontSizeDelta : Result := 'FontSizeDelta';
ecForeColor : Result := 'ForeColor';
ecFormatBlock : Result := 'FormatBlock';
ecForwardDelete : Result := 'ForwardDelete';
ecHiliteColor : Result := 'HiliteColor';
ecIgnoreSpelling : Result := 'IgnoreSpelling';
ecIndent : Result := 'Indent';
ecInsertBacktab : Result := 'InsertBacktab';
ecInsertHorizontalRule : Result := 'InsertHorizontalRule';
ecInsertHTML : Result := 'InsertHTML';
ecInsertImage : Result := 'InsertImage';
ecInsertLineBreak : Result := 'InsertLineBreak';
ecInsertNewline : Result := 'InsertNewline';
ecInsertNewlineInQuotedContent : Result := 'InsertNewlineInQuotedContent';
ecInsertOrderedList : Result := 'InsertOrderedList';
ecInsertParagraph : Result := 'InsertParagraph';
ecInsertTab : Result := 'InsertTab';
ecInsertText : Result := 'InsertText';
ecInsertUnorderedList : Result := 'InsertUnorderedList';
ecItalic : Result := 'Italic';
ecJustifyCenter : Result := 'JustifyCenter';
ecJustifyFull : Result := 'JustifyFull';
ecJustifyLeft : Result := 'JustifyLeft';
ecJustifyNone : Result := 'JustifyNone';
ecJustifyRight : Result := 'JustifyRight';
ecMakeTextWritingDirectionLeftToRight : Result := 'MakeTextWritingDirectionLeftToRight';
ecMakeTextWritingDirectionNatural : Result := 'MakeTextWritingDirectionNatural';
ecMakeTextWritingDirectionRightToLeft : Result := 'MakeTextWritingDirectionRightToLeft';
ecMoveBackward : Result := 'MoveBackward';
ecMoveBackwardAndModifySelection : Result := 'MoveBackwardAndModifySelection';
ecMoveDown : Result := 'MoveDown';
ecMoveDownAndModifySelection : Result := 'MoveDownAndModifySelection';
ecMoveForward : Result := 'MoveForward';
ecMoveForwardAndModifySelection : Result := 'MoveForwardAndModifySelection';
ecMoveLeft : Result := 'MoveLeft';
ecMoveLeftAndModifySelection : Result := 'MoveLeftAndModifySelection';
ecMovePageDown : Result := 'MovePageDown';
ecMovePageDownAndModifySelection : Result := 'MovePageDownAndModifySelection';
ecMovePageUp : Result := 'MovePageUp';
ecMovePageUpAndModifySelection : Result := 'MovePageUpAndModifySelection';
ecMoveParagraphBackward : Result := 'MoveParagraphBackward';
ecMoveParagraphBackwardAndModifySelection : Result := 'MoveParagraphBackwardAndModifySelection';
ecMoveParagraphForward : Result := 'MoveParagraphForward';
ecMoveParagraphForwardAndModifySelection : Result := 'MoveParagraphForwardAndModifySelection';
ecMoveRight : Result := 'MoveRight';
ecMoveRightAndModifySelection : Result := 'MoveRightAndModifySelection';
ecMoveToBeginningOfDocument : Result := 'MoveToBeginningOfDocument';
ecMoveToBeginningOfDocumentAndModifySelection : Result := 'MoveToBeginningOfDocumentAndModifySelection';
ecMoveToBeginningOfLine : Result := 'MoveToBeginningOfLine';
ecMoveToBeginningOfLineAndModifySelection : Result := 'MoveToBeginningOfLineAndModifySelection';
ecMoveToBeginningOfParagraph : Result := 'MoveToBeginningOfParagraph';
ecMoveToBeginningOfParagraphAndModifySelection : Result := 'MoveToBeginningOfParagraphAndModifySelection';
ecMoveToBeginningOfSentence : Result := 'MoveToBeginningOfSentence';
ecMoveToBeginningOfSentenceAndModifySelection : Result := 'MoveToBeginningOfSentenceAndModifySelection';
ecMoveToEndOfDocument : Result := 'MoveToEndOfDocument';
ecMoveToEndOfDocumentAndModifySelection : Result := 'MoveToEndOfDocumentAndModifySelection';
ecMoveToEndOfLine : Result := 'MoveToEndOfLine';
ecMoveToEndOfLineAndModifySelection : Result := 'MoveToEndOfLineAndModifySelection';
ecMoveToEndOfParagraph : Result := 'MoveToEndOfParagraph';
ecMoveToEndOfParagraphAndModifySelection : Result := 'MoveToEndOfParagraphAndModifySelection';
ecMoveToEndOfSentence : Result := 'MoveToEndOfSentence';
ecMoveToEndOfSentenceAndModifySelection : Result := 'MoveToEndOfSentenceAndModifySelection';
ecMoveToLeftEndOfLine : Result := 'MoveToLeftEndOfLine';
ecMoveToLeftEndOfLineAndModifySelection : Result := 'MoveToLeftEndOfLineAndModifySelection';
ecMoveToRightEndOfLine : Result := 'MoveToRightEndOfLine';
ecMoveToRightEndOfLineAndModifySelection : Result := 'MoveToRightEndOfLineAndModifySelection';
ecMoveUp : Result := 'MoveUp';
ecMoveUpAndModifySelection : Result := 'MoveUpAndModifySelection';
ecMoveWordBackward : Result := 'MoveWordBackward';
ecMoveWordBackwardAndModifySelection : Result := 'MoveWordBackwardAndModifySelection';
ecMoveWordForward : Result := 'MoveWordForward';
ecMoveWordForwardAndModifySelection : Result := 'MoveWordForwardAndModifySelection';
ecMoveWordLeft : Result := 'MoveWordLeft';
ecMoveWordLeftAndModifySelection : Result := 'MoveWordLeftAndModifySelection';
ecMoveWordRight : Result := 'MoveWordRight';
ecMoveWordRightAndModifySelection : Result := 'MoveWordRightAndModifySelection';
ecOutdent : Result := 'Outdent';
ecOverWrite : Result := 'OverWrite';
ecPaste : Result := 'Paste';
ecPasteAndMatchStyle : Result := 'PasteAndMatchStyle';
ecPasteGlobalSelection : Result := 'PasteGlobalSelection';
ecPrint : Result := 'Print';
ecRedo : Result := 'Redo';
ecRemoveFormat : Result := 'RemoveFormat';
ecScrollLineDown : Result := 'ScrollLineDown';
ecScrollLineUp : Result := 'ScrollLineUp';
ecScrollPageBackward : Result := 'ScrollPageBackward';
ecScrollPageForward : Result := 'ScrollPageForward';
ecScrollToBeginningOfDocument : Result := 'ScrollToBeginningOfDocument';
ecScrollToEndOfDocument : Result := 'ScrollToEndOfDocument';
ecSelectAll : Result := 'SelectAll';
ecSelectLine : Result := 'SelectLine';
ecSelectParagraph : Result := 'SelectParagraph';
ecSelectSentence : Result := 'SelectSentence';
ecSelectToMark : Result := 'SelectToMark';
ecSelectWord : Result := 'SelectWord';
ecSetMark : Result := 'SetMark';
ecStrikethrough : Result := 'Strikethrough';
ecStyleWithCSS : Result := 'StyleWithCSS';
ecSubscript : Result := 'Subscript';
ecSuperscript : Result := 'Superscript';
ecSwapWithMark : Result := 'SwapWithMark';
ecToggleBold : Result := 'ToggleBold';
ecToggleItalic : Result := 'ToggleItalic';
ecToggleUnderline : Result := 'ToggleUnderline';
ecTranspose : Result := 'Transpose';
ecUnderline : Result := 'Underline';
ecUndo : Result := 'Undo';
ecUnlink : Result := 'Unlink';
ecUnscript : Result := 'Unscript';
ecUnselect : Result := 'Unselect';
ecUseCSS : Result := 'UseCSS';
ecYank : Result := 'Yank';
ecYankAndSelect : Result := 'YankAndSelect';
else Result := '';
end;
end;
end.