TListViewEx + FontSize about fmxui HOT 1 OPEN

type
  TMyStringsListCheckAdapter = class(TStringsListCheckAdapter)
  protected
    function GetView(const Index: Integer; ConvertView: TViewBase; Parent: TViewGroup): TViewBase; override;
  end;

{ TMyStringsListCheckAdapter }

function TMyStringsListCheckAdapter.GetView(const Index: Integer;
  ConvertView: TViewBase; Parent: TViewGroup): TViewBase;
var
  ViewItem: TListViewItemCheck;
begin
  Result := inherited;

  // just when first create
  if (ConvertView = nil) or (not (ConvertView is TListTextItem)) then begin
    ViewItem := TListViewItemCheck(Result);
    ViewItem.TextView1.TextSettings.Font.Size := 24;
  end;
end;

procedure TFrameListViewTest.DoShow;
var
  I: Integer;
  Adapter: TMyStringsListCheckAdapter;
begin
  inherited;

  Adapter := TMyStringsListCheckAdapter.Create(nil);
  Adapter.SetArrayLength(1000);
  for I := 0 to Adapter.Count - 1 do
    Adapter.Items[I] := Format('test list item %d', [I]);
  ListViewEx1.Adapter := Adapter;
end;