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

Mouse scroll (fast) Compiler Messages and Messages windows

Browse Source
This commit is contained in:
Margers 2024-09-24 11:23:04 +00:00 committed by Michael Van Canneyt
parent e1cb188157
commit 17fc824917
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/ide/wviews.pas
View File

@ -1510,15 +1510,35 @@ end;
procedure TLocalMenuListBox.HandleEvent(var Event: TEvent);
var DontClear: boolean;
P: TPoint;
PROCEDURE MoveFocus (Req: Sw_Integer);
BEGIN
FocusItemNum(Req); { Focus req item }
DrawView; { Redraw focus box }
END;
begin
case Event.What of
evMouseDown :
if MouseInView(Event.Where) and (Event.Buttons=mbRightButton) then
if MouseInView(Event.Where) then
begin
if (Event.Buttons=mbRightButton) then
begin
MakeLocal(Event.Where,P); Inc(P.X); Inc(P.Y);
LocalMenu(P);
ClearEvent(Event);
end;
end else
if (Event.Buttons=mbScrollUp) then { mouse scroll up}
begin
if Event.Double then MoveFocus(Focused+6) else MoveFocus(Focused+1);
ClearEvent(Event);
end else
if (Event.Buttons=mbScrollDown) then { mouse scroll down }
begin
if Event.Double then MoveFocus(Focused-6) else MoveFocus(Focused-1);
ClearEvent(Event);
end;
end;
evKeyDown :
begin
DontClear:=false;