7

我有一个数组保存数据将在 TVirtualStringTree 上表示。这个数组是线程安全的和可锁定的。并由另一个线程增长。

我的问题是，当 VST 执行 OnMeasureItem 事件来测量节点的高度时，用于测量的数据在使用 OnGetText 事件打印数据时会发生变化。

我检查了事件的执行顺序，这对我的设计不利。首先它为所有未初始化的节点触发 OnMeasureItem 事件，然后它开始调用 OnGetText 事件。我的意思是，假设我们有 3 个节点，事件将按该顺序触发：

OnMeasureItem for node 1
OnMeasureItem for node 2
OnMeasureItem for node 3
OnGetText for node 1
OnGetText for node 2
OnGetText for node 3

但我需要这样的东西才能锁定：

OnMeasureItem for node 1
OnGetText for node 1

OnMeasureItem for node 2
OnGetText for node 2

OnMeasureItem for node 3
OnGetText for node 3

保持 OnMeasureItem 和 OnGetText 事件之间获得的数据同步的最佳方法是什么？

我不想在所有 OnMeasureItem() 和 OnGetText() 事件期间锁定我的数组。

谢谢你。

添加了onTimer：

procedure TMainForm.SyncHexLog;
begin
  HexLog.BeginUpdate;
  Try
    if (HexLog.RootNodeCount <> FirpList.ComOperationCountLagged) then
      begin
          HexLog.RootNodeCount := FirpList.ComOperationCountLagged;

          // measure for fast scrolling
          HexLog.ReInitNode(HexLog.GetLastNoInit(), True);    

          if FAutoScroll then
          begin
            HexLog.ScrollIntoView(HexLog.GetLast, False, False);
          end;
      end;
  Finally
    HexLog.EndUpdate;
  End;
end;
4

1 回答 1

6

我会尝试通过vsHeightMeasured从节点的状态中删除并随后调用该MeasureItemHeight方法来手动强制项目测量。它会OnMeasureItem再次触发。问题再次出现在这里，因为您不应该多次测量项目节点的文本被更改，但OnMeasureItem由于滚动的东西仍然必须处理。

因此，正如您在评论中提到的，您可以将自己的NodeMeasured标志包含到您的数据结构中，并在节点的文本发生更改时重置它（当您的日志项中的某些数据发生更改时），并在您通过OnGetText强制传递事件后设置它节点高度测量。这是一个伪代码：

procedure TForm1.VirtualStringTreeGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
begin
  ThreadList.LockList;
  try
    // check if the own flag which indicates that the text is new, that
    // the data has changed since the last time you were here in OnGetText
    // is False and if so, force the node measurement to set current node
    // height and set this flag to True to remember we already did this
    if not ThreadList.Items[Node.Index].NodeMeasured then
    begin
      // fake the node measurement, remove the measured flag
      Exclude(Node.States, vsHeightMeasured);
      // this will trigger the OnMeasureItem again because of removed
      // vsHeightMeasured flag from the node's state
      VirtualStringTree.MeasureItemHeight(VirtualStringTree.Canvas, Node);
      // set the NodeMeasured flag to remember we've measured the item
      ThreadList.Items[Node.Index].NodeMeasured := True;
    end;
    // here set the node's text and unlock your thread safe list
    CellText := ThreadList[Node.Index].SomeText;
  finally
    ThreadList.UnlockList;
  end;
end;

并且在您的线程中，当数据发生更改时，您必须将此NodeMeasured标志设置为 False。

if LogHasChanged then
begin
  ThreadList.LockList;
  try
    ThreadList.Items[X].NodeMeasured := False;
    ThreadList.Items[X].SomeText := 'Something new';
  finally
    ThreadList.UnlockList;
  end;
end;
于 2012-04-15T10:16:09.757 回答