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

added sort selection

Browse Source 
git-svn-id: trunk@3032 -
This commit is contained in:
mattias 2002-08-18 08:57:10 +00:00
parent f845ed1836
commit c05c3ff643
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/uniteditor.pp
View File

@ -49,7 +49,7 @@ uses
Extctrls, Menus, FindInFilesDlg, LMessages, IDEProcs, IDEOptionDefs,
InputHistory, LazarusIDEStrConsts, BaseDebugManager, Debugger, FileCtrl,
LCLType, LCLLinux, TypInfo, LResources, LazConf, EnvironmentOpts,
SourceEditProcs;
SourceEditProcs, SortSelectionDlg;
type
TSourceNoteBook = class;
@ -234,6 +234,7 @@ type
procedure TabsToSpacesInSelection;
procedure CommentSelection;
procedure UncommentSelection;
procedure SortSelection;
procedure SelectToBrace;
procedure SelectCodeBlock;
procedure SelectLine;
@ -1014,6 +1015,9 @@ Begin
ecSelectionUnComment:
UncommentSelection;
ecSelectionSort:
SortSelection;
ecSelectToBrace:
SelectToBrace;
@ -1248,6 +1252,19 @@ begin
FEditor.EndUpdate;
end;
procedure TSourceEditor.SortSelection;
var
SortSelectionDialog: TSortSelectionDialog;
begin
SortSelectionDialog:=TSortSelectionDialog.Create(Application);
SortSelectionDialog.PreviewSynEdit.Highlighter:=EditorComponent.Highlighter;
EditorOpts.GetSynEditSelectedColor(SortSelectionDialog.PreviewSynEdit);
SortSelectionDialog.TheText:=EditorComponent.SelText;
if SortSelectionDialog.ShowModal=mrOk then
EditorComponent.SelText:=SortSelectionDialog.SortedText;
SortSelectionDialog.Free;
end;
procedure TSourceEditor.SelectToBrace;
begin
EditorComponent.SelectToBrace;