delphi - 带有delphi虚拟树组件的动态图标

Question

我需要知道如何为虚拟树组件中的每个节点存储和加载两个不同的图标，这两个图标的大小也不同

谢谢

Answer 1

除非您要自己绘制整个事物，否则我所知道的没有控件支持异构图标大小，包括虚拟树视图。给定视图的所有图标都取自单个TImageList控件，并且TImageList一次仅支持一种图像大小。

您可以通过将图像大小设置为较大图标的大小，然后将较小的图标绘制到恰好用透明边框填充的较大图标上，来使图标看起来具有不同的大小。

如果您一次只需要支持一种图标大小，那么您可以维护两个单独的TImageList控件。当您想要切换大小时，请重新分配树控件的ImageList属性。您可能还需要调整DefaultNodeHeight属性以及已存在的所有节点的高度。

Answer 2

这适用于我使用 TPngImageList。我认为这个实现应该适用于标准的 TImageList，但使用 png 图像是更好的选择。

在此示例中，表单类名称为“TfPrj”，TvirtualStringTree 实例名称为“vPrj”，而 TMyDataRecord 是您获取数据的记录结构。

1. 您的表单有一个 TVirtualStringTree 链接到一个 TPngImageList 并设置了 16x16 标准图标。但是您想为某些节点使用 64x64 图标集。
2. 使用 64x64 图标集创建您的 TPngImageList，称为 iLarge。

3. 在您的代码中管理这样的自定义绘图。

   var
     p: TMyDataRecord;
   
   const
     riskImagesSize=64;
     riskImagesPadding=2;
   
   procedure FindP(Node: PVirtualNode);
   begin
     // This procedure fill in the "p" record with your tree data for the node.
   end;
   
   procedure TfPrj.vPrjMeasureItem(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
     Node: PVirtualNode; var NodeHeight: Integer);
   begin
     FindP(Node);
     if p<>nil then
       if p.LargeImages then
         NodeHeight := riskImagesSize+riskImagesPadding*2;
   
   end;
   
   procedure TfPrj.vPrjBeforeCellPaint(Sender: TBaseVirtualTree;
     TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
     CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
   begin
     if Column=0 then begin
       FindP(Node);
       if p<>nil then begin
         if p.LargeImages then begin
           Inc(ContentRect.Left,riskImagesSize);
       end;
     end;
   end;
   
   
   procedure TfPrj.vPrjDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
     Node: PVirtualNode; Column: TColumnIndex; const Text: string;
     const CellRect: TRect; var DefaultDraw: Boolean);
   var
     i: integer;
     s: string;
   begin
     FindP(Node);
     if Column=0 then
       if p<>nil then
         if p.LargeImages then begin
           iLarge.Draw(TargetCanvas,CellRect.Left-riskImagesSize-riskImagesPadding*2,CellRect.Top+riskImagesPadding,p.LargeImagesIndex);
         end;
   end;
   
   procedure TfPrj.vPrjGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
     Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
     var ImageIndex: Integer);
   begin
     if Column<>0 then
       Exit;
     FindP(Node);
     if p.LargeImages then
       ImageIndex=-1
     else
       // Assign the image index for standard TPngImageList
   
   end;