关于ListView的图标及文字的透明效果问题

                            
我的程序中使用了ListView控件,并且用代码在ListView的底部绘制了背景,这样有个问题,ListView中显示的图标及文字是不透明的,很是难看。哪位大虾知道该如何让图标及文字透明?   
  绘制背景的代码如下:在ListView的OnCustomDraw事件下加入如下代码:  
  Var  
        x,y,w,h   :   LongInt;  
  begin  
        with   Image2.Picture.Bitmap   do   begin  
              W   :=   Width;  
              H   :=   Height;  
        end;  
        Y   :=   0;  
        while   Y   <   Height   do   begin  
              X   :=   0;  
              while   X   <   Width   do   begin  
                    lv.Canvas.Draw(X,   Y,   Image2.Picture.Bitmap);  
                    Inc(X,   W);  
              end;  
              Inc(Y,   H);  
        end;  
  end;  
 

查看回复