Перейти к содержанию
  • Регистрация
  • 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;

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

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


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

Рекомендуемые сообщения

  • 0

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

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


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

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


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

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

×
×
  • Создать...