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

MG: added selection menu items

Browse Source 
git-svn-id: trunk@3321 -
This commit is contained in:
lazarus 2002-09-11 08:32:56 +00:00
parent 931003e766
commit fb202ba0fe
3 changed files with 66 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/keymapping.pp
View File

@ -77,6 +77,10 @@ const
ecSelectionTabs2Spaces = ecUserFirst + 52;
ecSelectionComment = ecUserFirst + 53;
ecSelectionUncomment = ecUserFirst + 54;
ecSelectToBrace = ecUserFirst + 55;
ecSelectCodeBlock = ecUserFirst + 56;
ecSelectLine = ecUserFirst + 57;
ecSelectParagraph = ecUserFirst + 58;
ecWordCompletion = ecUserFirst + 100;
ecCompleteCode = ecUserFirst + 101;
@ -492,6 +496,10 @@ begin
ecSelectionTabs2Spaces: Result:='Selection tabs to spaces';
ecSelectionComment: Result:='Comment selection';
ecSelectionUncomment: Result:='Uncomment selection';
ecSelectToBrace: Result:= 'Select to brace';
ecSelectCodeBlock: Result:= 'Select code block';
ecSelectLine: Result:= 'Select line';
ecSelectParagraph: Result:= 'Select paragraph';
// search menu
ecFind: Result:= 'Find text';
@ -1140,7 +1148,6 @@ begin
// selection
C:=Categories[AddCategory('Selection','Text selection commands',caSrcEditOnly)];
Add(C,'Select All',ecSelectAll,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Copy selection to clipboard',ecCopy,VK_C,[ssCtrl],VK_Insert,[ssCtrl]);
Add(C,'Cut selection to clipboard',ecCut,VK_X,[ssCtrl],VK_Delete,[ssShift]);
Add(C,'Paste clipboard to current position',ecPaste,VK_V,[ssCtrl],VK_Insert,[ssShift]);
@ -1155,6 +1162,11 @@ begin
Add(C,'Select page bottom',ecSelPageBottom,VK_NEXT, [ssShift,ssCtrl],VK_UNKNOWN,[]);
Add(C,'Select to absolute beginning',ecSelEditorTop,VK_HOME, [ssShift,ssCtrl],VK_UNKNOWN,[]);
Add(C,'Select to absolute end',ecSelEditorBottom,VK_END, [ssShift,ssCtrl],VK_UNKNOWN,[]);
Add(C,'Select all',ecSelectAll,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Select to brace',ecSelectToBrace,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Select code block',ecSelectCodeBlock,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Select line',ecSelectLine,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Select paragraph',ecSelectParagraph,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'Uppercase selection',ecSelectionUpperCase,VK_UNKNOWN, [],VK_UNKNOWN,[]);
Add(C,'Lowercase selection',ecSelectionLowerCase,VK_UNKNOWN, [],VK_UNKNOWN,[]);
Add(C,'Convert tabs to spaces in selection',ecSelectionTabs2Spaces,VK_UNKNOWN, [],VK_UNKNOWN,[]);

8
ide/lazarusidestrconsts.pas
View File

@ -116,8 +116,14 @@ ResourceString
lisMenuTabsToSpacesSelection = 'Tabs to spaces in selection';
lisMenuCommentSelection = 'Comment selection';
lisMenuUncommentSelection = 'Uncomment selection';
lisMenuSelect = 'Select';
lisMenuSelectAll = 'Select all';
lisMenuSelectToBrace = 'Select to brace';
lisMenuSelectCodeBlock = 'Select code block';
lisMenuSelectLine = 'Select line';
lisMenuSelectParagraph = 'Select paragraph';
lisMenuCompleteCode = 'Complete Code';
lisMenuFind = 'Find';
lisMenuFindNext = 'Find &Next';
lisMenuFindPrevious = 'Find &Previous';

46
ide/mainbar.pas
View File

@ -148,6 +148,12 @@ type
itmEditTabsToSpacesBlock: TMenuItem;
itmEditCommentBlock: TMenuItem;
itmEditUncommentBlock: TMenuItem;
itmEditSelect: TMenuItem;
itmEditSelectAll: TMenuItem;
itmEditSelectToBrace: TMenuItem;
itmEditSelectCodeBlock: TMenuItem;
itmEditSelectLine: TMenuItem;
itmEditSelectParagraph: TMenuItem;
itmEditCompleteCode: TMenuItem;
itmSearchFind: TMenuItem;
@ -489,6 +495,41 @@ begin
mnuEdit.Add(CreateMenuSeparator);
itmEditSelect := TMenuItem.Create(Self);
itmEditSelect.Name:='itmEditSelect';
itmEditSelect.Caption := lisMenuSelect;
mnuEdit.Add(itmEditSelect);
// select sub menu items
itmEditSelectAll := TMenuItem.Create(Self);
itmEditSelectAll.Name:='itmEditSelectAll';
itmEditSelectAll.Caption := lisMenuSelectAll;
itmEditSelect.Add(itmEditSelectAll);
itmEditSelectToBrace := TMenuItem.Create(Self);
itmEditSelectToBrace.Name:='itmEditSelectToBrace';
itmEditSelectToBrace.Caption := lisMenuSelectToBrace;
itmEditSelect.Add(itmEditSelectToBrace);
itmEditSelectCodeBlock := TMenuItem.Create(Self);
itmEditSelectCodeBlock.Name:='itmEditSelectCodeBlock';
itmEditSelectCodeBlock.Caption := lisMenuSelectCodeBlock;
itmEditSelectCodeBlock.Enabled:=false;
itmEditSelect.Add(itmEditSelectCodeBlock);
itmEditSelectLine := TMenuItem.Create(Self);
itmEditSelectLine.Name:='itmEditSelectLine';
itmEditSelectLine.Caption := lisMenuSelectLine;
itmEditSelect.Add(itmEditSelectLine);
itmEditSelectParagraph := TMenuItem.Create(Self);
itmEditSelectParagraph.Name:='itmEditSelectParagraph';
itmEditSelectParagraph.Caption := lisMenuSelectParagraph;
itmEditSelect.Add(itmEditSelectParagraph);
mnuEdit.Add(CreateMenuSeparator);
itmEditCompleteCode := TMenuItem.Create(Self);
itmEditCompleteCode.Name:='itmEditCompleteCode';
itmEditCompleteCode.Caption := lisMenuCompleteCode;
@ -876,6 +917,11 @@ begin
itmEditTabsToSpacesBlock.ShortCut:=CommandToShortCut(ecSelectionTabs2Spaces);
itmEditCommentBlock.ShortCut:=CommandToShortCut(ecSelectionComment);
itmEditUncommentBlock.ShortCut:=CommandToShortCut(ecSelectionUncomment);
itmEditSelectAll.ShortCut:=CommandToShortCut(ecSelectAll);
itmEditSelectToBrace.ShortCut:=CommandToShortCut(ecSelectToBrace);
itmEditSelectCodeBlock.ShortCut:=CommandToShortCut(ecSelectCodeBlock);
itmEditSelectLine.ShortCut:=CommandToShortCut(ecSelectLine);
itmEditSelectParagraph.ShortCut:=CommandToShortCut(ecSelectParagraph);
itmEditCompleteCode.ShortCut:=CommandToShortCut(ecCompleteCode);
itmSearchFind.ShortCut:=CommandToShortCut(ecFind);