TListBoxの文字表示の高さ調整

解決

Moe 2023-11-14 23:19:10 No: 151272

いつもお世話になっております。
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-15 05:45:00 No: 151273

ItemHeight かな

Moe 2023-11-15 06:25:37 No: 151274

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