Подскажите как у элемента 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;
Вопрос
Котэ
Добрый день .
Подскажите как у элемента TTextObjectAppearance менять ширину текста , при изменение ориентации телефона.
Пробую так
Ничего не происходит. Ширина остается такая же.
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.