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

Browser information mouse scroll

Browse Source
This commit is contained in:
Margers 2025-01-09 20:37:57 +00:00 committed by Michael Van Canneyt
parent 7fc62dadfc
commit 51055fa196
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/ide/fpsymbol.pas
View File

@ -745,7 +745,7 @@ begin
end;
evMouseDown :
begin
if Event.double then
if ((Event.buttons and (mbScrollUp or mbScrollDown))=0) and Event.double then
begin
Browse;
ClearEvent(Event);
@ -1379,6 +1379,7 @@ begin
if DontClear=false then ClearEvent(Event);
end;
evMouseDown :
if ((Event.buttons and (mbScrollUp or mbScrollDown))=0) then
begin
{$ifndef HASOUTLINE}
MakeLocal(Event.Where,P);
@ -1672,7 +1673,8 @@ end;
begin
case Event.What of
evMouseDown :
if MouseInView(Event.Where) then
if MouseInView(Event.Where)
and ((Event.buttons and (mbScrollUp or mbScrollDown))=0) then
begin
repeat
MakeLocal(Event.Where,P);
@ -2004,6 +2006,7 @@ begin
ScopeView^.GetText(ScopeView^.Focused,255),
S,@self,
Symbols,S^.References,Anc,S^.MemInfo);
ClearEvent(Event);
end;
end;
end;