listview显示背景 with Bitmap1 do
begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do
begin
X := 0;
while X < Width do
begin
ListView.Canvas.Draw(X, Y, Bitmap1);
Inc(X, W);
end;
Inc(Y, H);
end;
在加入item时Items.Add.Caption :=FileName;
Items.Item[iconnum].ImageIndex :=iconNum;
所显示的图标和caption都有背景,如何才能让图标和caption都是以bitmap1为背景,也
就是说是透明的
begin
W := Width;
H := Height;
end;
Y := 0;
while Y < Height do
begin
X := 0;
while X < Width do
begin
ListView.Canvas.Draw(X, Y, Bitmap1);
Inc(X, W);
end;
Inc(Y, H);
end;
在加入item时Items.Add.Caption :=FileName;
Items.Item[iconnum].ImageIndex :=iconNum;
所显示的图标和caption都有背景,如何才能让图标和caption都是以bitmap1为背景,也
就是说是透明的
SendMessage(listview.handle, LVM_SETTEXTBKCOLOR, 0, crNone);
SendMessage (handle, LVM_REDRAWITEMS, 0, lItemCount - 1);