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

+ Recent files write full name now as hint in the status line

Browse Source 
* Rundir hint in status line fixed
This commit is contained in:
florian 2005-03-13 12:25:02 +00:00
parent b068bfbfc4
commit d298c180c7
3 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/fpdebug.pas
View File

@ -1062,9 +1062,10 @@ var
i,ExitCode : longint; i,ExitCode : longint;
ExitAddr,ExitFrame : CORE_ADDR; ExitAddr,ExitFrame : CORE_ADDR;
const const
FirstArgOffset = 2 * sizeof(CORE_ADDR); { try to find the parameters }
SecondArgOffset = 3 * sizeof(CORE_ADDR); FirstArgOffset = -sizeof(pointer);
ThirdArgOffset = 4 * sizeof(CORE_ADDR); SecondArgOffset = 2*-sizeof(pointer);
ThirdArgOffset = 3*-sizeof(pointer);
begin begin
BreakIndex:=stop_breakpoint_number; BreakIndex:=stop_breakpoint_number;
@ -3667,7 +3668,11 @@ end.
{ {
$Log$ $Log$
Revision 1.61 2005-02-14 17:13:18 peter Revision 1.62 2005-03-13 12:25:02 florian
+ Recent files write full name now as hint in the status line
* Rundir hint in status line fixed
Revision 1.61 2005/02/14 17:13:18 peter
* truncate log * truncate log
Revision 1.60 2005/01/08 11:43:18 florian Revision 1.60 2005/01/08 11:43:18 florian

9
ide/fphelp.pas
View File

@ -122,7 +122,7 @@ begin
hcDOSShell : S:=hint_dosshell; hcDOSShell : S:=hint_dosshell;
hcQuit : S:=hint_exit; hcQuit : S:=hint_exit;
hcRecentFileBase..hcRecentFileBase+10 hcRecentFileBase..hcRecentFileBase+10
: S:=hint_openrecentfile; : S:=hint_openrecentfile+RecentFiles[AHelpCtx-hcRecentFileBase].FileName;
hcEditMenu : S:=hint_editmenu; hcEditMenu : S:=hint_editmenu;
hcUndo : S:=hint_editundo; hcUndo : S:=hint_editundo;
@ -146,6 +146,7 @@ begin
hcSymbol : S:=hint_symbol; hcSymbol : S:=hint_symbol;
hcRunMenu : S:=hint_runmenu; hcRunMenu : S:=hint_runmenu;
hcRun : S:=hint_run; hcRun : S:=hint_run;
hcRunDir : S:=hint_rundir;
hcParameters : S:=hint_runparameters; hcParameters : S:=hint_runparameters;
hcResetDebugger : S:=hint_resetprogram; hcResetDebugger : S:=hint_resetprogram;
hcContToCursor : S:=hint_rununtilcursor; hcContToCursor : S:=hint_rununtilcursor;
@ -515,7 +516,11 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.10 2005-02-14 17:13:18 peter Revision 1.11 2005-03-13 12:25:02 florian
+ Recent files write full name now as hint in the status line
* Rundir hint in status line fixed
Revision 1.10 2005/02/14 17:13:18 peter
* truncate log * truncate log
} }

8
ide/fpstre.inc
View File

@ -936,7 +936,7 @@ const
hint_changedir = 'Choose a new default directory'; hint_changedir = 'Choose a new default directory';
hint_dosshell = 'Temporarily exit to shell'; hint_dosshell = 'Temporarily exit to shell';
hint_exit = 'Exit the IDE'; hint_exit = 'Exit the IDE';
hint_openrecentfile = 'Open indicated file in a new editor window'; hint_openrecentfile = 'Open ';
hint_editmenu = 'Clipboard editing commands'; hint_editmenu = 'Clipboard editing commands';
hint_editundo = 'Undo the previous editor operation'; hint_editundo = 'Undo the previous editor operation';
hint_editredo = 'Redo the previously undone editor operation'; hint_editredo = 'Redo the previously undone editor operation';
@ -1063,7 +1063,11 @@ const
{ {
$Log$ $Log$
Revision 1.29 2005-03-12 13:48:58 florian Revision 1.30 2005-03-13 12:25:02 florian
+ Recent files write full name now as hint in the status line
* Rundir hint in status line fixed
Revision 1.29 2005/03/12 13:48:58 florian
* fixed string Temporarily exit to DOS * fixed string Temporarily exit to DOS
Revision 1.28 2005/02/14 17:13:18 peter Revision 1.28 2005/02/14 17:13:18 peter