Làm thế nào để tô màu các ô trộn với ảnh nền trong VirtualTreeView?

Question

Tôi đang sử dụng VT.Background để hiển thị hình nền trong VT với một vài cột.
Nhưng tôi không thể tìm cách sử dụng các màu khác nhau cho các ô vì chúng ẩn hình nền.

Tôi đã cố gắng sử dụng OnBeforeItemErase nhưng nếu tôi sử dụng EraseAction := eaColor khu vực bitmap nền trên ô cũng đang được vẽ, nếu tôi sử dụng eaDefault thì màu không được áp dụng.

Bất kỳ ý tưởng nào về cách thực hiện điều này?

Answer 1

Chỉ cần một nỗ lực để đoán nếu đó là những gì bạn đang tìm kiếm:

Cập nhật:
Added một chức năng màu hoà trộn cho máy CPU không MMX.

procedure ColorBlend(const ACanvas: HDC; const ARect: TRect; 
    const ABlendColor: TColor; const ABlendValue: Integer); 
var 
    DC: HDC; 
    Brush: HBRUSH; 
    Bitmap: HBITMAP; 
    BlendFunction: TBlendFunction; 
begin 
    DC := CreateCompatibleDC(ACanvas); 
    Bitmap := CreateCompatibleBitmap(ACanvas, ARect.Right - ARect.Left, 
    ARect.Bottom - ARect.Top); 
    Brush := CreateSolidBrush(ColorToRGB(ABlendColor)); 
    try 
    SelectObject(DC, Bitmap); 
    Windows.FillRect(DC, Rect(0, 0, ARect.Right - ARect.Left, 
     ARect.Bottom - ARect.Top), Brush); 
    BlendFunction.BlendOp := AC_SRC_OVER; 
    BlendFunction.BlendFlags := 0; 
    BlendFunction.AlphaFormat := 0; 
    BlendFunction.SourceConstantAlpha := ABlendValue; 
    Windows.AlphaBlend(ACanvas, ARect.Left, ARect.Top, 
     ARect.Right - ARect.Left, ARect.Bottom - ARect.Top, DC, 0, 0, 
     ARect.Right - ARect.Left, ARect.Bottom - ARect.Top, BlendFunction); 
    finally 
    DeleteObject(Brush); 
    DeleteObject(Bitmap); 
    DeleteDC(DC); 
    end; 
end; 

procedure TForm1.VirtualStringTree1BeforeCellPaint(Sender: TBaseVirtualTree; 
    TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; 
    CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); 
var 
    BlendColor: TColor; 
    BlendValue: Integer; 
begin 
    if CellPaintMode = cpmPaint then 
    begin 
    case Column of 
     0: BlendColor := $000080FF; 
     1: BlendColor := $0046C2FF; 
     2: BlendColor := $0046F5FF; 
    end; 
    BlendValue := 145; 
    if not VirtualTrees.MMXAvailable then 
     ColorBlend(TargetCanvas.Handle, CellRect, BlendColor, BlendValue) 
    else 
     VirtualTrees.Utils.AlphaBlend(0, TargetCanvas.Handle, CellRect, Point(0, 0), 
     bmConstantAlphaAndColor, BlendValue, ColorToRGB(BlendColor)); 
    end; 
end; 

Xem trước đoạn code trên: