mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-07 05:10:27 +02:00
+ column info added
This commit is contained in:
parent
bcb0017927
commit
9b3222cfbb
@ -245,6 +245,9 @@ begin
|
||||
end;
|
||||
if DontClear=false then ClearEvent(Event);
|
||||
end;
|
||||
evMouse :
|
||||
if Event.double then
|
||||
GotoItem(Focused);
|
||||
end;
|
||||
inherited HandleEvent(Event);
|
||||
end;
|
||||
@ -359,7 +362,7 @@ var S: string;
|
||||
P: PReference;
|
||||
begin
|
||||
P:=References^.At(Item);
|
||||
S:=P^.GetFileName+'('+IntToStr(P^.Position.Y)+')';
|
||||
S:=P^.GetFileName+'('+IntToStr(P^.Position.Y)+','+IntToStr(P^.Position.X)+')';
|
||||
GetText:=copy(S,1,MaxLen);
|
||||
end;
|
||||
|
||||
@ -635,7 +638,10 @@ end;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 1999-01-21 11:54:23 peter
|
||||
Revision 1.4 1999-02-04 13:16:14 pierre
|
||||
+ column info added
|
||||
|
||||
Revision 1.3 1999/01/21 11:54:23 peter
|
||||
+ tools menu
|
||||
+ speedsearch in symbolbrowser
|
||||
* working run command
|
||||
|
Loading…
Reference in New Issue
Block a user