diff options
Diffstat (limited to 'src/gui/gui_listbox.pas')
-rw-r--r-- | src/gui/gui_listbox.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/gui/gui_listbox.pas b/src/gui/gui_listbox.pas index d3164176..219ced11 100644 --- a/src/gui/gui_listbox.pas +++ b/src/gui/gui_listbox.pas @@ -450,6 +450,8 @@ begin end; procedure TfpgBaseListBox.HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); +var + NewFocus: Integer; begin inherited HandleMouseMove(x, y, btnstate, shiftstate); @@ -459,7 +461,11 @@ begin if ((not FMouseDragging) or (btnstate and 1 = 0)) and (not HotTrack) then Exit; //==> - FocusItem := FFirstItem + Trunc((y - FMargin) / RowHeight); + NewFocus := FFirstItem + Trunc((y - FMargin) / RowHeight); + if NewFocus < 1 then + NewFocus := 1; + + FocusItem := NewFocus; end; procedure TfpgBaseListBox.HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); |