Browse Source

* register window messages "<no values available>" and "<debugger error>"
converted to resourcestrings

git-svn-id: trunk@30124 -

nickysn 10 years ago
parent
commit
aa79cd38b3
1 changed files with 11 additions and 9 deletions
  1. 11 9
      ide/fpregs.pas

+ 11 - 9
ide/fpregs.pas

@@ -277,6 +277,8 @@ const
       dialog_registers = 'Register View';
       dialog_registers = 'Register View';
       dialog_fpu = 'FPU View';
       dialog_fpu = 'FPU View';
       dialog_vector = 'Vector Unit View';
       dialog_vector = 'Vector Unit View';
+      msg_registervaluesnotavailable = '<no values available>';
+      msg_registerwindowerror = '<debugger error>';
 
 
 {****************************************************************************
 {****************************************************************************
                          TRegistersView
                          TRegistersView
@@ -492,11 +494,11 @@ const
     begin
     begin
        inherited draw;
        inherited draw;
 {$ifdef NODEBUG}
 {$ifdef NODEBUG}
-       WriteStr(1,0,'<no values available>',7);
+       WriteStr(1,0,msg_registervaluesnotavailable,7);
 {$else NODEBUG}
 {$else NODEBUG}
        If not assigned(Debugger) then
        If not assigned(Debugger) then
          begin
          begin
-            WriteStr(1,0,'<no values available>',7);
+            WriteStr(1,0,msg_registervaluesnotavailable,7);
             exit;
             exit;
          end;
          end;
        if InDraw then exit;
        if InDraw then exit;
@@ -748,7 +750,7 @@ const
 {$endif cpu_known}
 {$endif cpu_known}
          end
          end
        else
        else
-         WriteStr(0,0,'<debugger error>',7);
+         WriteStr(0,0,msg_registerwindowerror,7);
        InDraw:=false;
        InDraw:=false;
 {$endif NODEBUG}
 {$endif NODEBUG}
     end;
     end;
@@ -1056,11 +1058,11 @@ const
     begin
     begin
        inherited draw;
        inherited draw;
 {$ifdef NODEBUG}
 {$ifdef NODEBUG}
-       WriteStr(1,0,'<no values available>',7);
+       WriteStr(1,0,msg_registervaluesnotavailable,7);
 {$else NODEBUG}
 {$else NODEBUG}
        If not assigned(Debugger) then
        If not assigned(Debugger) then
          begin
          begin
-            WriteStr(1,0,'<no values available>',7);
+            WriteStr(1,0,msg_registervaluesnotavailable,7);
             exit;
             exit;
          end;
          end;
        if InDraw then
        if InDraw then
@@ -1183,7 +1185,7 @@ const
 {$endif cpu_known}
 {$endif cpu_known}
          end
          end
        else
        else
-         WriteStr(0,0,'<debugger error>',7);
+         WriteStr(0,0,msg_registerwindowerror,7);
        InDraw:=false;
        InDraw:=false;
 {$endif NODEBUG}
 {$endif NODEBUG}
     end;
     end;
@@ -1440,11 +1442,11 @@ const
     begin
     begin
        inherited draw;
        inherited draw;
 {$ifdef NODEBUG}
 {$ifdef NODEBUG}
-       WriteStr(1,0,'<no values available>',7);
+       WriteStr(1,0,msg_registervaluesnotavailable,7);
 {$else NODEBUG}
 {$else NODEBUG}
        If not assigned(Debugger) then
        If not assigned(Debugger) then
          begin
          begin
-            WriteStr(1,0,'<no values available>',7);
+            WriteStr(1,0,msg_registervaluesnotavailable,7);
             exit;
             exit;
          end;
          end;
        if InDraw then
        if InDraw then
@@ -1513,7 +1515,7 @@ const
 {$endif cpu_known}
 {$endif cpu_known}
          end
          end
        else
        else
-         WriteStr(0,0,'<debugger error>',7);
+         WriteStr(0,0,msg_registerwindowerror,7);
        InDraw:=false;
        InDraw:=false;
 {$endif NODEBUG}
 {$endif NODEBUG}
     end;
     end;