paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 15:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Add handling of multiline GDBVersion string,

Browse Source 
used to display help message if GDBMI does not find GDB executable.
  + Add Nikolay Nikolov to the contributor list in new GDBMI section.

git-svn-id: trunk@34434 -
This commit is contained in:
pierre 2016-09-05 13:12:45 +00:00
parent fb2a726dbd
commit 95520ea767
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/fpviews.pas
View File

@ -4245,7 +4245,7 @@ end;
constructor TFPAboutDialog.Init;
var R,R2: TRect;
C: PUnsortedStringCollection;
I: integer;
I,nblines: integer;
OSStr: string;
procedure AddLine(S: string);
begin
@ -4272,12 +4272,23 @@ begin
if pos('Fake',GDBVersion)=0 then
begin
R2.Move(0,1);
nblines:=1;
for i:=1 to length(GDBVersion) do
if GDBVersion[i]=#13 then
inc(nblines);
R2.B.Y:=R2.A.Y+nblines;
if nblines>1 then
GrowTo(Size.X,Size.Y+nblines-1);
{$ifdef GDBMI}
Insert(New(PStaticText, Init(R2, FormatStrStr2(^C'(%s %s, using MI interface)',label_about_debugger,GDBVersion))));
if GDBVersionOK then
Insert(New(PStaticText, Init(R2, FormatStrStr2(^C'(%s %s, using MI interface)',label_about_debugger,GDBVersion))))
else
Insert(New(PStaticText, Init(R2, FormatStrStr(^C'%s',GDBVersion))));
{$else}
Insert(New(PStaticText, Init(R2, FormatStrStr2(^C'(%s %s)',label_about_debugger,GDBVersion))));
{$endif}
R2.Move(0,1);
R2.Move(0,nblines);
R2.B.Y:=R2.A.Y+1;
end
else
{$endif NODEBUG}
@ -4311,6 +4322,9 @@ begin
AddLine(^C'Peter Vreman');
AddLine(^C'Pierre Muller');
AddLine('');
AddLine(^C'< GDBMI development >');
AddLine(^C'Nikolay Nikolov');
AddLine('');
GetExtent(R);
R.Grow(-1,-1); Inc(R.A.Y,3);