TcxTreeList 的问题。难为了 4，5个小时了。请大家帮忙！！

2008-11-23 09:13:31 274 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从建模到调参：基于Simulink的两轮差速机器人轨迹跟踪PID控制全流程解析本文详细解析了基于Simulink的两轮差速机器人轨迹跟踪PID控制全流程。从运动学建模入手，对比了基于距离与基于位置偏差的两种控制策略，并重点阐述了高精度轨迹跟踪的控制器设计、Simulink仿真搭建及PID参数整定方法，为移动机器人运动控制提供了完整的仿真实践指南。阅读详情

TcxTreeList 我定义了4个列。
第一列式隐藏的。显示ID
第二列显示名称
第三列是隐藏的保存图片在imagelist 里的ＩＤ
第四列显示图片。把 properties 属性我设置成了image . 想要在这列里显示图片。
手动往里面写数据。可是图片就是显示不出来。下面是我的代码。我如何更改？
图片时从imagelist 里面读出来的　。　每个语句后面我都加了一些注释。　

CategoryInfoGrid.Clear; //CategoryInfoGrid 是TcxTreeList 列表
CategoryInfoList := TaskXML.GetAllCategory; //获得所有的显示数据。 CategoryInfoList 是一个结构数组
for i := low(CategoryInfoList) to high(CategoryInfoList) do
begin
CategoryInfoNode := CategoryInfoGrid.Add;
CategoryInfoNode.Values[0] := CategoryInfoList[i].ID; //ID
CategoryInfoNode.Values[1] := CategoryInfoList[i].Name; //名字
CategoryInfoNode.Values[2] := CategoryInfoList[i].IconID; // 图片在imagelist 里的的ＩＤ
//根据ID 获得BMP
CategoryBMP := TBitmap.Create;
if FrmMainForm.ImgListCateGory.GetBitmap(CategoryInfoList[i].IconID,CategoryBMP) then
begin
GraphStream := TMemoryStream.Create;
CategoryBMP.SaveToStream(GraphStream);
StrFunc.StreamToVariant(GraphStream, GraphVariant);
CategoryInfoNode.values[3] := GraphVariant;
end;
end;

procedure TStrFunc.StreamToVariant(Stream: TMemoryStream; var v: OleVariant);
var
p : pointer;
begin
v := VarArrayCreate ([0, Stream.Size - 1], varByte);
p := VarArrayLock (v);
Stream.Position := 0;
Stream.Read (p^, Stream.Size);
VarArrayUnlock (v);
end;

图片就是显示不出来。　哪位高人能够指点一下。　谢谢了。　

...全文