paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* implemented reload menu item

Browse Source 
* increased file history to 9 files
This commit is contained in:
florian 2004-11-20 14:21:19 +00:00
parent 826564f0ff
commit f95a1b6770
5 changed files with 33 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/fpcompil.pas
View File

@ -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

12
ide/fpconst.pas
View File

@ -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

9
ide/fpide.pas
View File

@ -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

7
ide/fpstre.inc
View File

@ -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

8
ide/fpviews.pas
View File

@ -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