Увеличение и уменьшение размера

[rakhmet]

TListView, как внезапно выяснилось, напрочь игнорирует системный размер шрифта и в iOS, и в Android. Есть решение, как его можно заставить соответствовать системным настройкам, или же никто не грузит себя этой ерундой?

Наверняка и многие другие компоненты не утруждают себя соответствием системным настройкам, но меня пока интересует только TListView.

[rakhmet]

На чистой форме лежит ListView1, все настройки проекта, формы и компонента - по умолчанию.

 

В коде только это:

procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 25 do
  begin
    with ListView1.Items.Add do
      Text := IntToStr(i);
  end;
end;

 

Запуск как на Android, так и на iOS (и в Platform-режиме, и в Styled-режиме с разными стилями) - не помогает.

Изменено 21 января, 2017 пользователем rakhmet

[Равиль Зарипов (ZuBy)]

такой возможности нет, т.к. (Default) - это константы

если не ошибаюсь для Windows - 12, Android - 16, IOS - ...

для adnroid программно

для ios программно 

[rakhmet]

Ок, а может тогда есть возможность как-то считать эти настройки? Чтобы узнать, что выставил пользователь?

[Равиль Зарипов (ZuBy)]

В 21.01.2017 в 23:08, rakhmet сказал:

Ок, а может тогда есть возможность как-то считать эти настройки? Чтобы узнать, что выставил пользователь?

для IOS можно вот так (не проверял)

// uses iOSapi.UIKit;
aSystemFont := TUIFont.OCClass.systemFontSize;

для андроид, тот способ который выше приложил не работает. всегда выдаёт 1

в андроид студии есть sp и dp (подробней можно почитать тут)