daemon.init
Пользователи-
Постов
12 -
Зарегистрирован
-
Посещение
Весь контент daemon.init
-
Как снова получить Bounds VirtualKeyboard когда она открыта
daemon.init опубликовал вопрос в Виртуальная клавиатура
У некоторых клавиатур есть дополнительное меню сверху, которое активируется при нажатии кнопки на открытой клавиатуре. Нужно снова получить размеры. OnSizeChange не отлавливает. -
Смотреть на картинку =) До переноса осталось ещё много пикселей 320-248=72 Мне нужно ещё на > 72 пикселя набрать символов (ставлю б, она ровно 8 ширины занимает) и только тогда сработает перенос, но буквы будут скрыты внизу Экран 320х533 коэффициент 1.5 (480х800) Label Client в ListBoxItem и его в ListBox Второй день не могу понять в чём проблема, судя по соседним темам всё должно работать. LabelHeight.zip
-
Печально, думал может кто знает какой способ, с ListBox да знаю только он притормаживает.
-
ListViewItem := ListView.Items.Add; Image.Parent := ListViewItem; возможно ли в принципе?
-
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;
-
[TListView] Как скрыть разделительную линию между итемами?
daemon.init опубликовал вопрос в TListView
Как отключить? -
TTextAlign.Trailing применяется, но при изменении размеров ListView выравнивается по левому краю (т.е. по умолчанию). ListView.BeginUpdate; ListViewItem := ListView.Items.Add; ListViewItem.Objects.TextObject.Text := 'Текст'; ListViewItem.Objects.TextObject.TextAlign := TTextAlign.Trailing; ListView.EndUpdate;