paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +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
ecShiftTab = 618; // Shift+Tab key
ecUpperCase = 620; // apply to the current or previous word
ecLowerCase = 621;
ecToggleCase = 622;
ecTitleCase = 623;
ecUpperCaseBlock = 625; // apply to current selection, or current char if no selection
ecLowerCaseBlock = 626;
ecToggleCaseBlock = 627;
// TODO: The following block is not implemented => once it is the ec... must be added to the EditorCommandStrs array
ecUpperCase = 620 unimplemented; // apply to the current or previous word
ecLowerCase = 621 unimplemented;
ecToggleCase = 622 unimplemented;
ecTitleCase = 623 unimplemented;
ecUpperCaseBlock = 625 unimplemented; // apply to current selection, or current char if no selection
ecLowerCaseBlock = 626 unimplemented;
ecToggleCaseBlock = 627 unimplemented;
ecMoveLineUp = 630; // Moves current line (or selection) one line up
ecMoveLineDown = 631; // Moves current line (or selection) one line down
@ -429,7 +430,7 @@ implementation
{ Command mapping routines }
const
EditorCommandStrs: array[0..175] of TIdentMapEntry = (
EditorCommandStrs: array[0..179] of TIdentMapEntry = (
(Value: ecNone; Name: 'ecNone'),
(Value: ecLeft; Name: 'ecLeft'),
(Value: ecRight; Name: 'ecRight'),
@ -525,6 +526,7 @@ const
(Value: ecCopyAddCurrentLine; Name: 'ecCopyAddCurrentLine'),
(Value: ecCutCurrentLine; Name: 'ecCutCurrentLine'),
(Value: ecCutAddCurrentLine; Name: 'ecCutAddCurrentLine'),
(Value: ecPasteAsColumns; Name: 'ecPasteAsColumns'),
(Value: ecMoveLineUp; Name: 'ecMoveLineUp'),
(Value: ecMoveLineDown; Name: 'ecMoveLineDown'),
(Value: ecMoveSelectUp; Name: 'ecMoveSelectUp'),
@ -605,7 +607,10 @@ const
(Value: EcFoldCurrent; Name: 'EcFoldCurrent'),
(Value: EcUnFoldCurrent; Name: 'EcUnFoldCurrent'),
(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