Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nils_13,
15. Feb 2007
:oops:
Ich hatte noch zwei If-Abfragen und noch einen etwas anderen Code:
if ScrollCode = scLineDown then
begin
ZeroMemory(@WinInfo, sizeOf(WinInfo));
WinInfo.cbSize := SizeOf(WinInfo);
GetWindowInfo(lbList.Handle, WinInfo);
iHeight := WinInfo.rcClient.Bottom - WinInfo.rcClient.Top;
xiScrollV.Max := (lbList.Count * lbList.ItemHeight - iHeight) div...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nils_13,
14. Feb 2007
Deine neue Prozedur zum Runterscrollen macht jetzt alles perfekt. :) Jetzt ist halt noch die Frage, was man wegen dem Hochscrollen tun könnte.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nils_13,
13. Feb 2007
Was heißt "Items unterhalb der Listbox" ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nils_13,
13. Feb 2007
Ah, daran könnte es liegen. Er hat lbList.Count (Playlistcount bzw. Listboxcount). Wie muss man denn hierfür den Max-Wert der Trackbar setzen ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nils_13,
13. Feb 2007
Leider nicht.
procedure TfrmMain.lbListScroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
var Rect : TRect;
WinInfo : TWindowInfo;
iHeight : integer;
begin
if ScrollCode = scLineDown then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nils_13,
13. Feb 2007
Thx, das funktioniert perfekt. Wie sieht das dann beim Hochscrollen aus ? Steh gerade echt auf dem Schlauch.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nils_13,
12. Feb 2007
Hi,
wenn man in einer Listbox das Mouserad abfängt, dann möchte ich, dass eine TrackBar die Position erhält, an welcher gerade die ListBox steht. Ich meine NICHT den ItemIndex. Es ist schwer zu erklären, deshalb ist im Anhang ein kleines Beispiel, welches dieses Problem demonstrieren soll: Benutzt einfach den Slider und bewegt ihn ein paar Mal hoch und runter. Ich möchte genau dies mit dem...