daemon.init

Да у некоторых телефонов отдельной кнопкой показывается цифровой блок над клавиатурой, мало ли у каких модификаций андройда, клавиатур, есть такое нужно бы и это учесть

У других программ, видно написанных на Java, это отслеживается

procedure TForm1.FormVirtualKeyboardShown(Sender: TObject; KeyboardVisible: Boolean; const Bounds: TRect);
begin
  VKShowed := true;
  FKBBounds := TRectF.Create(Bounds);
  FKBBounds.TopLeft := ScreenToClient(FKBBounds.TopLeft);
  FKBBounds.BottomRight := ScreenToClient(FKBBounds.BottomRight);
end;

вот так вроде

 

Событие происходит единожды, нужно ещё раз при открытой клавиатуре.

У некоторых клавиатур есть дополнительное меню сверху, которое активируется при нажатии кнопки на открытой клавиатуре.

Нужно снова получить размеры.

OnSizeChange не отлавливает.

Нашёл ответ на основании соседней темы Автоматический переход на вторую строку TLabel

Label1.Align := TAlignLayout.Top;
Label1.AutoSize := True;
Label1.WordWrap := True;

Вариант с ResultingTextSettings.Font не проверял

Смотреть на картинку =)

До переноса осталось ещё много пикселей 320-248=72

Мне нужно ещё на > 72 пикселя набрать символов (ставлю б, она ровно 8 ширины занимает) и только тогда сработает перенос, но буквы будут скрыты внизу

Экран 320х533 коэффициент 1.5 (480х800)

Label Client в ListBoxItem и его в ListBox

Второй день не могу понять в чём проблема, судя по соседним темам всё должно работать.

LabelHeight.zip

Нет, такое может только TListBoxItem

Печально, думал может кто знает какой способ, с ListBox да знаю только он притормаживает.

ListViewItem := ListView.Items.Add;
Image.Parent := ListViewItem;

возможно ли в принципе?

тут от примененного стиля зависит

я наоборот, долго мучился, чтобы  сделать непрозрачным фон у ListBox

Transparent компонента есть а у Item'ов нет, если у них только через стили то и для компонента можно бы было там поменять, странно это всё

XE7

У самого ListView есть свойство Transpatent у Item'ов не нашёл.

Думал чз

ListView.Items.Item[0].Objects.TextObject.Opacity

но видно не то что нужно. Это да для текста.

Потом открыл FMX.ListView в нём есть процедура

procedure TCustomListView.DrawItemsFill ...

в ней при отрисовке на Canvas заменил цвет FBrush.Color на цвет плюс альфа канал например $30FFFFFF работает или цвет или альфа в чёрный цвет, прозрачности нет.

Если есть у компонента прозрачность, то как у итемов включить?

Пока закомментировал строки в FMX.ListView XE7

Потом может чз стиль уберу

        Sep := GetItemGroupSeparators(I);

        FBrush.Color := FItemStyleFrameColor;
        if (Sep and ItemSeparatorTop > 0) and (ItemObjects.Purpose = TListItemPurpose.None) then
        begin
          SepRect.Left := DrawRect.Left;
          SepRect.Right := DrawRect.Right;
          SepRect.Top := AlignValueToPixel(DrawRect.Top);
          SepRect.Bottom := SepRect.Top + SepHeight;

          Canvas.FillRect(SepRect, 0, 0, AllCorners, Opacity, FBrush);
        end;

        if (ItemObjects.Purpose = TListItemPurpose.None) and ((I >= Items.Count - 1) or
          (Items[I + 1].Purpose = TListItemPurpose.None)) then
          begin
            SepRect.Left := DrawRect.Left - 1;
            SepRect.Right := DrawRect.Right + 1;
            SepRect.Top := AlignValueToPixel(DrawRect.Bottom - SepHeight);
            SepRect.Bottom := SepRect.Top + SepHeight;

            Canvas.FillRect(SepRect, 0, 0, AllCorners, Opacity, FBrush);
          end;

Как отключить?

TTextAlign.Trailing применяется, но при изменении размеров ListView выравнивается по левому краю (т.е. по умолчанию).

ListView.BeginUpdate;
ListViewItem := ListView.Items.Add;
ListViewItem.Objects.TextObject.Text := 'Текст';
ListViewItem.Objects.TextObject.TextAlign := TTextAlign.Trailing;
ListView.EndUpdate;