mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 10:11:27 +01:00 
			
		
		
		
	* implemented reload menu item
* increased file history to 9 files
This commit is contained in:
		
							parent
							
								
									826564f0ff
								
							
						
					
					
						commit
						f95a1b6770
					
				| @ -633,7 +633,7 @@ begin | |||||||
|     end; |     end; | ||||||
| { only display line info every 100 lines, ofcourse all other messages | { only display line info every 100 lines, ofcourse all other messages | ||||||
|   will be displayed directly } |   will be displayed directly } | ||||||
|   if (getrealtime-lasttime>=0.1) or (status.compiledlines=1) then |   if (getrealtime-lasttime>=CompilerStatusUpdateDelay) or (status.compiledlines=1) then | ||||||
|    begin |    begin | ||||||
|      lasttime:=getrealtime; |      lasttime:=getrealtime; | ||||||
|      { update info messages } |      { update info messages } | ||||||
| @ -1256,7 +1256,11 @@ end; | |||||||
| end. | end. | ||||||
| { | { | ||||||
|   $Log$ |   $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 |     * reduced status updates by making them time dependend | ||||||
| 
 | 
 | ||||||
|   Revision 1.30  2004/11/14 21:45:28  florian |   Revision 1.30  2004/11/14 21:45:28  florian | ||||||
|  | |||||||
| @ -24,12 +24,12 @@ uses Views,App, | |||||||
| const | const | ||||||
|      VersionStr           = '0.9.3'; |      VersionStr           = '0.9.3'; | ||||||
| 
 | 
 | ||||||
|      MaxRecentFileCount   = 5; |      MaxRecentFileCount   = 9; | ||||||
|      MaxToolCount         = 16; |      MaxToolCount         = 16; | ||||||
| 
 | 
 | ||||||
|      ReservedWordMaxLen   = 16; |      ReservedWordMaxLen   = 16; | ||||||
| 
 | 
 | ||||||
|      CompilerStatusUpdateDelay = 0.8; { in secs } |      CompilerStatusUpdateDelay = 0.1; { in secs } | ||||||
| 
 | 
 | ||||||
| {$undef USE_SPECIAL_BASENAME} | {$undef USE_SPECIAL_BASENAME} | ||||||
| {$ifdef m68k} | {$ifdef m68k} | ||||||
| @ -186,6 +186,7 @@ const | |||||||
|      cmPasteWin          = 241; |      cmPasteWin          = 241; | ||||||
|      cmRegisters         = 242; |      cmRegisters         = 242; | ||||||
|      cmFPURegisters      = 243; |      cmFPURegisters      = 243; | ||||||
|  |      cmDoReload          = 244; | ||||||
| 
 | 
 | ||||||
|      cmNotImplemented    = 1000; |      cmNotImplemented    = 1000; | ||||||
|      cmNewFromTemplate   = 1001; |      cmNewFromTemplate   = 1001; | ||||||
| @ -247,7 +248,6 @@ const | |||||||
| 
 | 
 | ||||||
|      cmEditorOptions     = 2202; |      cmEditorOptions     = 2202; | ||||||
|      cmBrowserOptions    = 2203; |      cmBrowserOptions    = 2203; | ||||||
|      cmDoReload          = 2204; |  | ||||||
| 
 | 
 | ||||||
|      cmTrackReference    = 2300; |      cmTrackReference    = 2300; | ||||||
|      cmGotoReference     = 2301; |      cmGotoReference     = 2301; | ||||||
| @ -471,7 +471,11 @@ implementation | |||||||
| END. | END. | ||||||
| { | { | ||||||
|   $Log$ |   $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 |     * Breakpoints are now deleted when removed from source, disabling is | ||||||
|       still possible from the breakpoint list |       still possible from the breakpoint list | ||||||
|     * COMPILER_1_0, FVISION, GABOR defines removed, only support new |     * COMPILER_1_0, FVISION, GABOR defines removed, only support new | ||||||
|  | |||||||
| @ -307,6 +307,7 @@ begin | |||||||
|       NewItem(menu_file_new,'',kbNoKey,cmNew,hcNew, |       NewItem(menu_file_new,'',kbNoKey,cmNew,hcNew, | ||||||
|       NewItem(menu_file_template,'',kbNoKey,cmNewFromTemplate,hcNewFromTemplate, |       NewItem(menu_file_template,'',kbNoKey,cmNewFromTemplate,hcNewFromTemplate, | ||||||
|       NewItem(menu_file_open,menu_key_file_open,kbF3,cmOpen,hcOpen, |       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_save,menu_key_file_save,kbF2,cmSave,hcSave, | ||||||
|       NewItem(menu_file_saveas,'',kbNoKey,cmSaveAs,hcSaveAs, |       NewItem(menu_file_saveas,'',kbNoKey,cmSaveAs,hcSaveAs, | ||||||
|       NewItem(menu_file_saveall,'',kbNoKey,cmSaveAll,hcSaveAll, |       NewItem(menu_file_saveall,'',kbNoKey,cmSaveAll,hcSaveAll, | ||||||
| @ -314,7 +315,7 @@ begin | |||||||
|       NewItem(menu_file_changedir,'',kbNoKey,cmChangeDir,hcChangeDir, |       NewItem(menu_file_changedir,'',kbNoKey,cmChangeDir,hcChangeDir, | ||||||
|       NewItem(menu_file_dosshell,'',kbNoKey,cmDOSShell,hcDOSShell, |       NewItem(menu_file_dosshell,'',kbNoKey,cmDOSShell,hcDOSShell, | ||||||
|       NewItem(menu_file_exit,menu_key_file_exit,kbNoKey,cmQuit,hcQuit, |       NewItem(menu_file_exit,menu_key_file_exit,kbNoKey,cmQuit,hcQuit, | ||||||
|       nil))))))))))), |       nil)))))))))))), | ||||||
|     NewSubMenu(menu_edit,hcEditMenu, NewMenu( |     NewSubMenu(menu_edit,hcEditMenu, NewMenu( | ||||||
|       NewItem(menu_edit_undo,menu_key_edit_undo, kbAltBack, cmUndo, hcUndo, |       NewItem(menu_edit_undo,menu_key_edit_undo, kbAltBack, cmUndo, hcUndo, | ||||||
|       NewItem(menu_edit_redo,'', kbNoKey, cmRedo, hcRedo, |       NewItem(menu_edit_redo,'', kbNoKey, cmRedo, hcRedo, | ||||||
| @ -1240,7 +1241,11 @@ end; | |||||||
| END. | END. | ||||||
| { | { | ||||||
|   $Log$ |   $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 |     * fixed non working mouse after tools call | ||||||
|     * better handling of source/target info |     * better handling of source/target info | ||||||
|     * more info in about dialog |     * more info in about dialog | ||||||
|  | |||||||
| @ -53,6 +53,7 @@ const | |||||||
|       menu_file_save         = '~S~ave'; |       menu_file_save         = '~S~ave'; | ||||||
|       menu_file_saveas       = 'Save ~a~s...'; |       menu_file_saveas       = 'Save ~a~s...'; | ||||||
|       menu_file_saveall      = 'Save a~l~l'; |       menu_file_saveall      = 'Save a~l~l'; | ||||||
|  |       menu_file_reload       = '~R~eload'; | ||||||
|       menu_file_changedir    = '~C~hange dir...'; |       menu_file_changedir    = '~C~hange dir...'; | ||||||
|       menu_file_dosshell     = 'Comman~d~ shell'; |       menu_file_dosshell     = 'Comman~d~ shell'; | ||||||
|       menu_file_exit         = 'E~x~it'; |       menu_file_exit         = 'E~x~it'; | ||||||
| @ -1057,7 +1058,11 @@ const | |||||||
| 
 | 
 | ||||||
| { | { | ||||||
|   $Log$ |   $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 |     * renamed Delphi 2 extensions on to Object pascal support | ||||||
| 
 | 
 | ||||||
|   Revision 1.21  2004/11/14 21:45:28  florian |   Revision 1.21  2004/11/14 21:45:28  florian | ||||||
|  | |||||||
| @ -474,7 +474,7 @@ procedure NoDebugger; | |||||||
| 
 | 
 | ||||||
| const | const | ||||||
|       SourceCmds  : TCommandSet = |       SourceCmds  : TCommandSet = | ||||||
|         ([cmSave,cmSaveAs,cmCompile,cmHide]); |         ([cmSave,cmSaveAs,cmCompile,cmHide,cmDoReload]); | ||||||
|       EditorCmds  : TCommandSet = |       EditorCmds  : TCommandSet = | ||||||
|         ([cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch]); |         ([cmFind,cmReplace,cmSearchAgain,cmJumpLine,cmHelpTopicSearch]); | ||||||
|       CompileCmds : TCommandSet = |       CompileCmds : TCommandSet = | ||||||
| @ -4439,7 +4439,11 @@ end; | |||||||
| END. | END. | ||||||
| { | { | ||||||
|   $Log$ |   $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 |     * fixed non working mouse after tools call | ||||||
|     * better handling of source/target info |     * better handling of source/target info | ||||||
|     * more info in about dialog |     * more info in about dialog | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 florian
						florian