Перейти к содержанию
Fire Monkey от А до Я

daemon.init

Пользователи
  • Постов

    12
  • Зарегистрирован

  • Посещение

Посетители профиля

1 086 просмотров профиля
  1. Да у некоторых телефонов отдельной кнопкой показывается цифровой блок над клавиатурой, мало ли у каких модификаций андройда, клавиатур, есть такое нужно бы и это учесть У других программ, видно написанных на Java, это отслеживается
  2. Событие происходит единожды, нужно ещё раз при открытой клавиатуре.
  3. У некоторых клавиатур есть дополнительное меню сверху, которое активируется при нажатии кнопки на открытой клавиатуре. Нужно снова получить размеры. OnSizeChange не отлавливает.
  4. Нашёл ответ на основании соседней темы Автоматический переход на вторую строку TLabel Label1.Align := TAlignLayout.Top; Label1.AutoSize := True; Label1.WordWrap := True; Вариант с ResultingTextSettings.Font не проверял
  5. Смотреть на картинку =) До переноса осталось ещё много пикселей 320-248=72 Мне нужно ещё на > 72 пикселя набрать символов (ставлю б, она ровно 8 ширины занимает) и только тогда сработает перенос, но буквы будут скрыты внизу Экран 320х533 коэффициент 1.5 (480х800) Label Client в ListBoxItem и его в ListBox Второй день не могу понять в чём проблема, судя по соседним темам всё должно работать. LabelHeight.zip
  6. Печально, думал может кто знает какой способ, с ListBox да знаю только он притормаживает.
  7. ListViewItem := ListView.Items.Add; Image.Parent := ListViewItem; возможно ли в принципе?
  8. Transparent компонента есть а у Item'ов нет, если у них только через стили то и для компонента можно бы было там поменять, странно это всё
  9. daemon.init

    ListViewItem Transpatent, как?

    XE7 У самого ListView есть свойство Transpatent у Item'ов не нашёл. Думал чз ListView.Items.Item[0].Objects.TextObject.Opacity но видно не то что нужно. Это да для текста. Потом открыл FMX.ListView в нём есть процедура procedure TCustomListView.DrawItemsFill ... в ней при отрисовке на Canvas заменил цвет FBrush.Color на цвет плюс альфа канал например $30FFFFFF работает или цвет или альфа в чёрный цвет, прозрачности нет. Если есть у компонента прозрачность, то как у итемов включить?
  10. Пока закомментировал строки в 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;
  11. TTextAlign.Trailing применяется, но при изменении размеров ListView выравнивается по левому краю (т.е. по умолчанию). ListView.BeginUpdate; ListViewItem := ListView.Items.Add; ListViewItem.Objects.TextObject.Text := 'Текст'; ListViewItem.Objects.TextObject.TextAlign := TTextAlign.Trailing; ListView.EndUpdate;
×
×
  • Создать...