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

fixed showing all keymappings and missing text selection keys

Browse Source 
git-svn-id: trunk@6364 -
This commit is contained in:
mattias 2004-12-11 02:21:00 +00:00
parent 7f5fe81d3b
commit 5d6c298120
3 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/editoroptions.pp
View File

@ -3203,7 +3203,7 @@ begin
NewKeyNode.ImageIndex:=1;
NewKeyNode.SelectedIndex:=NewKeyNode.ImageIndex;
end;
while NewCategoryNode.Count>EditingKeyMap.CategoryCount do
while NewCategoryNode.Count>CurCategory.Count do
NewCategoryNode[NewCategoryNode.Count-1].Delete;
end;
while Items.TopLvlCount>EditingKeyMap.CategoryCount do

22
ide/keymapping.pp
View File

@ -1108,12 +1108,12 @@ begin
ecSelectionUpperCase : Result:= lismenuuppercaseselection;
ecSelectionLowerCase : Result:= lismenulowercaseselection;
ecSelectionTabs2Spaces : Result:= srkmecSelectionTabs2Spaces;
ecSelectionEnclose : Result:= lismenucommentselection;
ecSelectionEnclose : Result:= lisMenuEncloseSelection;
ecSelectionComment : Result:= lismenucommentselection;
ecSelectionUncomment : Result:= lismenuuncommentselection;
ecSelectionConditional : Result:= lisMenuConditionalSelection;
ecSelectionSort : Result:= lismenusortselection;
ecSelectionBreakLines : Result:= lismenusortselection;
ecSelectionBreakLines : Result:= lisMenuBeakLinesInSelection;
ecSelectToBrace : Result:= lismenuselecttobrace;
ecSelectCodeBlock : Result:= lismenuselectcodeblock;
ecSelectLine : Result:= lismenuselectline;
@ -1884,6 +1884,15 @@ begin
AddDefault(C,'Normal selection mode',ecNormalSelect);
AddDefault(C,'Column selection mode',ecColumnSelect);
AddDefault(C,'Line selection mode',ecLineSelect);
AddDefault(C,'Uppercase selection',ecSelectionUpperCase);
AddDefault(C,'Lowercase selection',ecSelectionLowerCase);
AddDefault(C,'Convert tabs to spaces in selection',ecSelectionTabs2Spaces);
AddDefault(C,'Enclose selection',ecSelectionEnclose);
AddDefault(C,'Comment selection',ecSelectionComment);
AddDefault(C,'Uncomment selection',ecSelectionUncomment);
AddDefault(C,'Insert $IFDEF',ecSelectionConditional);
AddDefault(C,'Sort selection',ecSelectionSort);
AddDefault(C,'Break Lines in selection',ecSelectionBreakLines);
AddDefault(C,'Select word left',ecSelWordLeft);
AddDefault(C,'Select word right',ecSelWordRight);
AddDefault(C,'Select line start',ecSelLineStart);
@ -1897,15 +1906,6 @@ begin
AddDefault(C,'Select code block',ecSelectCodeBlock);
AddDefault(C,'Select line',ecSelectLine);
AddDefault(C,'Select paragraph',ecSelectParagraph);
AddDefault(C,'Uppercase selection',ecSelectionUpperCase);
AddDefault(C,'Lowercase selection',ecSelectionLowerCase);
AddDefault(C,'Convert tabs to spaces in selection',ecSelectionTabs2Spaces);
AddDefault(C,'Enclose selection',ecSelectionEnclose);
AddDefault(C,'Comment selection',ecSelectionComment);
AddDefault(C,'Uncomment selection',ecSelectionUncomment);
AddDefault(C,'Insert $IFDEF',ecSelectionConditional);
AddDefault(C,'Sort selection',ecSelectionSort);
AddDefault(C,'Break Lines in selection',ecSelectionBreakLines);
// editing
C:=Categories[AddCategory('editing commands',srkmCatEditing,caSrcEdit)];

4
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -1011,7 +1011,6 @@ var
begin
Result:=false;
if (LastMouse.Down) and
(not (gdk_event_get_type(Event) in [gdk_2button_press,gdk_3button_press]))
then begin
@ -2883,6 +2882,9 @@ end;
{ =============================================================================
$Log$
Revision 1.253 2004/12/11 02:21:00 mattias
fixed showing all keymappings and missing text selection keys
Revision 1.252 2004/12/10 19:22:28 mattias
implemented auto add on double click on component palette