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.

[Whookie]

Ähm, vielleicht verstehe ich da was nicht richtig, aber ohne eingeblendete ScrollBar gibts kein WM_xSCROLL. Automatisch scrollen gibts von Windows aus sowieso nicht, erst der Anwender (oder bei Delphi Komponenten-) Code führt dann das scrolling durch.
Wobei wenn Du den SetScrollInfo() wie im MSDN-Beispiel gezeigt verwendest wird die Scrollbar sowieso angezeigt... ob du willst oder nicht.

Oder willst du einfach nur zufallsgesteuert rumscrollen?

[Mattze]

Hi,

gut, nicht ganz richtig erklärt.
Ich will NICHT die "normale" horizontale Scrollbar der Listbox benutzen (z. Bsp. durch Scrollwidth setzen), sondern das per API völlig selber übernehmen.
GetScrollInfo, SetScrollInfo, ScrollWindow oder ScrollDC usw...

Beim Scrolling nach links oder rechts wird an einer Seite immer ein "ungültiger Bereich" entstehen, der "nachgefüllt" werden muss. Diese Füllen kriege ich nicht hin, also das Rechteck aus der Listbox und ihren Items zu erzeugen und einzubauen.

Das vertikale Scrolling ist relativ einfach, weil es da nur um volle Zeilen geht und man von vornherein weiß, wo man ist. Aber eben horizontal...

Gruß
Mattze

[Der schöne Günther]

Reicht nicht einfach das ScrollBy für alle TWinControl-Ableitungen?

[Mattze]

Ach ja...

Ich habe doch deutlich geschrieben, dass ich NICHT den Automatismus von Delphi benutzen möchte, sondern alles per API selber machen möchte. (Interessehalber, wie das "intern" funktioniert.)

Die aufgeführten Begriffe (bzw. Funktionen) waren nur ein Beispiel für mögliche Funktionen, die nutzbar und nötig sein KÖNNTEN.

Wenn Äpfel und Birnen etwas mit Scrolling zu tun hätten, hätte ich die auch dazu geschrieben.

Gruß
Matthias

[Whookie]

Da du ja "weg" scrollst (egal in welche Richtung) musst du den Text neu ausgeben, versetzt um die gescrollte Breite und über eine Region so begrenzt dass nur der fehlende Bereich dargestellt werden muss.

[p80286]

Zitat von Mattze:

Das vertikale Scrolling ist relativ einfach, weil es da nur um volle Zeilen geht und man von vornherein weiß, wo man ist. Aber eben horizontal...

Das kommt auf den verwendeten Font an. Ich würde den Text auf eine beliebige canvas ausgeben und dann den Ausschnitt der für die Anzeige benötigt wird herauskopieren.
(ich muß zugeben ich hab es nicht so mit Graphik aufm Rechner)

Wenn ich dich richtig verstanden habe willst Du ja nicht um jeweils eine Postion/Buchstaben verschieben?

Gruß
K-H

[Mattze]

Hallo,

richtig. Ich will das nicht um nur einen Buchstaben verschieben, sondern, wie die Listbox es macht, um tmAveCharWidth (aus TTextMetrics), wie es die Listbox ja auch macht.
Aber selbst, wenn es um einen Buchstaben ginge, wäre das schon ein Problem, da es ja nicht nur eine Zeile ist.

Das mit der Ausgabe zuerst auf einen Canvas, wäre eine Idee. Allerdings vermute ich, dass dann das Prinzip ListBox (items usw.) konterkariert werden würde. Und, ob das schnell genug ist...
(Mit Doubelbuffered:=true hat man ja eigentlich schon sowas. Aber, ob man an diesen versteckten Canvas rankommt und wie???)

Gruß
Mattze

[Whookie]

Sag mal, auf Basis welcher Komponente willst Du das umsetzten?

[Whookie]

Zitat von Mattze:

Das mit der Ausgabe zuerst auf einen Canvas, wäre eine Idee. Allerdings vermute ich, dass dann das Prinzip ListBox (items usw.) konterkariert werden würde. Und, ob das schnell genug ist...
(Mit Doubelbuffered:=true hat man ja eigentlich schon sowas. Aber, ob man an diesen versteckten Canvas rankommt und wie???)

Naja, desswegen ... Da du ja einen Canvas verwenden willst .. und dann auch noch an einen versteckten war ich etwas verwirrt...

Also, wenn ich dich richtig verstehe möchtest du eine ListBox-Komponente machen ohne irgendeine Delphi-Unit zu verwenden?