Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: listbox und Items.Count

    Delphi
    by Pr0g, 6. Jul 2005
  Hab hier mal ne Funktion geschrieben, welche die Anzahl der sichbaren Items ausgibt. Auch nur teilweise sichtbare Items werden gezählt:
  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...