Listbox-Scrollbalken einfärben?

[Nils_13]

Es gibt auf dem Skingebiet leider nur sehr wenige Komponenten, also kann ich dir für so etwas nur die oben genannte Möglichkeit und empfehlen (naja vlt. das falsche Wort, aber wenn man es machen will) mit BitBlt alles zusammenzusetzen. Es ist halt auch die Frage, was du genau machen möchtest.

Mach erstmal folgendes:
1. ListBox setzen
2. Daneben eine Scrollbar (empfehlenswert sind die XiControls)
3. Wenn alles von der Größe her stimmt, setzt du nun Shapes drumrum und verbindest diese mit Anchors (einfach rumprobieren)
4. Das war es eigentlich schon, aber es gibt noch diese Variante (mach aber bitte erst diese Methode, damit du soweit alles begriffen hast).

1. Eine Klasse schreiben, die eine TListBox, TTrackBar (oder auch eine andere TrackBar) enthält.
2. Einen constructor Create(AOwner : TComponent) in diese Klasse schreiben.
3. Dort am besten die Positionen und Größen festlegen (du kannst natürlich auch Parameter hinter AOwner... setzen, um es komfortabel zu machen, solltest du sowieso). Show in die letzte Zeile des Constructors schreiben
4. Wenn die Klasse TSkinListBox heißt, musst du dann nur noch das schreiben (an der Stelle, an welcher es erstellt werden soll):

Delphi-Quellcode:

var SkinListBox : TSkinListBox;
begin
  SkinListBox := TSkinListBox.Create(Self); // Evtl. noch weitere Parameter
end;