diff --git a/ide/fpcompil.pas b/ide/fpcompil.pas index f8a9dfe1c4..455c4c9723 100644 --- a/ide/fpcompil.pas +++ b/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 diff --git a/ide/fpconst.pas b/ide/fpconst.pas index 1ca1fc981e..9a2c09c63e 100644 --- a/ide/fpconst.pas +++ b/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 diff --git a/ide/fpide.pas b/ide/fpide.pas index 92db1b1bfb..0dac2b62ad 100644 --- a/ide/fpide.pas +++ b/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 diff --git a/ide/fpstre.inc b/ide/fpstre.inc index 542291e4e8..4e32f0a1b4 100644 --- a/ide/fpstre.inc +++ b/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 diff --git a/ide/fpviews.pas b/ide/fpviews.pas index 63139d04c2..3f8a0732cc 100644 --- a/ide/fpviews.pas +++ b/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