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

[EWeiss]

Hier eine Aktualisierte Version (erstelle jetzt keinen extra Thread dafür)

1. GDI+ wird dynamisch geladen.
2. Korrekte Windows Version wird erkannt
3. GDI+ Unit 64Bit Kompatibel
4. Hook für TFileListBox addiert
5. madexcept entfernt
6. neue Unit uGetVersion

gruss