paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 12:40:25 +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 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; var DontClear: boolean;
begin begin
case Event.What of 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 : evKeyDown :
begin begin
DontClear:=false; DontClear:=false;