ListView Item Hintergrundfarben anpassen nach bestimmten Wert

[Dalai]

Sollte doch eigentlich trivial machbar sein. Beispiel: 0 ist RGB(0,255,0), also volles Grün, und 70 ist dann RGB(255,0,0), also volles Rot. Das in eine Formel gießen und diese in Code und du kannst die Farbe auf das ListView oder worauf auch immer anwenden. Wenn die Farben zu kräftig sind, kann man ja die Intensität abschwächen.

Stichwörter in dem Zusammenhang: ColorToRGB, Funktion/Makro RGB, GetRValue (und analog für G und B).

Grüße
Dalai

[DieDolly]

So meinte ich das eigentlich nicht. Jedes Item soll eine eigene Farbe haben. Von 1 (ganz schwach grün oder so) bis 70 (ziemlich rot).

[DeddyH]

Ja, dazu musst Du nur den Rot- bzw. Grün-Anteil berechnen. Das sollte zu schaffen sein.

[DieDolly]

Den Prozentwert anhand des Properties von 0 bis 255 ausrechnen ist kein Problem. Ich frage mich nur eher, wie man schön von grün, meinetwegen auch weiß über ... im Prinzip also ein Gradient von einer Farbe die signalisiert "wenig" zu einer die signalisiert "viel".

Ich hab sonst noch das hier. Dann erzeuge ich mir hiermit tatsächlich dieses 70-große Array http://www.perbang.dk/rgbgradient/

[DeddyH]

Du hast eine Anfangs- und eine Endfarbe. Von beiden ermittelst Du die RGB-Werte und die jeweiligen Differenzen. Die passende Farbe ergibt sich also aus dem jeweiligen Anfangswert zzgl. Differenz geteilt durch 70 multipliziert mit dem Faktor. Die so errechneten Werte wandelst Du in eine RGB-Farbe um... fertig.

[edit] Differenzen ist nicht ganz korrekt. Gemeint ist je Kanal Endwert minus Anfangswert, das kann also auch negativ werden. [/edit]

[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

[Uwe Raabe]

Das malt zwar einen schönen Gradienten in einem Rechteck, aber löst irgendwie doch nicht das ursprüngliche Problem:

Zitat von DieDolly:

Welches ist eurer Meinung nach die beste Möglichkeit ListView Items Hintergrundfarben farblich nach einem bestimmten Wert anzupassen?

Wenn ich das richtig verstehe, soll der Hintergrund eines Items eine konstante Farbe haben und keinen Gradient, oder?

Unabhängig davon gibt es für so einen Gradienten in Vcl.GraphUtil schon eine fertige Methode GradientFillCanvas, die im Wesentlichen das gleiche tut - nur einfacher zu verwenden.