paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 21:58:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Never disable Ctrl+F9 if it is Continue

Browse Source 
git-svn-id: trunk@7578 -
This commit is contained in:
pierre 2007-06-04 22:01:20 +00:00
parent d7ed6209a9
commit 69f0d253be
3 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/fpconst.pas
View File

@ -276,6 +276,7 @@ const
cmDebuggerStopped = 2600; cmDebuggerStopped = 2600;
cmDisassemble = 2601; cmDisassemble = 2601;
cmContinue = 2602;
cmSymBrowse = 2700; cmSymBrowse = 2700;
cmSymGotoSource = 2701; cmSymGotoSource = 2701;

6
ide/fpide.pas
View File

@ -385,6 +385,7 @@ resourcestring menu_local_gotosource = '~G~oto source';
menu_key_run_stepover = 'F8'; menu_key_run_stepover = 'F8';
menu_key_run_traceinto = 'F7'; menu_key_run_traceinto = 'F7';
menu_key_run_conttocursor = 'F4'; menu_key_run_conttocursor = 'F4';
menu_key_run_untilreturn= 'Alt+F4';
menu_key_run_resetdebugger = 'Ctrl+F2'; menu_key_run_resetdebugger = 'Ctrl+F2';
menu_key_compile_compile = 'Alt+F9'; menu_key_compile_compile = 'Alt+F9';
@ -892,7 +893,7 @@ begin
NewItem(menu_run_stepover,menu_key_run_stepover, kbF8, cmStepOver, hcRun, NewItem(menu_run_stepover,menu_key_run_stepover, kbF8, cmStepOver, hcRun,
NewItem(menu_run_traceinto,menu_key_run_traceinto, kbF7, cmTraceInto, hcRun, NewItem(menu_run_traceinto,menu_key_run_traceinto, kbF7, cmTraceInto, hcRun,
NewItem(menu_run_conttocursor,menu_key_run_conttocursor, kbF4, cmContToCursor, hcContToCursor, NewItem(menu_run_conttocursor,menu_key_run_conttocursor, kbF4, cmContToCursor, hcContToCursor,
NewItem(menu_run_untilreturn,'', kbNoKey,cmUntilReturn,hcUntilReturn, NewItem(menu_run_untilreturn,menu_key_run_untilreturn, kbAltF4,cmUntilReturn,hcUntilReturn,
NewItem(menu_run_rundir,'', kbNoKey, cmRunDir, hcRunDir, NewItem(menu_run_rundir,'', kbNoKey, cmRunDir, hcRunDir,
NewItem(menu_run_parameters,'', kbNoKey, cmParameters, hcParameters, NewItem(menu_run_parameters,'', kbNoKey, cmParameters, hcParameters,
NewItem(menu_run_resetdebugger,menu_key_run_resetdebugger, kbCtrlF2, cmResetDebugger, hcResetDebugger, NewItem(menu_run_resetdebugger,menu_key_run_resetdebugger, kbCtrlF2, cmResetDebugger, hcResetDebugger,
@ -1257,7 +1258,8 @@ begin
cmParameters : Parameters; cmParameters : Parameters;
cmStepOver : DoStepOver; cmStepOver : DoStepOver;
cmTraceInto : DoTraceInto; cmTraceInto : DoTraceInto;
cmRun : DoRun; cmRun,
cmContinue : DoRun;
cmResetDebugger : DoResetDebugger; cmResetDebugger : DoResetDebugger;
cmContToCursor : DoContToCursor; cmContToCursor : DoContToCursor;
cmUntilReturn : DoContUntilReturn; cmUntilReturn : DoContUntilReturn;

13
ide/fpmrun.inc
View File

@ -284,14 +284,23 @@ procedure TIDEApp.UpdateRunMenu(DebuggeeRunning : boolean);
var MenuItem : PMenuItem; var MenuItem : PMenuItem;
begin begin
MenuItem:=PAdvancedMenuBar(MenuBar)^.GetMenuItem(cmRun); MenuItem:=PAdvancedMenuBar(MenuBar)^.GetMenuItem(cmRun);
if not assigned(MenuItem) then
MenuItem:=PAdvancedMenuBar(MenuBar)^.GetMenuItem(cmContinue);
if assigned(MenuItem) then if assigned(MenuItem) then
begin begin
If assigned(MenuItem^.Name) then If assigned(MenuItem^.Name) then
DisposeStr(MenuItem^.Name); DisposeStr(MenuItem^.Name);
if DebuggeeRunning then if DebuggeeRunning then
MenuItem^.Name:=NewStr(menu_run_continue) begin
MenuItem^.Name:=NewStr(menu_run_continue);
MenuItem^.command:=cmContinue;
end
else else
MenuItem^.Name:=NewStr(menu_run_run); begin
MenuItem^.Name:=NewStr(menu_run_run);
MenuItem^.command:=cmRun;
end;
end; end;
MenuItem:=PAdvancedMenuBar(MenuBar)^.GetMenuItem(cmResetDebugger); MenuItem:=PAdvancedMenuBar(MenuBar)^.GetMenuItem(cmResetDebugger);
if assigned(MenuItem) then if assigned(MenuItem) then