• 0
Котэ

Изменение ширины TTextObjectAppearance

Вопросы

Добрый день .

Подскажите как у элемента TTextObjectAppearance менять ширину текста , при изменение ориентации телефона.

Пробую так 

procedure TfrmM.MLVResize(Sender: TObject);
var
  t: TListItemText;
  i: Integer;
  j: Integer;
begin
  if frmM.ClientHeight = 640 then
    i := 290
  else
    i := 400;
  MLV.BeginUpdate;
  for j := 0 to MLV.ItemCount - 1 do
  begin
    t := MLV.Items[j].Objects.FindObjectT<TListItemText>('Klient');
    t.Width := i;
  end;
  MLV.EndUpdate;
end;

Ничего не происходит. Ширина остается такая же.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

2 ответа на этот вопрос

  • 0

а разве не в OnUpdateObjects/OnUpdatingObjects это должно происходить ?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

Да действительно, там туда перенес код, он начал работать.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу