MG: added selection menu items

git-svn-id: trunk@3321 -

ide/keymapping.pp

@@ -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,[]);

ide/lazarusidestrconsts.pas

@@ -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';

ide/mainbar.pas

@@ -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);