Scrollbar Design

[MicMic]

Zitat von EWeiss:

Zitat:

Wie ich oben schon schrieb, gibt es auch verschiedene Zustände (Mausfang, gedrückter Zustand usw.).

Viel spaß dabei nun weist du warum mein Projekt soviel Quelltext verwendet..
Um alles abzudecken dazu reicht nun mal 1 Zeile Quelltext nicht aus.

gruss

Ich habe jetzt 20-30 Zeilen mit einer TScrollBar.
Die geht nämlich mit den VCL-Stilen. Die interne von der TListBox hat ja ein Fehler wie ich versucht habe hier zu beschreiben.
Es war etwas schwer die TScrollBar nun mit der TListBox zu verbinden. Da waren dann ja einige Berechnungen nötig.

Ein Teil davon...

Code:

 I1 := Floor(LBR.ClientHeight / LBR.ItemHeight);
 I2 := ceil(LBR.Count / I1);
 I3 := ceil(I2 / lbr.Columns);
 ScrollBox.Max := i3*10;
 usw.

... halt damit die ScrollBar richtig passt zum Inhalt der TListBox.
Musste dann hier und da ein paar Prüfungen machen (beim Maximieren, Resize, Tastatur).

Aber ich sag ja nicht, dass deine DLL schlecht ist. Ist ja schön, wenn du so etwas zur Verfügung stellst. Mir ist's einfach zu groß. Da hätte ich dann einfach kein Überblick mehr. Und den habe ich gerne, was sowieso schwer ist, wenn das Listing wächst und wächst

Michael