mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 02:45:58 +02: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