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

fixed file commands in designer

Browse Source 
git-svn-id: trunk@7711 -
This commit is contained in:
mattias 2005-09-15 19:49:10 +00:00
parent 96057b3ff8
commit f6cdf3cd65
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/designer.pp
View File

@ -1636,6 +1636,7 @@ Begin
Handled:=false;
Command:=FTheFormEditor.TranslateKeyToDesignerCommand(
TheMessage.CharCode,Shift);
//DebugLn('TDesigner.KEYDOWN Command=',dbgs(Command));
DoProcessCommand(Self,Command,Handled);
if not Handled then begin

2
ide/keymapping.pp
View File

@ -2373,7 +2373,7 @@ begin
AddDefault(C,'Go to source editor 10',ecGotoEditor0);
// file menu
C:=Categories[AddCategory('FileMenu',srkmCatFileMenu,{$IFDEF UseIDEScopes}nil{$ELSE}caSrcEdit{$ENDIF})];
C:=Categories[AddCategory('FileMenu',srkmCatFileMenu,{$IFDEF UseIDEScopes}nil{$ELSE}caAll{$ENDIF})];
AddDefault(C,'New',ecNew);
AddDefault(C,'NewUnit',ecNewUnit);
AddDefault(C,'NewForm',ecNewForm);