165 lines
5.7 KiB
ObjectPascal
165 lines
5.7 KiB
ObjectPascal
unit ATSynEdit_Commands;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
const
|
|
cCmdSelKeep = $10000; //cmd continues selection (new caret pos makes bigger selection)
|
|
cCmdSelReset = $20000; //before command reset selection
|
|
cCmdCaret = $80000; //cmd moves caret and makes new undo-group
|
|
|
|
const
|
|
_base_KeyUp = 100 or cCmdCaret;
|
|
_base_KeyDown = 101 or cCmdCaret;
|
|
_base_KeyLeft = 102 or cCmdCaret;
|
|
_base_KeyRight = 103 or cCmdCaret;
|
|
_base_KeyHome = 104 or cCmdCaret;
|
|
_base_KeyEnd = 105 or cCmdCaret;
|
|
_base_KeyPageUp = 106 or cCmdCaret;
|
|
_base_KeyPageDown = 107 or cCmdCaret;
|
|
|
|
cCommand_KeyUp = _base_KeyUp or cCmdSelReset;
|
|
cCommand_KeyDown = _base_KeyDown or cCmdSelReset;
|
|
cCommand_KeyLeft = _base_KeyLeft; //handles sel
|
|
cCommand_KeyRight = _base_KeyRight; //handles sel
|
|
cCommand_KeyHome = _base_KeyHome or cCmdSelReset;
|
|
cCommand_KeyEnd = _base_KeyEnd or cCmdSelReset;
|
|
cCommand_KeyPageUp = _base_KeyPageUp or cCmdSelReset;
|
|
cCommand_KeyPageDown = _base_KeyPageDown or cCmdSelReset;
|
|
|
|
cCommand_KeyUp_Sel = _base_KeyUp or cCmdSelKeep;
|
|
cCommand_KeyDown_Sel = _base_KeyDown or cCmdSelKeep;
|
|
cCommand_KeyLeft_Sel = _base_KeyLeft or cCmdSelKeep;
|
|
cCommand_KeyRight_Sel = _base_KeyRight or cCmdSelKeep;
|
|
cCommand_KeyHome_Sel = _base_KeyHome or cCmdSelKeep;
|
|
cCommand_KeyEnd_Sel = _base_KeyEnd or cCmdSelKeep;
|
|
cCommand_KeyPageUp_Sel = _base_KeyPageUp or cCmdSelKeep;
|
|
cCommand_KeyPageDown_Sel = _base_KeyPageDown or cCmdSelKeep;
|
|
|
|
cCommand_ColSelectUp = 110;
|
|
cCommand_ColSelectDown = 111;
|
|
cCommand_ColSelectLeft = 112;
|
|
cCommand_ColSelectRight = 113;
|
|
cCommand_ColSelectToLineBegin = 114;
|
|
cCommand_ColSelectToLineEnd = 115;
|
|
cCommand_ColSelectPageUp = 116;
|
|
cCommand_ColSelectPageDown = 117;
|
|
|
|
cCommand_TextInsert = 150;
|
|
cCommand_TextInsertTabChar = 151;
|
|
cCommand_KeyBackspace = 152;
|
|
cCommand_KeyDelete = 153;
|
|
cCommand_KeyEnter = 154;
|
|
cCommand_KeyTab = 155;
|
|
|
|
cCommand_TextDeleteSelection = 170;
|
|
cCommand_TextDeleteLine = 171 or cCmdSelReset;
|
|
cCommand_TextDuplicateLine = 172 or cCmdSelReset;
|
|
cCommand_TextDeleteToLineBegin = 173 or cCmdSelReset;
|
|
cCommand_TextDeleteToLineEnd = 174 or cCmdSelReset;
|
|
cCommand_TextDeleteToTextEnd = 175 or cCmdSelReset;
|
|
cCommand_TextDeleteWordNext = 176 or cCmdSelReset;
|
|
cCommand_TextDeleteWordPrev = 177 or cCmdSelReset;
|
|
|
|
_base_GotoTextBegin = 200 or cCmdCaret;
|
|
_base_GotoTextEnd = 201 or cCmdCaret;
|
|
_base_GotoWordNext = 202 or cCmdCaret;
|
|
_base_GotoWordPrev = 203 or cCmdCaret;
|
|
|
|
cCommand_GotoTextBegin = _base_GotoTextBegin or cCmdSelReset;
|
|
cCommand_GotoTextEnd = _base_GotoTextEnd or cCmdSelReset;
|
|
cCommand_GotoWordNext = _base_GotoWordNext or cCmdSelReset;
|
|
cCommand_GotoWordPrev = _base_GotoWordPrev or cCmdSelReset;
|
|
|
|
cCommand_GotoTextBegin_Sel = _base_GotoTextBegin or cCmdSelKeep;
|
|
cCommand_GotoTextEnd_Sel = _base_GotoTextEnd or cCmdSelKeep;
|
|
cCommand_GotoWordNext_Sel = _base_GotoWordNext or cCmdSelKeep;
|
|
cCommand_GotoWordPrev_Sel = _base_GotoWordPrev or cCmdSelKeep;
|
|
|
|
cCommand_Undo = 235 or cCmdSelReset;
|
|
cCommand_Redo = 236 or cCmdSelReset;
|
|
|
|
cCommand_TextIndent = 240;
|
|
cCommand_TextUnindent = 241;
|
|
|
|
cCommand_ScrollLineUp = 250;
|
|
cCommand_ScrollLineDown = 251;
|
|
cCommand_ScrollToCaretTop = 252;
|
|
cCommand_ScrollToCaretBottom = 253;
|
|
cCommand_ScrollToCaretLeft = 254;
|
|
cCommand_ScrollToCaretRight = 255;
|
|
|
|
cCommand_SelectAll = 260 or cCmdSelReset or cCmdCaret;
|
|
cCommand_SelectNone = 261 or cCmdSelReset or cCmdCaret;
|
|
cCommand_SelectWords = 262 or cCmdSelReset or cCmdCaret;
|
|
cCommand_SelectLines = 263 or cCmdSelReset or cCmdCaret;
|
|
cCommand_SelectInverted = 264 or cCmdCaret;
|
|
cCommand_SelectSplitToLines = 265 or cCmdCaret;
|
|
cCommand_SelectExtendByLine = 266 or cCmdCaret;
|
|
|
|
cCommand_MoveSelectionUp = 268 or cCmdCaret;
|
|
cCommand_MoveSelectionDown = 269 or cCmdCaret;
|
|
cCommand_TextInsertEmptyAbove = 270 or cCmdSelReset or cCmdCaret;
|
|
cCommand_TextInsertEmptyBelow = 271 or cCmdSelReset or cCmdCaret;
|
|
|
|
cCommand_ToggleOverwrite = 300;
|
|
cCommand_ToggleReadOnly = 301;
|
|
cCommand_ToggleWordWrap = 302;
|
|
cCommand_ToggleUnprinted = 303;
|
|
cCommand_ToggleUnprintedSpaces = 304;
|
|
cCommand_ToggleUnprintedEnds = 305;
|
|
cCommand_ToggleUnprintedEndDetails = 306;
|
|
cCommand_ToggleLineNums = 307;
|
|
cCommand_ToggleFolding = 308;
|
|
cCommand_ToggleRuler = 309;
|
|
cCommand_ToggleMinimap = 310;
|
|
|
|
cCommand_ClipboardPaste = 1000;
|
|
cCommand_ClipboardPaste_Select = 1001;
|
|
cCommand_ClipboardPaste_KeepCaret = 1002;
|
|
cCommand_ClipboardPaste_Column = 1003 or cCmdSelReset;
|
|
cCommand_ClipboardPaste_ColumnKeepCaret = 1004 or cCmdSelReset;
|
|
cCommand_ClipboardCopy = 1006;
|
|
cCommand_ClipboardCopyAdd = 1007;
|
|
cCommand_ClipboardCut = 1008;
|
|
|
|
cCommand_TextCaseLower = 1020;
|
|
cCommand_TextCaseUpper = 1021;
|
|
cCommand_TextCaseTitle = 1022;
|
|
cCommand_TextCaseInvert = 1023;
|
|
cCommand_TextCaseSentence = 1024;
|
|
|
|
cCommand_TextTrimSpacesLeft = 1026;
|
|
cCommand_TextTrimSpacesRight = 1027;
|
|
cCommand_TextTrimSpacesAll = 1028;
|
|
|
|
cCommand_FoldAll = 1030;
|
|
cCommand_UnfoldAll = 1031;
|
|
cCommand_FoldLevel2 = 1032;
|
|
cCommand_FoldLevel3 = 1033;
|
|
cCommand_FoldLevel4 = 1034;
|
|
cCommand_FoldLevel5 = 1035;
|
|
cCommand_FoldLevel6 = 1036;
|
|
cCommand_FoldLevel7 = 1037;
|
|
cCommand_FoldLevel8 = 1038;
|
|
cCommand_FoldLevel9 = 1039;
|
|
|
|
cCommand_Cancel = 2001;
|
|
cCommand_RepeatTextCommand = 2002;
|
|
cCommand_ZoomIn = 2003;
|
|
cCommand_ZoomOut = 2004;
|
|
cCommand_ComboboxRecentsMenu = 2005;
|
|
|
|
cCommand_CaretsExtendDownLine = 2010;
|
|
cCommand_CaretsExtendDownPage = 2011;
|
|
cCommand_CaretsExtendDownToEnd = 2012;
|
|
cCommand_CaretsExtendUpLine = 2013;
|
|
cCommand_CaretsExtendUpPage = 2014;
|
|
cCommand_CaretsExtendUpToTop = 2015;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|