TListBoxの文字表示の高さ調整

解決

Moe 2023-11-14 14:19:10 No: 151272 IP: 192.*.*.*

いつもお世話になっております。
Delphi11.3でFMXアプリケーションを開発しております。
ListBoxについて、お聞きしたい点があり質問させて頂きます。
ListBoxはTextSettingsプロパティが無いため、次の様にTListItemのフォントサイズを指定して変更していますが、表示する高さが足りなくなってしまい文字が重なり合ってしまいます。
これを回避する方法はございますでしょうか？

procedure TForm1.FormShow(Sender: TObject);
var
  listItem: TListBoxItem;
begin
  ListBox1.BeginUpdate;
  begin
    for var i := 0 to 99 do
    begin
      listItem := TListBoxItem.Create(ListBox1);
      listItem.Parent := ListBox1;
      listItem.Text := IntToStr(i);
      listItem.StyledSettings := listItem.StyledSettings-[TStyledSetting.Size, TStyledSetting.Style];
      listItem.TextSettings.Font.Size := 20;
    end;
  end;
  ListBox1.EndUpdate;
end;

編集削除

AAAAA 2023-11-14 20:45:00 No: 151273 IP: 192.*.*.*

ItemHeight かな

編集削除

Moe 2023-11-14 21:25:37 No: 151274 IP: 192.*.*.*

AAAAA さん
いつも有難うございます。
コメント頂きました通り、ListBox1.ItemHeight := 24;等で上手く行きました。
ずっと、TListBoxItemを追い掛けていましたが、TListBoxのプロパティで設定できたのですね（汗;

編集削除