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

Message window can be scrolled beyond second to last item

Browse Source
This commit is contained in:
Margers 2025-01-09 21:46:44 +00:00 committed by Michael Van Canneyt
parent 550fd24d29
commit 8e5f22383f
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/ide/fpviews.pas
View File

@ -3405,9 +3405,30 @@ end;
procedure TMessageListBox.HandleEvent(var Event: TEvent);
procedure ScrollTo (req : sw_integer);
begin
TopItem:=Max(0,Min(Range-1,req));
If (VScrollBar <> Nil) Then
VScrollBar^.SetValue(TopItem);
DrawView;
end;
var DontClear: boolean;
begin
case Event.What of
evMouseDown: Begin { Mouse down event }
if (Event.Buttons=mbScrollUp) then { mouse scroll up}
begin
if Event.Double then ScrollTo(TopItem+7) else ScrollTo(TopItem+1);
ClearEvent(Event); { Event was handled }
end else
if (Event.Buttons=mbScrollDown) then { mouse scroll down }
begin
if Event.Double then ScrollTo(TopItem-7) else ScrollTo(TopItem-1);
ClearEvent(Event); { Event was handled }
end;
end;
evKeyDown :
begin
DontClear:=false;