Forráskód Böngészése

Set Ctrl+F4 as Close Tab shortcut + add test include file.

Martijn Laan 1 éve
szülő
commit
963fdbde61
3 módosított fájl, 12 hozzáadás és 0 törlés
  1. 2 0
      Projects/CompForm.dfm
  2. 2 0
      Projects/Debug.iss
  3. 8 0
      Projects/Debug2.iss

+ 2 - 0
Projects/CompForm.dfm

@@ -531,6 +531,7 @@ object CompileForm: TCompileForm
       end
       object VCloseTab: TMenuItem
         Caption = 'Close Tab'
+        ShortCut = 16499
         OnClick = MemoCloseClick
       end
       object VReopenTab: TMenuItem
@@ -4321,6 +4322,7 @@ object CompileForm: TCompileForm
     Top = 51
     object FMClose: TMenuItem
       Caption = 'Close'
+      ShortCut = 16499
       OnClick = MemoCloseClick
     end
     object FMReopen: TMenuItem

+ 2 - 0
Projects/Debug.iss

@@ -2,6 +2,8 @@
 ; Opened when you run the Compil32.dproj project in Debug mode from the Delphi IDE
 ; Use it to test the compiler or Setup or the uninstaller
 
+#include "Debug2.iss"
+
 [Setup]
 AppName=ɯɐɹƃoɹd ʎɯ
 AppVerName=My Program version 1.5

+ 8 - 0
Projects/Debug2.iss

@@ -0,0 +1,8 @@
+; -- Debug2.iss --
+; Included by Debug.iss
+; Use it to test the compiler or Compiler IDE's support for include files
+
+[Code]
+procedure InitializeWizard;
+begin
+end;