ListView Scrollbar - eigene Farbe

[eholzer]

Ist es möglich in einer ListView die ScrollBars mit eigenen Farben darzustellen?
Es geht nicht um VCL Styles oder andere Skins.
Wenn jemand ein kleines Beispiel dazu hätte, wäre es toll.

Danke,
Eric

[peterbelow]

Zitat von eholzer:

Ist es möglich in einer ListView die ScrollBars mit eigenen Farben darzustellen?
Es geht nicht um VCL Styles oder andere Skins.
Wenn jemand ein kleines Beispiel dazu hätte, wäre es toll.

Danke,
Eric

VCL oder FMX?

Für die VCL-Scrollbars gibt es zwar im Prinzip eine Möglichkeit, aber die ist so aufwendig, das ich nur davon abraten kann. Die klassischen Windows scrollbars gehören zur nonclient-area eines Fensters, und die kann man selbst zeichnen, wenn man das unbedingt möchte, indem man die WM_NCPAINT-Message behandelt. Man muss dann allerdings alles selbst zeichnen, was zur nonclient area gehört, also auch die Umrandung.

[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