Активность

Лента обновляется автоматически     

  1. Сегодня
  2. wamaco

    Произвольные компоненты в TListView

    Можно еще попробовать Grid, но на мобильных это не принято, но если очень хочется....
  3. Вчера
  4. krapotkin

    Произвольные компоненты в TListView

    нет. если мало итемов, используйте ListBox если много, нужно пересмотреть дизайн приложения Не может быть Edit на ListView не только потому что невозможно, но и потому что не должно так быть
  5. sezavasasilov

    Произвольные компоненты в TListView

    Добрый день. Есть ли способ добавить в ListViewItem любые визуальные компоненты? Например, TEdit. Стандартные примеры просты по функциональности, но сложны в реализации кастомных итемов для неподготовленного человека. Может возможно сделать это проще и быстрее?
  6. Встройте движок Chromium в свое приложение и будет счастье или обработайте нажатие кнопки и вызовите свою процедуру формирования дерева папок и файлов с возможностью выбора!
  7. Zyablik3000

    Компонент - наследник TPresentedScrollBox

    Всем спасибо) Решение нашел сам. Прочитав http://yaroslavbrovin.ru/new-approach-of-development-of-firemonkey-control-control-model-presentation-part-1-ru/ и другие материалы с этой странички (к слову: жутко полезная информация) перекрыл в своем компоненте функцию function DefinePresentationName: string; override; function TScrBox.DefinePresentationName: string; begin Result:='PresentedScrollBox-style'; end; Дело оказалось в том, что не загружалась презентация для моего компонента (а модель создавалась), точнее пыталась загрузиться презентация 'ScrBox-style', прокси для которой не зарегистрирован. Ведь имя презентации формировалось как 'Имя класса' + '-style' Но этого оказалось недостаточно. Еще понадобилось задать свойство StyleLookup:='scrollboxstyle'; т.к. скроллбары и прочие контролы берутся из стиля TStyledCustomScrollBox'а, который описан в FMX.ScrollBox.Style. Надеюсь кому-то поможет, и этот кто-то не будет как я тратить на решение этой задачи три дня жизни. Test.7z
  8. Как сделать чтобы кнопка "Выбрать файл" работала в TWebBrowser под android? На картинке html страница с примером кнопки, которая работает в мобильном chrome браузере при открытии. Эта же страница с кнопкой загружаемая в TWebBrowser под android не работает. В windows работает.
  9. Barbanel

    Image в рамке TRectangle

    Вы хотите обрезать углы у Image? Насколько я знаю, таким образом не получится. Нужно работать с альфаканалом Image.
  10. Прошло само собой на следующий день (может перезагрузка повлияла).
  11. Dmitry Stolyarov

    Image в рамке TRectangle

    Margins (4) выставлен 2. Нужно чтобы углов у image не было. То есть image “влилась» по рамке rectangle
  12. Dmitry Stolyarov

    Image в рамке TRectangle

    У rectangle выставлено MustTop, у image Client, пробовал Content. Результат тот же..
  13. Barbanel

    Image в рамке TRectangle

    Align у Image есть? Margins?
  14. Сергей Сергеев

    Редизайн, создание стиля, существующего приложения

    Бюджет 40000 р. срок 2-3 недели - до файла стилей.
  15. Dmitry Stolyarov

    Image в рамке TRectangle

    Добавил TRectangle в стиль. Поместил Image в Rectangle. При выводе Image выходит за рамки Rectangle. Подскажите, пжл, что делаю не так?
  16. Последняя неделя
  17. Друже! Ты прекратил мои мучения. Ибо всякие извращения с обращением Query.Fields('lalala').AsBytes и тому подобное приводили к AV на закрытии Query. При этом тип поля - TVarBytesField (почему-то именно так распознается VARBINARY в SQLite...).
  18. спасибо, и в правду так проще, возвращаюсь назад в будущее )
  19. Zyablik3000

    Компонент - наследник TPresentedScrollBox

    Как нечего? А TPanel? У неё же parent:=scrollbox. Если не наследовать, а просто бросить на форму TPresentedScrollBox и задать contentsize и autocalculatecontentsize=false, то все норм. И скроллбары и скроллинг есть.
  20. rareMax

    Компонент - наследник TPresentedScrollBox

    зачем скролл - если нечего скроллить? кинь в скроллбокс компонент, который будет пересекать границу родителя - и будет тебе скролл
  21. Zyablik3000

    Компонент - наследник TPresentedScrollBox

    Нет, не появляется.
  22. Barbanel

    Компонент - наследник TPresentedScrollBox

    А если панельке задать высоту в 2000 пикселей, скролл появляется?
  23. Zyablik3000

    Компонент - наследник TPresentedScrollBox

    Здравствуйте! Есть такой код: unit Unit2; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.ScrollBox, FMX.StdCtrls; type TScrBox = class(TPresentedScrollBox) public constructor Create(AOwner: TComponent); override; procedure Paint; override; end; TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } FContentChange: TNotifyEvent; public { Public declarations } end; var Form2: TForm2; implementation {$R *.fmx} { TScrBox } constructor TScrBox.Create(AOwner: TComponent); begin inherited Create(AOwner); end; procedure TScrBox.Paint; begin inherited; Canvas.DrawDashRect(LocalRect, 0, 0, AllCorners, 1, TAlphaColorRec.Red); end; procedure TForm2.Button1Click(Sender: TObject); var ScrBox: TScrBox; Pnl: TPanel; begin ScrBox:=TScrBox.Create(Self); ScrBox.Parent:=Self; ScrBox.AutoCalculateContentSize:=False; ScrBox.ContentSize.Width:=1000; ScrBox.ContentSize.Height:=1000; Pnl:=TPanel.Create(ScrBox); Pnl.Parent:=ScrBox; Pnl.Position.X:=10; Pnl.Position.Y:=10; end; end. Однако, вопреки ожиданиям, при клике на Button1 получаю Ни скроллбаров, ни панельки внутри ScrBox. Подскажите, что не так? Как правильно унаследоваться от TPresentedScrollBox?
  24. я так понимаю должен открыться выбор файла? ну на андройде логику выбора файла придется реализовывать самому... стандартного нет
  25. На андроид 4.4 протестировал тоже самое не работает тоже.
  26. Евгений Корепов

    Реализовать рейтинг

    Вместо рисования звезды в TPath, проще использовать соотвествующий символ юникода. Char($2606) // Не закрашенная звезда Char($2605) // Закрашенная звезда https://unicode-table.com/ru/sets/stars-symbols/ Можно даже для еврейский магазинов сделать рейтинг 😉
  27. Евгений Корепов

    Raise убивает программу для Android

    Просто возьмите это под свой контроль - не используйте встроенный SearchBox, а создайте отдельное поле TEdit, а фильтрацию обрабатывайте руками. TListViewFilterEx = record Category : String; Name : String; Cart : String; end; procedure TFormMain.SearchBoxChangeTracking(Sender: TObject); begin Setting.Filter.Name:=SearchBox.Text; ListViewFilterEx(ListViewAction, Setting.Filter); LoadVisibleListViewItem(ListViewAction); end; procedure TFormMain.ListViewFilterEx(AListView : TListView; AFilter : TListViewFilterEx); begin AListView.Items.FilterEx:= function(X: TListItem): Boolean begin Result:= (AFilter.Category.IsEmpty or TListViewItem(X).Data['Category'].AsString.ToLower.Contains(AFilter.Category.ToLower)) And ((AFilter.Name.IsEmpty or TListViewItem(X).Data['Name'].AsString.ToLower.Contains(AFilter.Name.ToLower)) or (AFilter.Name.IsEmpty or TListViewItem(X).Data['Detail'].AsString.ToLower.Contains(AFilter.Name.ToLower))); end; end; procedure TFormMain.LoadVisibleListViewItem(const AListView : TListView; ATopItemIndex : Integer = -1); Var LTopItemIndex, I : Integer; begin if Setting.Flags.ListViewActionLoaded then begin if ATopItemIndex=-1 then LTopItemIndex:=GetListViewTopItemIndex(AListView) else LTopItemIndex:=ATopItemIndex; for I := LTopItemIndex to LTopItemIndex + LoadVisibleListViewItemCount do if I<=AListView.ItemCount-1 then begin AListView.Adapter.ResetView(AListView.Items.Item[I]); end; end; end; Суффикс Ex в AListView.Items.FilterEx игнорируйте, используйте AListView.Items.Filter. Это я для нормального поиска (по всем полям и Data, а не только по Text) переписывал исходники ListView... С таким кодом возможно у вас будет больше возможностей для перехвата исключения. Ну или игнорирования поиска пока работает скролл ListView.
  1. Загрузить ещё активность