Bladeren bron

+ add RTE(250) for Ctrl+F11 in DEBUG mode

pierre 23 jaren geleden
bovenliggende
commit
411e27c778
1 gewijzigde bestanden met toevoegingen van 8 en 1 verwijderingen
  1. 8 1
      ide/fpide.pas

+ 8 - 1
ide/fpide.pas

@@ -556,6 +556,10 @@ begin
     begin
       Generate_SIGSEGV;
     end;
+  if (Event.What=evKeyDown) and (Event.KeyCode=kbCtrlF11) then
+    begin
+      RunError(250);
+    end;
 {$endif DEBUG}
   if (Event.What=evKeyDown) and (Event.KeyCode=kbAltF12) then
     begin
@@ -1183,7 +1187,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.9  2002-03-20 14:52:01  pierre
+  Revision 1.10  2002-04-12 08:58:22  pierre
+   + add RTE(250) for Ctrl+F11 in DEBUG mode
+
+  Revision 1.9  2002/03/20 14:52:01  pierre
    + deliberatly generate a SIGSEGV if Alt+F11 is pressed (DEBUG code)
 
   Revision 1.8  2002/01/24 09:21:42  pierre