Question

我实施了log viewer using a TListBox in virtual mode。

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

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

你知道有可能摆脱这个限制吗？我尝试使用SetScrollInfo，但由于限制听起来不在滚动条中，而是在TListBox本身中，因此无效。

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

编辑：使其清楚 - 我不要求（第三方）组件解决方案，但要知道是否有一些低级GDI消息要发送到标准{ {1}}覆盖此限制。如果没有，我将转到专用的TListBox解决方案。

以下是使用TSCROLLINFO的代码：

TCustomControl

要精确解决问题：添加和绘制两个工作，当然（我的工具按预期工作），但不起作用的是垂直滚动条拖动。我重命名了问题的标题，并删除了令人困惑的MSDN文章。

Answer 1

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

首先，一个复制问题的简单项目，下面是一个拥有大约600,000个项目的所有者绘制虚拟（lbVirtualOwnerDraw）列表框（因为项目数据没有缓存，所以不需要花点时间来填充框）。一个高大的列表框可以很容易地跟踪行为：

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;

Answer 2

对于我写的自定义日志查看器，我在虚拟模式下使用TListView，而不是TListBox。效果很好，没有32K的限制，根本不需要摆弄SetScrollInfo()。只需设置Item.Count，其余部分就会自动处理。它甚至还有OnDataHint事件，可以通过仅加载TListView实际需要的数据来优化数据访问。你不能使用TListBox。

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

2 个答案: