paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-26 23:17:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
converted to resourcestrings

git-svn-id: trunk@30124 -
This commit is contained in:
nickysn 2015-03-07 18:11:40 +00:00
parent 67f3e361ed
commit aa79cd38b3
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/fpregs.pas
View File

@ -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;