Delphi 使用TVirtualStringTree.OnGetImageIndex覆盖图像
我想在Delphi 使用TVirtualStringTree.OnGetImageIndex覆盖图像,delphi,virtualtreeview,tvirtualstringtree,Delphi,Virtualtreeview,Tvirtualstringtree,我想在vtTest组件中显示ImageList1中的图像作为覆盖 我在互联网上和这里找到了很多类似的资源，但我无法让它们都正常工作 我肯定我遗漏了一些非常琐碎的东西，但我不知道它可能是什么 我得到的：我想要的： 下面是一个表单，它包含了显示我的问题的基本示例 Unit1.pas unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Cla
vtTestImageList1我得到的：我想要的：
下面是一个表单，它包含了显示我的问题的基本示例
Unit1.pasunit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VirtualTrees, Vcl.ImgList;
type
PMyVtTestData = ^TMyVtTestData;
TMyVtTestData = record
isLocked: Boolean;
end;
TForm1 = class(TForm)
vtTest: TVirtualStringTree;
ImageList1: TImageList;
procedure FormCreate(Sender: TObject);
procedure vtTestGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
var ImageIndex: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i, j, m: Integer;
Node, Node1, Node2: PVirtualNode;
procedure SetCustomNodeDataValue(const Node: PVirtualNode; const Value: Boolean = False);
var
Data: PMyVtTestData;
begin
Data := vtTest.GetNodeData(Node);
Data^.isLocked := Value;
end;
begin
vtTest.NodeDataSize := SizeOf(TMyVtTestData);
//initialize some node
//every TMyVtTestData.isLocked = False, except the 3rd TMyVtTestData.isLocked which is True
Randomize;
for i := 0 to Random(3)+3 do begin
Node := vtTest.AddChild(nil);
SetCustomNodeDataValue(Node, i = 2);
for j := 0 to Random(3)+2 do begin
Node1 := vtTest.AddChild(Node);
SetCustomNodeDataValue(Node1);
for m := 0 to Random(5) do begin
Node2 := vtTest.AddChild(Node1);
SetCustomNodeDataValue(Node2);
end;
end;
end;
end;
procedure TForm1.vtTestGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer);
var
Data: PMyVtTestData;
begin
if Node = nil then
Exit;
case Column of
0: begin
if Kind in [ikNormal, ikSelected] then
ImageIndex := 0
else if Kind = ikOverlay then begin
Data := Sender.GetNodeData(Node);
if Data^.isLocked then
ImageIndex := 1;
end;
end;
end;
end;
end.
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 313
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
DesignSize = (
313
300)
PixelsPerInch = 96
TextHeight = 13
object vtTest: TVirtualStringTree
Left = 8
Top = 8
Width = 298
Height = 284
Anchors = [akLeft, akTop, akRight, akBottom]
Header.AutoSizeIndex = -1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Images = ImageList1
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
Images = ImageList1
TabOrder = 0
OnGetImageIndex = vtTestGetImageIndex
Columns = <
item
Position = 0
Width = 200
WideText = 'column'
end>
end
object ImageList1: TImageList
Left = 256
Top = 240
Bitmap = {
494C010102000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000868686003535350000000000000000000000000000000000939393005757
5700000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000D9D9
D9000505050000000000B1B1B1000000000000000000FCFCFC00222222000000
0000A2A2A2000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000CCCC
CC00353535007D7D7D002525250066666600939393001E1E1E00646464003434
340085858500000000000000000000000000000000000000000000000000140C
EB00B1AEF900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B1AE
F900140CEB000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000006E6E6E0000000000000000002E2E2E00000000000000
0000000000000000000000000000000000000000000000000000140CEB000000
00000300EA00B9B6F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9B6F9000300
EA0000000000140CEB0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000007171
7100000000002F2F2F0015151500D0D0D000F0F0F00031313100252525002121
21005F5F5F000000000000000000000000000000000000000000B1AEF9000300
EA002018EC00160DEC00B9B6F900FFFFFF00FFFFFF00B9B6F900160DEC002018
EC000300EA00B1AEF90000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000BFBF
BF00000000002222220000000000000000000000000000000000666666000000
0000979797000000000000000000000000000000000000000000FFFFFF00B9B6
F900160DEC002018EC000300EA00B1AEF900B1AEF9000300EA002018EC00160D
EC00B9B6F900FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000096969600B9B9B900000000007676760048484800D8D8D800EEEEEE006565
6500F8F8F8000000000000000000000000000000000000000000FFFFFF00FFFF
FF00B9B6F9000300EA0000000000140CEB00140CEB00000000000300EA00B9B6
F900FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000E9E9E900313131000000000010101000000000009F9F9F000000
0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00FFFFFF00B1AEF900140CEB000000000000000000140CEB00B1AEF900FFFF
FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000001919190000000000353535007272720000000000000000009999
9900000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00FFFFFF00B1AEF900140CEB000000000000000000140CEB00B1AEF900FFFF
FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00009A9A9A003B3B3B00000000004F4F4F0000000000B3B3B300C3C3C3004040
4000000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00B9B6F9000300EA0000000000140CEB00140CEB00000000000300EA00B9B6
F900FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000D0D0D0062626200000000006F6F6F0000000000E5E5E500000000000000
0000ADADAD000000000000000000000000000000000000000000FFFFFF00B9B6
F900160DEC002018EC000300EA00B1AEF900B1AEF9000300EA002018EC00160D
EC00B9B6F900FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000E2E2
E2000202020001010100555555000A0A0A000000000033333300444444000000
0000848484000000000000000000000000000000000000000000B1AEF9000300
EA002018EC00160DEC00B9B6F900FFFFFF00FFFFFF00B9B6F900160DEC002018
EC000300EA00B1AEF90000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000DEDE
DE00040404000000000000000000000000000000000000000000000000000000
00007E7E7E000000000000000000000000000000000000000000140CEB000000
00000300EA00B9B6F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9B6F9000300
EA0000000000140CEB0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00003C3C3C000000000000000000000000000000000000000000000000000000
0000BDBDBD00000000000000000000000000000000000000000000000000140C
EB00B1AEF900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B1AE
F900140CEB000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000E1E1E1000E0E0E0000000000000000000000000000000000000000007676
7600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000F5F5F5008787870042424200363636005C5C5C00C3C3C3000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF00F3CFFFFF00000000E187FFFF00000000
E007E00700000000FC3FD00B00000000E007C00300000000E3C7C00300000000
F207C24300000000F81FC18300000000F80FC18300000000F20FC24300000000
F227C00300000000E007C00300000000E007D00B00000000F007E00700000000
F00FFFFF00000000F81FFFFF0000000000000000000000000000000000000000
000000000000}
end
end
Unit1.dfmunit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VirtualTrees, Vcl.ImgList;
type
PMyVtTestData = ^TMyVtTestData;
TMyVtTestData = record
isLocked: Boolean;
end;
TForm1 = class(TForm)
vtTest: TVirtualStringTree;
ImageList1: TImageList;
procedure FormCreate(Sender: TObject);
procedure vtTestGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
var ImageIndex: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i, j, m: Integer;
Node, Node1, Node2: PVirtualNode;
procedure SetCustomNodeDataValue(const Node: PVirtualNode; const Value: Boolean = False);
var
Data: PMyVtTestData;
begin
Data := vtTest.GetNodeData(Node);
Data^.isLocked := Value;
end;
begin
vtTest.NodeDataSize := SizeOf(TMyVtTestData);
//initialize some node
//every TMyVtTestData.isLocked = False, except the 3rd TMyVtTestData.isLocked which is True
Randomize;
for i := 0 to Random(3)+3 do begin
Node := vtTest.AddChild(nil);
SetCustomNodeDataValue(Node, i = 2);
for j := 0 to Random(3)+2 do begin
Node1 := vtTest.AddChild(Node);
SetCustomNodeDataValue(Node1);
for m := 0 to Random(5) do begin
Node2 := vtTest.AddChild(Node1);
SetCustomNodeDataValue(Node2);
end;
end;
end;
end;
procedure TForm1.vtTestGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer);
var
Data: PMyVtTestData;
begin
if Node = nil then
Exit;
case Column of
0: begin
if Kind in [ikNormal, ikSelected] then
ImageIndex := 0
else if Kind = ikOverlay then begin
Data := Sender.GetNodeData(Node);
if Data^.isLocked then
ImageIndex := 1;
end;
end;
end;
end;
end.
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 313
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
DesignSize = (
313
300)
PixelsPerInch = 96
TextHeight = 13
object vtTest: TVirtualStringTree
Left = 8
Top = 8
Width = 298
Height = 284
Anchors = [akLeft, akTop, akRight, akBottom]
Header.AutoSizeIndex = -1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Images = ImageList1
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
Images = ImageList1
TabOrder = 0
OnGetImageIndex = vtTestGetImageIndex
Columns = <
item
Position = 0
Width = 200
WideText = 'column'
end>
end
object ImageList1: TImageList
Left = 256
Top = 240
Bitmap = {
494C010102000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000868686003535350000000000000000000000000000000000939393005757
5700000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000D9D9
D9000505050000000000B1B1B1000000000000000000FCFCFC00222222000000
0000A2A2A2000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000CCCC
CC00353535007D7D7D002525250066666600939393001E1E1E00646464003434
340085858500000000000000000000000000000000000000000000000000140C
EB00B1AEF900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B1AE
F900140CEB000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000006E6E6E0000000000000000002E2E2E00000000000000
0000000000000000000000000000000000000000000000000000140CEB000000
00000300EA00B9B6F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9B6F9000300
EA0000000000140CEB0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000007171
7100000000002F2F2F0015151500D0D0D000F0F0F00031313100252525002121
21005F5F5F000000000000000000000000000000000000000000B1AEF9000300
EA002018EC00160DEC00B9B6F900FFFFFF00FFFFFF00B9B6F900160DEC002018
EC000300EA00B1AEF90000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000BFBF
BF00000000002222220000000000000000000000000000000000666666000000
0000979797000000000000000000000000000000000000000000FFFFFF00B9B6
F900160DEC002018EC000300EA00B1AEF900B1AEF9000300EA002018EC00160D
EC00B9B6F900FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000096969600B9B9B900000000007676760048484800D8D8D800EEEEEE006565
6500F8F8F8000000000000000000000000000000000000000000FFFFFF00FFFF
FF00B9B6F9000300EA0000000000140CEB00140CEB00000000000300EA00B9B6
F900FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000E9E9E900313131000000000010101000000000009F9F9F000000
0000000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00FFFFFF00B1AEF900140CEB000000000000000000140CEB00B1AEF900FFFF
FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000001919190000000000353535007272720000000000000000009999
9900000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00FFFFFF00B1AEF900140CEB000000000000000000140CEB00B1AEF900FFFF
FF00FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00009A9A9A003B3B3B00000000004F4F4F0000000000B3B3B300C3C3C3004040
4000000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00B9B6F9000300EA0000000000140CEB00140CEB00000000000300EA00B9B6
F900FFFFFF00FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000D0D0D0062626200000000006F6F6F0000000000E5E5E500000000000000
0000ADADAD000000000000000000000000000000000000000000FFFFFF00B9B6
F900160DEC002018EC000300EA00B1AEF900B1AEF9000300EA002018EC00160D
EC00B9B6F900FFFFFF0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000E2E2
E2000202020001010100555555000A0A0A000000000033333300444444000000
0000848484000000000000000000000000000000000000000000B1AEF9000300
EA002018EC00160DEC00B9B6F900FFFFFF00FFFFFF00B9B6F900160DEC002018
EC000300EA00B1AEF90000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000DEDE
DE00040404000000000000000000000000000000000000000000000000000000
00007E7E7E000000000000000000000000000000000000000000140CEB000000
00000300EA00B9B6F900FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9B6F9000300
EA0000000000140CEB0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00003C3C3C000000000000000000000000000000000000000000000000000000
0000BDBDBD00000000000000000000000000000000000000000000000000140C
EB00B1AEF900FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B1AE
F900140CEB000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000E1E1E1000E0E0E0000000000000000000000000000000000000000007676
7600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000F5F5F5008787870042424200363636005C5C5C00C3C3C3000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF00F3CFFFFF00000000E187FFFF00000000
E007E00700000000FC3FD00B00000000E007C00300000000E3C7C00300000000
F207C24300000000F81FC18300000000F80FC18300000000F20FC24300000000
F227C00300000000E007C00300000000E007D00B00000000F007E00700000000
F00FFFFF00000000F81FFFFF0000000000000000000000000000000000000000
000000000000}
end
end
对象格式1:t格式1
左=0
Top=0
标题='Form1'
ClientHeight=300
ClientWidth=313
颜色=clBtnFace
Font.Charset=默认字符集
Font.Color=clWindowText
字体高度=-11
Font.Name='Tahoma'
Font.Style=[]
OldCreateOrder=False
OnCreate=FormCreate
设计尺寸=(
313
300)
PixelsPerInch=96
text高度=13
对象vtTest:TVirtualStringTree
左=8
Top=8
宽度=298
高度=284
锚定=[akLeft、akTop、akRight、akBottom]
Header.AutoSizeIndex=-1
Header.Font.Charset=默认字符集
Header.Font.Color=clWindowText
Header.Font.Height=-11
Header.Font.Name='Tahoma'
Header.Font.Style=[]
Header.Images=ImageList1
Header.Options=[hoColumnResize，hoDrag，hoShowSortGlyphs，hoVisible]
Images=ImageList1
TabOrder=0
OnGetImageIndex=vtTestGetImageIndex
列=<
项目
位置=0
宽度=200
WideText='列'
结束>
结束
对象ImageList1:TImageList
左=256
Top=240
位图={
494C01010200050004001000FFFFFFFF10FFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000868686003535350000000000000000000000000000000000939393005757
5700000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000 D9D9
D9000505000000000B1B1B1000000000000000000FC0022222000000
0000A2A2000000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000中国交建
CC00353535007D7D7D002525250066666009393001E1E1E00646464003434
34008585850000000000000000000000000000000000000000000000000000000140C
EB00B1AEF900FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00B1AE
F900140CEB000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000 6E6E6E0000000000000000002E2E000000000000000
00000000000000000000000000000000000000000000000000000140CEB000000
00000300EA00B9B6F900FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00B9B6F9000300
EA0000000000140CEB0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000007171
7100000000002F2F2F00015151500D0D0D000F0F00031313100252525002121
21005F5F5F000000000000000000000000000000000000B1AEF9000300
EA002018EC00160DEC000B9B6F900FFFF00FF00B9B6F900160DEC0018
EC000300EA00B1AEF90000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000BF
BF0000000000222220000000000000000000000000000006666000000
00009797970000000000000000000000000000000000000000000000000FFFF00B9B6
F900160DEC002018EC000300EA00B1AEF900B1AEF9000300EA002018EC00160D
EC00B9B6F900FFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000096969600B9B90000000007676760048484800D8D8D800EEEE006565
6500F8F8000000000000000000000000000000000000000000000000FFFFFF00FFFF
FF00B9B6F90000300EA0000000000140CEB00140CEB000000000003000EA00B9B6
F900FFFF00FFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000 E9E9E900313100000000000101000000009F9F9F000000
00000000000000000000000
procedure TForm1.vtTestGetImageIndexEx(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind;
Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer; var ImageList: TCustomImageList);
var
Data: PMyVtTestData;
begin
if Node = nil then Exit;
case Column of
0: begin
if Kind in [ikNormal, ikSelected] then ImageIndex:= 0
else if Kind = ikOverlay then begin
Data:= Sender.GetNodeData(Node);
if Data^.isLocked then
ImageIndex:= 1+16;
end;
end;
end;
ImageList:= Self.ImageList1; //Or use a separate imagelist for overlays.
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageList1.Overlay(1 , 0); // 1 = "Lock" index; 0=overlay index
// second overlay - just for example:
ImageList1.Overlay(7 , 1); // 7 = "Shortcut" index; 1=overlay index
end;
...
if Kind = ikOverlay then begin
if Data^.isLocked then
ImageIndex := 0
else
if Data^.isShortcut then
ImageIndex := 1
end