delphi - 如何摆脱TListBox垂直滚动限制？

Question

我已经实现了 log viewer using a TListBox in virtual mode .

它工作正常(对于我编写的所有代码)，按预期显示内容(我什至轻松添加了水平滚动条)，但我想我已经达到了垂直滚动条的某种限制。

也就是说，当我从上到下滚动垂直条时，它不会将内容滚动到列表末尾，而只会滚动到某个限制。

你知道有什么办法可以摆脱这个限制吗？我尝试使用 SetScrollInfo，但它不起作用，因为限制听起来不在滚动条中，而是在 TListBox 本身中。

我知道创建专用TCustomControl的解决方案:在这种情况下，SetScrollInfo将按预期工作。但是有人知道仍然使用 TListBox 的解决方案/技巧吗？

编辑:说清楚 - 我不要求(第三方)组件解决方案，但要知道是否有一些低级 GDI 消息要发送到标准 TListBox 来覆盖此限制。如果没有，我将使用专用的 TCustomControl 解决方案。

这是使用 TSCROLLINFO 的代码:

procedure ScrollVertHuge(Handle: HWND; count: integer);
var Scroll: TSCROLLINFO;
begin
  Scroll.cbSize:= sizeof(Scroll);
  Scroll.fMask := SIF_DISABLENOSCROLL or SIF_RANGE;
  Scroll.nMin := 0;
  Scroll.nMax := count;
  SetScrollInfo(Handle,SB_VERT,Scroll,false);
end;

准确地说:添加和绘制当然都可以(我的工具按预期工作)，但不起作用的是垂直滚动条拖动。我重命名了问题的标题，并删除了已弃用的 MSDN 文章，这些文章令人困惑。

Answer 1

下面的内容可能应该被视为有缺陷的操作系统行为的解决方法，因为除非启用主题，否则列表框控件的默认窗口过程可以很好地处理拇指跟踪。由于某种原因，当启用主题时(此处测试显示的是 Vista 及更高版本)，该控件似乎依赖于 WM_VSCROLL 的 Word 大小滚动位置数据。

首先，一个复制问题的简单项目，下面是一个所有者绘制虚拟 (lbVirtualOwnerDraw) 列表框，其中包含大约 600,000 个项目(由于项目数据未缓存，因此不需要花一点时间填充该框)。高列表框有利于轻松跟踪行为:

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure ListBox1Data(Control: TWinControl; Index: Integer;
      var Data: string);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure FormCreate(Sender: TObject);
  end;

[...]

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Count := 600000;
end;

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: string);
begin
  Data := IntToStr(Index) + ' listbox item number';
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  // just simple drawing to be able to clearly see the items
  if odSelected in State then begin
    ListBox1.Canvas.Brush.Color := clHighlight;
    ListBox1.Canvas.Font.Color := clHighlightText;
  end;
  ListBox1.Canvas.FillRect(Rect);
  ListBox1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, ListBox1.Items[Index]);
end;

要查看问题，只需用拇指跟踪滚动条，您会注意到项目如何从头开始包装，每个 65536 个项目如 Arnaud 在问题评论中所述。当您松开拇指时，它将捕捉到顶部 High(Word) 中的项目。

下面的解决方法拦截控件上的 WM_VSCROLL 并手动执行拇指和项目定位。为了简单起见，该示例使用插入器类，但任何其他子类方法都可以:

type
  TListBox = class(stdctrls.TListBox)
  private
    procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
  end;

[...]

procedure TListBox.WMVScroll(var Msg: TWMVScroll);
var
  Info: TScrollInfo;
begin
  // do not intervene when themes are disabled
  if ThemeServices.ThemesEnabled then begin
    Msg.Result := 0;

    case Msg.ScrollCode of
      SB_THUMBPOSITION: Exit; // Nothing to do, thumb is already tracked
      SB_THUMBTRACK:
        begin
          ZeroMemory(@Info, SizeOf(Info));
          Info.cbSize := SizeOf(Info);
          Info.fMask := SIF_POS or SIF_TRACKPOS;
          if GetScrollInfo(Handle, SB_VERT, Info) and
              (Info.nTrackPos <> Info.nPos) then
            TopIndex := TopIndex + Info.nTrackPos - Info.nPos;
        end;
      else
        inherited;
    end;
  end else
    inherited;
end;