Listbox selber horizontal scrollen

[Mattze]

Hi,

ich möchte das horizontale Scrolling in einer Listbox (interessehalber) per API vollständig selbst übernehmen.
(Also nicht die horziontale Scrollbar anzeigen und dann automatisch horizontal scrollen, sondern WM_HSCROLL völlig selbst bearbeiten.)

Ich habe dazu ein Beispiel von MS als Vorlage genutzt.
(http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx)

Ich kriege es trotzdem nicht hin.
Insbesondere das Rechteck mit dem fehlenden Teil nach dem Scrolling zu ermitteln und einzubauen.
Weiß jemand, wie das funktioniert?

Ein kleines Codeschnipsel wäre da sehr hilfreich!

Danke und Grüße
Mattze

PS: Ich habe Delphi 7 pro.