paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 09:01:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: SynEditKeycmds, added missing IntToIdent mappings. Marked some constants as unimplemented.

Browse Source
This commit is contained in:
Martin 2025-01-26 15:34:03 +01:00
parent fce631b4f7
commit b9e392ee96
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/synedit/syneditkeycmds.pp
View File

@ -273,13 +273,14 @@ const
ecTab = 617; // Tab key ecTab = 617; // Tab key
ecShiftTab = 618; // Shift+Tab key ecShiftTab = 618; // Shift+Tab key
ecUpperCase = 620; // apply to the current or previous word // TODO: The following block is not implemented => once it is the ec... must be added to the EditorCommandStrs array
ecLowerCase = 621; ecUpperCase = 620 unimplemented; // apply to the current or previous word
ecToggleCase = 622; ecLowerCase = 621 unimplemented;
ecTitleCase = 623; ecToggleCase = 622 unimplemented;
ecUpperCaseBlock = 625; // apply to current selection, or current char if no selection ecTitleCase = 623 unimplemented;
ecLowerCaseBlock = 626; ecUpperCaseBlock = 625 unimplemented; // apply to current selection, or current char if no selection
ecToggleCaseBlock = 627; ecLowerCaseBlock = 626 unimplemented;
ecToggleCaseBlock = 627 unimplemented;
ecMoveLineUp = 630; // Moves current line (or selection) one line up ecMoveLineUp = 630; // Moves current line (or selection) one line up
ecMoveLineDown = 631; // Moves current line (or selection) one line down ecMoveLineDown = 631; // Moves current line (or selection) one line down
@ -429,7 +430,7 @@ implementation
{ Command mapping routines } { Command mapping routines }
const const
EditorCommandStrs: array[0..175] of TIdentMapEntry = ( EditorCommandStrs: array[0..179] of TIdentMapEntry = (
(Value: ecNone; Name: 'ecNone'), (Value: ecNone; Name: 'ecNone'),
(Value: ecLeft; Name: 'ecLeft'), (Value: ecLeft; Name: 'ecLeft'),
(Value: ecRight; Name: 'ecRight'), (Value: ecRight; Name: 'ecRight'),
@ -525,6 +526,7 @@ const
(Value: ecCopyAddCurrentLine; Name: 'ecCopyAddCurrentLine'), (Value: ecCopyAddCurrentLine; Name: 'ecCopyAddCurrentLine'),
(Value: ecCutCurrentLine; Name: 'ecCutCurrentLine'), (Value: ecCutCurrentLine; Name: 'ecCutCurrentLine'),
(Value: ecCutAddCurrentLine; Name: 'ecCutAddCurrentLine'), (Value: ecCutAddCurrentLine; Name: 'ecCutAddCurrentLine'),
(Value: ecPasteAsColumns; Name: 'ecPasteAsColumns'),
(Value: ecMoveLineUp; Name: 'ecMoveLineUp'), (Value: ecMoveLineUp; Name: 'ecMoveLineUp'),
(Value: ecMoveLineDown; Name: 'ecMoveLineDown'), (Value: ecMoveLineDown; Name: 'ecMoveLineDown'),
(Value: ecMoveSelectUp; Name: 'ecMoveSelectUp'), (Value: ecMoveSelectUp; Name: 'ecMoveSelectUp'),
@ -605,7 +607,10 @@ const
(Value: EcFoldCurrent; Name: 'EcFoldCurrent'), (Value: EcFoldCurrent; Name: 'EcFoldCurrent'),
(Value: EcUnFoldCurrent; Name: 'EcUnFoldCurrent'), (Value: EcUnFoldCurrent; Name: 'EcUnFoldCurrent'),
(Value: EcFoldToggle; Name: 'EcFoldToggle'), (Value: EcFoldToggle; Name: 'EcFoldToggle'),
(Value: EcToggleMarkupWord; Name: 'EcToggleMarkupWord') (Value: EcToggleMarkupWord; Name: 'EcToggleMarkupWord'),
(Value: ecZoomOut; Name: 'ecZoomOut'),
(Value: ecZoomIn; Name: 'ecZoomIn'),
(Value: ecZoomNorm; Name: 'ecZoomNorm')
); );
var var