Browse Source

* implemented reload menu item
* increased file history to 9 files

florian 20 years ago
parent
commit
f95a1b6770
5 changed files with 33 additions and 11 deletions
  1. 6 2
      ide/fpcompil.pas
  2. 8 4
      ide/fpconst.pas
  3. 7 2
      ide/fpide.pas
  4. 6 1
      ide/fpstre.inc
  5. 6 2
      ide/fpviews.pas

+ 6 - 2
ide/fpcompil.pas

@@ -633,7 +633,7 @@ begin
     end;
 { only display line info every 100 lines, ofcourse all other messages
   will be displayed directly }
-  if (getrealtime-lasttime>=0.1) or (status.compiledlines=1) then
+  if (getrealtime-lasttime>=CompilerStatusUpdateDelay) or (status.compiledlines=1) then
    begin
      lasttime:=getrealtime;
      { update info messages }
@@ -1256,7 +1256,11 @@ end;
 end.
 {
   $Log$
-  Revision 1.31  2004-11-20 10:18:41  florian
+  Revision 1.32  2004-11-20 14:21:19  florian
+    * implemented reload menu item
+    * increased file history to 9 files
+
+  Revision 1.31  2004/11/20 10:18:41  florian
     * reduced status updates by making them time dependend
 
   Revision 1.30  2004/11/14 21:45:28  florian

+ 8 - 4
ide/fpconst.pas

@@ -24,12 +24,12 @@ uses Views,App,
 const
      VersionStr           = '0.9.3';
 
-     MaxRecentFileCount   = 5;
+     MaxRecentFileCount   = 9;
      MaxToolCount         = 16;
 
      ReservedWordMaxLen   = 16;
 
-     CompilerStatusUpdateDelay = 0.8; { in secs }
+     CompilerStatusUpdateDelay = 0.1; { in secs }
 
 {$undef USE_SPECIAL_BASENAME}
 {$ifdef m68k}
@@ -186,6 +186,7 @@ const
      cmPasteWin          = 241;
      cmRegisters         = 242;
      cmFPURegisters      = 243;
+     cmDoReload          = 244;
 
      cmNotImplemented    = 1000;
      cmNewFromTemplate   = 1001;
@@ -247,7 +248,6 @@ const
 
      cmEditorOptions     = 2202;
      cmBrowserOptions    = 2203;
-     cmDoReload          = 2204;
 
      cmTrackReference    = 2300;
      cmGotoReference     = 2301;
@@ -471,7 +471,11 @@ implementation
 END.
 {
   $Log$
-  Revision 1.15  2004-11-08 20:28:26  peter
+  Revision 1.16  2004-11-20 14:21:19  florian
+    * implemented reload menu item
+    * increased file history to 9 files
+
+  Revision 1.15  2004/11/08 20:28:26  peter
     * Breakpoints are now deleted when removed from source, disabling is
       still possible from the breakpoint list
     * COMPILER_1_0, FVISION, GABOR defines removed, only support new

+ 7 - 2
ide/fpide.pas

@@ -307,6 +307,7 @@ begin
       NewItem(menu_file_new,'',kbNoKey,cmNew,hcNew,
       NewItem(menu_file_template,'',kbNoKey,cmNewFromTemplate,hcNewFromTemplate,
       NewItem(menu_file_open,menu_key_file_open,kbF3,cmOpen,hcOpen,
+      NewItem(menu_file_reload,'',kbNoKey,cmDoReload,hcDoReload,
       NewItem(menu_file_save,menu_key_file_save,kbF2,cmSave,hcSave,
       NewItem(menu_file_saveas,'',kbNoKey,cmSaveAs,hcSaveAs,
       NewItem(menu_file_saveall,'',kbNoKey,cmSaveAll,hcSaveAll,
@@ -314,7 +315,7 @@ begin
       NewItem(menu_file_changedir,'',kbNoKey,cmChangeDir,hcChangeDir,
       NewItem(menu_file_dosshell,'',kbNoKey,cmDOSShell,hcDOSShell,
       NewItem(menu_file_exit,menu_key_file_exit,kbNoKey,cmQuit,hcQuit,
-      nil))))))))))),
+      nil)))))))))))),
     NewSubMenu(menu_edit,hcEditMenu, NewMenu(
       NewItem(menu_edit_undo,menu_key_edit_undo, kbAltBack, cmUndo, hcUndo,
       NewItem(menu_edit_redo,'', kbNoKey, cmRedo, hcRedo,
@@ -1240,7 +1241,11 @@ end;
 END.
 {
   $Log$
-  Revision 1.32  2004-11-14 21:45:28  florian
+  Revision 1.33  2004-11-20 14:21:19  florian
+    * implemented reload menu item
+    * increased file history to 9 files
+
+  Revision 1.32  2004/11/14 21:45:28  florian
     * fixed non working mouse after tools call
     * better handling of source/target info
     * more info in about dialog

+ 6 - 1
ide/fpstre.inc

@@ -53,6 +53,7 @@ const
       menu_file_save         = '~S~ave';
       menu_file_saveas       = 'Save ~a~s...';
       menu_file_saveall      = 'Save a~l~l';
+      menu_file_reload       = '~R~eload';
       menu_file_changedir    = '~C~hange dir...';
       menu_file_dosshell     = 'Comman~d~ shell';
       menu_file_exit         = 'E~x~it';
@@ -1057,7 +1058,11 @@ const
 
 {
   $Log$
-  Revision 1.22  2004-11-20 10:10:32  florian
+  Revision 1.23  2004-11-20 14:21:19  florian
+    * implemented reload menu item
+    * increased file history to 9 files
+
+  Revision 1.22  2004/11/20 10:10:32  florian
     * renamed Delphi 2 extensions on to Object pascal support
 
   Revision 1.21  2004/11/14 21:45:28  florian

+ 6 - 2
ide/fpviews.pas

@@ -474,7 +474,7 @@ procedure NoDebugger;
 
 const
       SourceCmds  : TCommandSet =
-        ([cmSave,cmSaveAs,cmCompile,cmHide]);
+        ([cmSave,cmSaveAs,cmCompile,cmHide,cmDoReload]);
       EditorCmds  : TCommandSet =
         ([cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch]);
       CompileCmds : TCommandSet =
@@ -4439,7 +4439,11 @@ end;
 END.
 {
   $Log$
-  Revision 1.50  2004-11-14 21:45:29  florian
+  Revision 1.51  2004-11-20 14:21:19  florian
+    * implemented reload menu item
+    * increased file history to 9 files
+
+  Revision 1.50  2004/11/14 21:45:29  florian
     * fixed non working mouse after tools call
     * better handling of source/target info
     * more info in about dialog