paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Edit|Select and Edit|Unselect, closes 4181

Browse Source 
git-svn-id: trunk@813 -
This commit is contained in:
florian 2005-08-07 10:44:15 +00:00
parent 9ff3005fb5
commit be090fcf7b
7 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/fpconst.pas
View File

@ -193,7 +193,7 @@ const
{ in wviews.pas defined
cmSelectAll = 246;
cmSelectClear = 247;
cmUnselect = 247;
}
cmNotImplemented = 1000;
@ -363,7 +363,7 @@ const
hcCopyWin = hcShift+cmCopyWin;
hcPasteWin = hcShift+cmPasteWin;
hcSelectAll = hcShift+cmSelectAll;
hcSelectClear = hcShift+cmSelectClear;
hcUnselect = hcShift+cmUnselect;
hcFindProcedure = hcShift+cmFindProcedure;
hcObjects = hcShift+cmObjects;

2
ide/fphelp.pas
View File

@ -129,6 +129,8 @@ begin
hcCut : S:=hint_editcut;
hcCopy : S:=hint_editcopy;
hcPaste : S:=hint_editpaste;
hcSelectAll : S:=hint_editselectall;
hcUnselect : S:=hint_editunselect;
hcCopyWin : S:=hint_editcopywin;
hcPasteWin : S:=hint_editpastewin;
hcClear : S:=hint_editclear;

4
ide/fpide.pas
View File

@ -330,9 +330,11 @@ begin
NewItem(menu_edit_copy,menu_key_edit_copy, kbCtrlIns, cmCopy, hcCut,
NewItem(menu_edit_paste,menu_key_edit_paste, kbShiftIns, cmPaste, hcPaste,
NewItem(menu_edit_clear,menu_key_edit_clear, kbCtrlDel, cmClear, hcClear,
NewItem(menu_edit_selectall,'', kbNoKey, cmSelectAll, hcSelectAll,
NewItem(menu_edit_unselect,'', kbNoKey, cmUnselect, hcUnselect,
NewLine(
NewItem(menu_edit_showclipboard,'', kbNoKey, cmShowClipboard, hcShowClipboard,
WinPMI))))))
WinPMI))))))))
{$ifdef DebugUndo}))){$endif DebugUndo}
)))),
NewSubMenu(menu_search,hcSearchMenu, NewMenu(

4
ide/fpstre.inc
View File

@ -67,6 +67,8 @@ const
menu_edit_paste = '~P~aste';
menu_edit_clear = 'C~l~ear';
menu_edit_showclipboard= '~S~how clipboard';
menu_edit_selectall = 'Select ~A~ll';
menu_edit_unselect = 'U~n~select';
menu_search = '~S~earch';
menu_search_find = '~F~ind...';
@ -945,6 +947,8 @@ const
hint_editcopywin = 'Copy the selected text in windows clipboard';
hint_editpastewin = 'Insert selected text from windows clipboard at the cursor position';
hint_editclear = 'Delete the selected text';
hint_editselectall = 'Select the whole text';
hint_editunselect = 'Unselect everything';
hint_showclipboard = 'Open then clipboard window';
hint_searchmenu = 'Text and symbols search commands';
hint_searchfind = 'Search for text';

2
ide/fpviews.pas
View File

@ -481,7 +481,7 @@ const
SourceCmds : TCommandSet =
([cmSave,cmSaveAs,cmCompile,cmHide,cmDoReload]);
EditorCmds : TCommandSet =
([cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch]);
([cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch,cmSelectAll,cmUnselect]);
CompileCmds : TCommandSet =
([cmMake,cmBuild,cmRun]);

8
ide/weditor.pas
View File

@ -719,7 +719,10 @@ const
CodeCompleteMinLen : byte = 4; { minimum length of text to try to complete }
ToClipCmds : TCommandSet = ([cmCut,cmCopy,cmCopyWin]);
ToClipCmds : TCommandSet = ([cmCut,cmCopy,cmCopyWin,
{ cmUnselect should because like cut, copy, copywin:
if there is a selection, it is active, else it isn't }
cmUnselect]);
FromClipCmds : TCommandSet = ([cmPaste]);
NulClipCmds : TCommandSet = ([cmClear]);
UndoCmd : TCommandSet = ([cmUndo]);
@ -3573,6 +3576,9 @@ begin
cmCut : ClipCut;
cmCopy : ClipCopy;
cmPaste : ClipPaste;
cmSelectAll : SelectAll(true);
cmUnselect : SelectAll(false);
{$ifdef WinClipSupported}
cmCopyWin : ClipCopyWin;
cmPasteWin : ClipPasteWin;

2
ide/wviews.pas
View File

@ -22,6 +22,8 @@ const
cmCopyWin = 240;
cmPasteWin = 241;
cmSelectAll = 246;
cmUnselect = 247;
cmLocalMenu = 54100;
cmUpdate = 54101;