listbox und Items.Count

[Wishmaster]

Hi

Ich benutze ne Listbox als ne Playlist für en kleinen Player. Zu meiner frage wie kann ich Rauskriegen wie viel items sichtbar sind? Ich will die Listbox(Playlist) nachträglich updaten allerdings nur die sichtbare items.

[Pr0g]

Hab hier mal ne Funktion geschrieben, welche die Anzahl der sichbaren Items ausgibt. Auch nur teilweise sichtbare Items werden gezählt:

Delphi-Quellcode:

function GetVisibleItemCount(const AListBox: TListBox): Integer;
begin
  if (AListBox.ItemHeight = 0) or (AListBox.Count = 0) then
    Result := 0
  else
    Result := Min(Ceil(AListBox.ClientHeight / AListBox.ItemHeight), AListBox.Count);
end;

Eventuell musst du die Unit "Math" einbinden, für die Funktion Min(). Hier ein Beispielaufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fCount: Integer;
begin
  fCount := GetVisibleItemCount(ListBox1);
  ShowMessage('Sichtbare Items: ' + IntToStr(fCount));
end;

MfG Pr0g

[Wishmaster]

Hi

genau das habe ich gesucht. Besten dank für deine Hilfe :thumb:

[padavan]

Moin,
liese sich das auch für eine Listview realisieren?

Also um genau zu sein, wollte ich das auch anwenden, stolpere aber z.B. über dieses Problem:

Delphi-Quellcode:

AListview.ItemHeight  // gibt´s so für eine Listview nicht.

Kann es außerdem sein, dass es "maths" für die Personal-Edition nicht gibt?
:(
Wenn ich in Uses "maths" einbinden will, gibt´s Gemecker, dass maths.dcu nicht gefunden wurde

[leddl]

Hat ja auch keiner was von "maths" gesagt :zwinker:

[padavan]

:oops:

aber da war ja noch das andere Problemchen....

Hab´s: (glaub ich)

Delphi-Quellcode:

listview.font.size

[leddl]

Wobei Font.Size nur die Größe der Schrift angibt, und nich die der Items. ;) Würd dir gern helfen, hab aber momentan kein Delphi installiert :oops: *schäm* Such einfach mal weiter in den Properties der ListView. Irgendwas sollte es da schon geben...

[padavan]

Danke dir trotzdem,
hab´s zwar so jetzt hinbekommen, musste aber einen unschönen Eingriff vornehmen.
Für mich funktioniert´s aber und ist ausreichend, weil meine Listview eine feste Größe hat.

CU
:hi:

[marabu]

Hallo padavan,

kennst du schon die Eigenschaft VisibleRowCount der ListView?

Freundliche Grüße vom marabu

[padavan]

Ha, das ist mal wieder typisch marabu,

prägnant, präzise, einfach --> genau das was ich brauche

Viele Dank

Grüße
Padavan