ListView Scrollbar - eigene Farbe

[EWeiss]

Wenn es dich nicht stört Images zu verwenden dann nimm das hier.
erstelle ganz einfache Bitmaps in den ausmaßen mit einer beliebigen Farbe.
Wenn du dann andere Farben zur Laufzeit verwenden möchtest fülle die Images einfach mit FillRect(bla, bla

ändere die funtion uRender zeile 62 nach.. oder addiere eine korrekte Funktion die als Beispiel Win10 erkennt.
Ich habe das schon gemacht aber nicht in dem Beispiel.

Delphi-Quellcode:

function TRender.CompatabilityCheck: Boolean;
begin
//  Result := False;
//
//  if GetOs >= os2K then
    Result := True;
end;

entferne madexcept danach sollte es sich kompilieren lassen.

gruss