daemon.init
-
Постов
12 -
Зарегистрирован
-
Посещение
Сообщения, опубликованные daemon.init
-
-
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
Второй день не могу понять в чём проблема, судя по соседним темам всё должно работать.
-
Нет, такое может только 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;
Как снова получить Bounds VirtualKeyboard когда она открыта
в Виртуальная клавиатура
Опубликовано · Изменено пользователем daemon.init
Да у некоторых телефонов отдельной кнопкой показывается цифровой блок над клавиатурой, мало ли у каких модификаций андройда, клавиатур, есть такое нужно бы и это учесть
У других программ, видно написанных на Java, это отслеживается