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

+ Use ErrorLine on GotoSource

Browse Source
This commit is contained in:
pierre 2000-02-06 23:42:47 +00:00
parent 05fb7d5941
commit e6a9d2cfd4
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/text/fpviews.pas
View File

@ -1726,6 +1726,7 @@ end;
procedure TMessageListBox.GotoSource; procedure TMessageListBox.GotoSource;
var W: PSourceWindow; var W: PSourceWindow;
P: PMessageItem; P: PMessageItem;
R:TRect;
Row,Col: sw_integer; Row,Col: sw_integer;
begin begin
Message(Application,evBroadcast,cmClearLineHighlights,@Self); Message(Application,evBroadcast,cmClearLineHighlights,@Self);
@ -1736,8 +1737,14 @@ begin
if P^.Row>0 then Row:=P^.Row-1 else Row:=0; if P^.Row>0 then Row:=P^.Row-1 else Row:=0;
if P^.Col>0 then Col:=P^.Col-1 else Col:=0; if P^.Col>0 then Col:=P^.Col-1 else Col:=0;
W:=TryToOpenFile(nil,P^.GetModuleName,Col,Row,true); W:=TryToOpenFile(nil,P^.GetModuleName,Col,Row,true);
Message(Owner,evCommand,cmClose,nil); if assigned(W) then
W^.Select; begin
Message(Owner,evCommand,cmClose,nil);
W^.GetExtent(R);
if (P^.TClass<>0) then
W^.Editor^.SetErrorMessage(P^.GetText(R.B.X-R.A.X));
W^.Select;
end;
Desktop^.UnLock; Desktop^.UnLock;
end; end;
@ -3103,7 +3110,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.57 2000-02-04 00:03:30 pierre Revision 1.58 2000-02-06 23:42:47 pierre
+ Use ErrorLine on GotoSource
Revision 1.57 2000/02/04 00:03:30 pierre
+ SelectInDebugSession lets CPU and watches in front + SelectInDebugSession lets CPU and watches in front
Revision 1.56 2000/02/02 22:51:49 pierre Revision 1.56 2000/02/02 22:51:49 pierre