Browse Source

* only disable Alt-X in Options|Compiler dialog

pierre 23 years ago
parent
commit
74a4fac7cc
4 changed files with 33 additions and 15 deletions
  1. 8 1
      ide/fpconst.pas
  2. 6 2
      ide/fphelp.pas
  3. 14 10
      ide/fpide.pas
  4. 5 2
      ide/fpmopts.inc

+ 8 - 1
ide/fpconst.pas

@@ -255,6 +255,7 @@ const
      hcDisassemblyWindow = 8011;
 
      hcShift             = 10000;
+     hcNoAltXShift       = 20000;
 
      hcUsingHelp         = 2;
      hcContents          = 3;
@@ -273,6 +274,7 @@ const
      hcRecentFileBase    = hcShift+cmRecentFileBase;
 
      hcCompiler          = hcShift+cmCompiler;
+     hcCompilerNoAltX    = hcNoAltXShift+cmCompiler;
      hcMemorySizes       = hcShift+cmMemorySizes;
      hcLinker            = hcShift+cmLinker;
      hcDebugger          = hcShift+cmDebugger;
@@ -312,6 +314,8 @@ const
      hcHelpMenu          = 9011;
 
      hcFirstCommand      = hcSystemMenu;
+     hcLastNormalCommand = hcNoAltXShift - 1;
+     hcFirstNoAltXCommand = hcNoAltXShift;
      hcLastCommand       = 65535;
 
      hcShowClipboard     = hcShift+cmShowClipboard;
@@ -434,7 +438,10 @@ implementation
 END.
 {
   $Log$
-  Revision 1.4  2002-01-22 16:33:51  pierre
+  Revision 1.5  2002-01-24 09:21:41  pierre
+   * only disable Alt-X in Options|Compiler dialog
+
+  Revision 1.4  2002/01/22 16:33:51  pierre
    Change IDE version to 0.9.2
 
   Revision 1.3  2001/11/07 00:28:52  pierre

+ 6 - 2
ide/fphelp.pas

@@ -190,7 +190,8 @@ begin
 
     hcOptionsMenu   : S:=hint_optionsmenu;
     hcSwitchesMode  : S:=hint_switchesmode;
-    hcCompiler      : S:=hint_compiler;
+    hcCompiler,
+    hcCompilerNoAltX  : S:=hint_compiler;
     hcMemorySizes   : S:=hint_memorysizes;
     hcLinker        : S:=hint_linkeroptions;
     hcDebugger      : S:=hint_debugoptions;
@@ -505,7 +506,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.4  2001-10-01 00:24:09  pierre
+  Revision 1.5  2002-01-24 09:21:41  pierre
+   * only disable Alt-X in Options|Compiler dialog
+
+  Revision 1.4  2001/10/01 00:24:09  pierre
    * fix several help problems
 
   Revision 1.3  2001/09/10 10:52:59  pierre

+ 14 - 10
ide/fpide.pas

@@ -475,13 +475,13 @@ begin
     NewStatusDef(hcStackWindow, hcStackWindow,
       NewStatusKey(status_help, kbF1, cmHelp,
       NewStatusKey(status_disassemble, kbAltI, cmDisassemble,
-      NewStatusKey('', kbAltF3, cmClose,
-      NewStatusKey('', kbF5, cmZoom,
-      NewStatusKey('', kbCtrlF5, cmResize,
-      NewStatusKey('', kbF6, cmNext,
-      NewStatusKey('', kbShiftF6, cmPrev,
-      nil))))))),
-    NewStatusDef(hcFirstCommand, hcLastCommand,
+      StdStatusKeys(
+      nil))),
+    NewStatusDef(hcFirstCommand, hcLastNormalCommand,
+      NewStatusKey(status_help, kbF1, cmHelp,
+      StdStatusKeys(
+      nil)),
+    NewStatusDef(hcFirstNoAltXCommand, hcLastCommand,
       NewStatusKey(status_help, kbF1, cmHelp,
       NewStatusKey('', kbF10, cmMenu,
       NewStatusKey('', kbAltF3, cmClose,
@@ -504,7 +504,8 @@ begin
       NewStatusKey(status_compile, kbAltF9, cmCompile,
       NewStatusKey(status_make, kbF9, cmMake,
       NewStatusKey(status_localmenu, kbAltF10, cmLocalMenu,
-      StdStatusKeys(
+      StdStatusKeys
+      (
       nil))))))),
     NewStatusDef(hcASCIITableWindow, hcASCIITableWindow,
       NewStatusKey(status_help, kbF1, cmHelp,
@@ -533,7 +534,7 @@ begin
       NewStatusKey(status_localmenu, kbAltF10, cmLocalMenu,
       StdStatusKeys(
       nil)))))),
-    nil)))))))))));
+    nil))))))))))));
 end;
 
 procedure TIDEApp.Idle;
@@ -1176,7 +1177,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.7  2001-11-07 00:28:53  pierre
+  Revision 1.8  2002-01-24 09:21:42  pierre
+   * only disable Alt-X in Options|Compiler dialog
+
+  Revision 1.7  2001/11/07 00:28:53  pierre
    + Disassembly window made public
 
   Revision 1.6  2001/10/24 14:17:27  pierre

+ 5 - 2
ide/fpmopts.inc

@@ -79,7 +79,7 @@ begin
   New(D, Init(R, dialog_compilerswitches));
   with D^ do
   begin
-    HelpCtx:=hcCompiler;
+    HelpCtx:=hcCompilerNoAltX;
     GetExtent(R);
     R.Grow(-2,-1);
     Dec(R.B.Y,2);
@@ -1285,7 +1285,10 @@ end;
 
 {
   $Log$
-  Revision 1.5  2001-11-09 11:14:40  pierre
+  Revision 1.6  2002-01-24 09:21:42  pierre
+   * only disable Alt-X in Options|Compiler dialog
+
+  Revision 1.5  2001/11/09 11:14:40  pierre
    * fix the bug about smaller optimization not recorded
 
   Revision 1.4  2001/10/12 14:21:47  pierre