Преглед изворни кода

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

florian пре 20 година
родитељ
комит
d298c180c7
3 измењених фајлова са 22 додато и 8 уклоњено
  1. 9 4
      ide/fpdebug.pas
  2. 7 2
      ide/fphelp.pas
  3. 6 2
      ide/fpstre.inc

+ 9 - 4
ide/fpdebug.pas

@@ -1062,9 +1062,10 @@ var
   i,ExitCode : longint;
   ExitAddr,ExitFrame : CORE_ADDR;
 const
-  FirstArgOffset = 2 * sizeof(CORE_ADDR);
-  SecondArgOffset = 3 * sizeof(CORE_ADDR);
-  ThirdArgOffset = 4 * sizeof(CORE_ADDR);
+  { try to find the parameters }
+  FirstArgOffset = -sizeof(pointer);
+  SecondArgOffset = 2*-sizeof(pointer);
+  ThirdArgOffset = 3*-sizeof(pointer);
 
 begin
   BreakIndex:=stop_breakpoint_number;
@@ -3667,7 +3668,11 @@ end.
 
 {
   $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
 
   Revision 1.60  2005/01/08 11:43:18  florian

+ 7 - 2
ide/fphelp.pas

@@ -122,7 +122,7 @@ begin
     hcDOSShell      : S:=hint_dosshell;
     hcQuit          : S:=hint_exit;
     hcRecentFileBase..hcRecentFileBase+10
-                    : S:=hint_openrecentfile;
+                    : S:=hint_openrecentfile+RecentFiles[AHelpCtx-hcRecentFileBase].FileName;
 
     hcEditMenu      : S:=hint_editmenu;
     hcUndo          : S:=hint_editundo;
@@ -146,6 +146,7 @@ begin
     hcSymbol        : S:=hint_symbol;
     hcRunMenu       : S:=hint_runmenu;
     hcRun           : S:=hint_run;
+    hcRunDir        : S:=hint_rundir;
     hcParameters    : S:=hint_runparameters;
     hcResetDebugger : S:=hint_resetprogram;
     hcContToCursor  : S:=hint_rununtilcursor;
@@ -515,7 +516,11 @@ end;
 END.
 {
   $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
 
 }

+ 6 - 2
ide/fpstre.inc

@@ -936,7 +936,7 @@ const
       hint_changedir         = 'Choose a new default directory';
       hint_dosshell          = 'Temporarily exit to shell';
       hint_exit              = 'Exit the IDE';
-      hint_openrecentfile    = 'Open indicated file in a new editor window';
+      hint_openrecentfile    = 'Open ';
       hint_editmenu          = 'Clipboard editing commands';
       hint_editundo          = 'Undo the previous editor operation';
       hint_editredo          = 'Redo the previously undone editor operation';
@@ -1063,7 +1063,11 @@ const
 
 {
   $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
 
   Revision 1.28  2005/02/14 17:13:18  peter