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

enatechno

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

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

  • Посещение

  • Победитель дней

    26

Весь контент enatechno

  1. У TMS есть готовое решение: TTMSFMXSignatureCapture Вот еще видео можно глянуть: Tutorial: Finger Writer with FireMonkey (Delphi DX10.1 Berlin) on Win10, OSX, iOS Tutorial: Signatur Capture in Firemonkey XE5 (Delphi XE5) on Win, iOS and Android
  2. procedure TForm1.FormCreate(Sender: TObject); var i: integer; aRectangle: TRectangle; aLabel: TLabel; aButton: TButton; begin VertScrollBox1.BeginUpdate; try for i := 1 to 30 do begin aRectangle := TRectangle.Create(VertScrollBox1); aRectangle.Parent := VertScrollBox1; aRectangle.Align := TAlignLayout.Top; aRectangle.Height := 60; aRectangle.Margins.Left := 10; aRectangle.Margins.Top := 15; aRectangle.Margins.Right := 15; aRectangle.TagString := 'Rectangle' + i.ToString; aLabel := TLabel.Create(VertScrollBox1); aLabel.Parent := aRectangle; aLabel.Align := TAlignLayout.Client; aLabel.Text := 'Label' + i.ToString; aLabel.Margins.Left := 10; aLabel.TagString := 'Label' + i.ToString; aButton := TButton.Create(VertScrollBox1); aButton.Parent := aRectangle; aButton.Align := TAlignLayout.Right; aButton.Text := 'Button' + i.ToString; aButton.TagString := 'Button' + i.ToString; aButton.Margins.Top := 5; aButton.Margins.Bottom := 5; aButton.Margins.Right := 10; end; finally VertScrollBox1.EndUpdate; end; end;
  3. Основные отличия: TImageControl - при клике на нем во время выполнения десктоп-приложения открывается диалоговое окно открытия файла, где можно выбрать картинку для отображения в ImageControl. Отображаемая картинка автоматически масштабируется под размеры контрола. TImageViewer - наследник от TCustomScrollBox и имеет встроенные скроллбары. На десктопах изображение может смещаться с помощью мыши и масштабироваться (колесиком мыши). Также в демках, идущих с RAD, есть пример как масштабировать изображение с помощью жестов на устройствах с тачскрином.
  4. Да. Если не хотите менять стандартные стили, то лучше использовать ListView c плиточным отображением, о котором писал Равиль в первом посте. Тем более, что в Ваших объявлениях (айтемах) должно отображаться много других полей. Возможно, Вы сами сможете сделать такой вывод, ознакомившись с ранее обсуждавшимися темами:
  5. Когда разберетесь с ListBox и стилем, приступайте к изучению ListView (т.к. использование ListView оптимальнее для мобильных платформ)
  6. Тогда стандартные стили Вам не подойдут. Создавайте свой стиль для ListBoxItem на базе стандартного или "с нуля". Тут описано как это можно сделать. Вот подправил пример. Создал mylistboxitemstyle в котором только 2 элемента - text и image. Этот стиль загружен в StyleBook1 и указан в Listbox1.DefaultItemStyles.ItemStyle. Можете редактировать этот стиль прямо в StyleBook, добавляя новые элементы и располагая их как Вам нужно. tstListbox1.rar
  7. Из стандартных иконку отображают: listboxitembottomdetail, listboxitemleftdetail, listboxitemnodetail, listboxitemrightdetail. tstListbox1.zip
  8. LabelG.StyledSettings := []; ... LabelG.TextSettings.HorzAlign := TTextAlign.Center; with LabelG do - не нужен
  9. enatechno

    DataSnap android client

    Если "используете мобильные данные", то подключаетесь к интернету минуя локальную сеть. В этом случае, РС, к которому хотите подключиться, должен иметь "белый" IP адрес и его надо указывать в настройках подключения мобильного приложения.
  10. Можно (и нужно, если приложение будет работать и на планшетах и на телефонах). Как это делается смотрите тут:
  11. Если не находит возле себя, ищет в тех местах, которые прописаны в системной переменной PATH. Либо добавляйте свой Temp туда, либо используйте те папки, которые в PATH уже прописаны, Обычно dll кидают в %SYSTEMROOT%\System32 (c:\windows\system32).
  12. Потому что у t3 и t4 Owner - это form1: t3:=ttext.Create(form1);t3.Text:=floattostr(zap.razmer.kol); t4:=ttext.Create(form1);t4.Text:='X'; а значит они не удаляются при удалении item. По логике должны быть r3 и r4 соответственно. t3:=ttext.Create(r3); t4:=ttext.Create(r4);
  13. enatechno

    libmidas.dylib для iOS

    Что значит "эффекта 0"? Убрали из деплоя libmidas.dylib, вместо него задеплоили libmidas.a и ошибка осталась та же?
  14. enatechno

    К знатокам SQL

    "Умный программист — это хорошо, а умный ленивый программист — ещё лучше."
  15. enatechno

    К знатокам SQL

    точнее WHERE ((FieldDate >= D1) OR (D1 IS NULL)) AND ((FieldDate <= D2) OR (D2 IS NULL))
  16. enatechno

    Компонент TLang

    Ваша ошибка, что вы пытаетесь перевести текущий текст, который отображается. Нужно переводить английский (английские слова как бы являются индексом для перевода). В этом случае TransManually не нужен. Например вместо MenuItemFile.Text := TransManually(MenuItemFile.Text); нужно писать: MenuItemFile.Text := Translate('File'); Или более простой способ, задать один раз (например в Create): MenuItemFile.AutoTranslate := true;
  17. Pdf на IOS отображается с помощью TWebBrowser. Т.е. wbViewPDF - это переменная/компонент типа TWebBrowser.
×
×
  • Создать...