paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 00:50:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ file(line) added in TProgramInfo message list

Browse Source
This commit is contained in:
pierre 1999-02-17 15:04:02 +00:00
parent 15fa23d912
commit 38eb3dc2ed
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/fpviews.pas
View File

@ -2525,9 +2525,9 @@ begin
if ClassS<>'' then
ClassS:=RExpand(ClassS,0)+': ';
S:=ClassS;
if (Module<>nil) {and (ID<>0)} then
S:=S+Module^+' ('+IntToStr(ID)+'): ';
if Text<>nil then S:=ClassS+Text^;
if (Module<>nil) and (ID<>0) then
S:=NameAndExtOf(Module^)+'('+IntToStr(ID)+') '+S;
if Text<>nil then S:=S+Text^;
if length(S)>MaxLen then S:=copy(S,1,MaxLen-2)+'..';
GetText:=S;
end;
@ -3270,7 +3270,10 @@ end;
END.
{
$Log$
Revision 1.14 1999-02-16 12:45:18 pierre
Revision 1.15 1999-02-17 15:04:02 pierre
+ file(line) added in TProgramInfo message list
Revision 1.14 1999/02/16 12:45:18 pierre
* GDBWindow size and grow corrected
Revision 1.13 1999/02/15 09:36:06 pierre