ListView Item Hintergrundfarben anpassen nach bestimmten Wert

[EWeiss]

Delphi-Quellcode:

var
  vert: array [0 .. 1] of TTRIVERTEX;
  gRect: GRADIENT_RECT;
begin    
    vert[0].X := X;
    vert[0].Y := Y;
    vert[0].Red := GetRValue(TopRGB) shl 8;
    vert[0].Green := GetGValue(TopRGB) shl 8;
    vert[0].Blue := GetBValue(TopRGB) shl 8;
    vert[0].Alpha := $0000;
    vert[1].X := xW;
    vert[1].Y := yH;
    vert[1].Red := GetRValue(BottomRGB) shl 8;
    vert[1].Green := GetGValue(BottomRGB) shl 8;
    vert[1].Blue := GetBValue(BottomRGB) shl 8;
    vert[1].Alpha := $0000;
    gRect.UpperLeft := 0;
    gRect.LowerRight := 1;
    GradientFill(DC, @vert, 2, @gRect, 1, GRADIENT_FILL_RECT_V);
end;

gruss