-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
265
Весь контент Равиль Зарипов (ZuBy)
-
намек на то, что они тоже должны свернуться т.к. Embarcadero не хочет иметь с ними дело
-
копируются данные через Assign или CopyFrom
-
Редактор ListView 2 - DynamicAppearance
Равиль Зарипов (ZuBy) ответил master webs вопрос в TListView
как-то так var iTitle: TListItemText; begin iTitle := AItem.Objects.FindDrawable('Text1') as TListItemText; if iTitle <> nil then iTitle.Width:=ListView5.Width-85; end;- 5 ответов
-
- ListView
- DynamicAppearance
-
(и ещё 1 )
C тегом:
-
Редактор ListView 2 - DynamicAppearance
Равиль Зарипов (ZuBy) ответил master webs вопрос в TListView
всегда присваивайте в переменную, проверьте на валидность, а потом проводите с ней различные операции. у меня много раз было AV, т.к. "контрол" не был создан- 5 ответов
-
- ListView
- DynamicAppearance
-
(и ещё 1 )
C тегом:
-
Редактор ListView 2 - DynamicAppearance
Равиль Зарипов (ZuBy) ответил master webs вопрос в TListView
незнаю как в берлине, но в OnUpdateObjects можно найти нужный "контрол" и выставить ему новые размеры- 5 ответов
-
- ListView
- DynamicAppearance
-
(и ещё 1 )
C тегом:
-
какая платформа? приложите демо-проект
-
нужно авторизоваться, потом скачивание будет доступно
-
во первых так делать нельзя, нужно создать временный TListItemImage, затем проверить его на существование и только потом присваивать во вторых где и как делаете создание TListItemImage.Bitmap? вы понимаете разницу между assign и прямым присвоением? assign - копирует только данные, но не создает объект прямое присвоение - клонирует полностью объект
-
я тоже не правильно понял, подумал что сторонние шрифты прикрутили. ан-нет всего лишь стили
- 35 ответов
-
- 35 ответов
-
получилось? изменение в исходниках нужны для android, для ios достаточно прописать в .plist кстати читал что в берлине появилась работа Custom Fonts, кто испробовал поделитесь
- 35 ответов
-
там смысл в том и был, чтобы переделать модуль, а не отрисовку
-
put into Content new TRectangle with align := MostBottom and color := claBlack OnResize: Content.Margins.Bottom := 0;
-
function TextHeight(const AText: string; aTextSettings: TTextSettings; const aWidth: Single): Single; // uses FMX.TextLayout, FMX.Graphics, System.Math var Layout: TTextLayout; aRect: TRectF; aWW: boolean; begin Result := 0; if AText.IsEmpty then Exit; aWW := Pos(#13#10, AText) > 0; if (aTextSettings.WordWrap) or (aWW) then aRect := RectF(0, 0, aWidth, MaxSingle) else aRect := RectF(0, 0, MaxSingle, MaxSingle); Layout := TTextLayoutManager.DefaultTextLayout.Create; try Layout.BeginUpdate; Layout.TopLeft := aRect.TopLeft; Layout.MaxSize := PointF(aRect.Width, aRect.Height); Layout.WordWrap := aTextSettings.WordWrap; Layout.HorizontalAlign := TTextAlign.Leading; Layout.VerticalAlign := TTextAlign.Leading; Layout.Font.Assign(aTextSettings.Font); Layout.Color := aTextSettings.FontColor; Layout.RightToLeft := false; Layout.Text := AText; Layout.EndUpdate; aRect := Layout.TextRect; finally FreeAndNil(Layout); end; Result := aRect.Bottom; end; вызов функции, тут расчёт высоты делается для TText (родной autosize косячит при большом кол-ве текста) aTextSettings := TTextSettings.Create(nil); aTextSettings.Trimming := TTextTrimming.None; aTextSettings.Font.Size := mText.Font.Size; aTextSettings.WordWrap := true; mText.Height := TextHeight(mText.Text, aTextSettings, mText.Width - (mText.Margins.Left + mText.Margins.Right)); PresentedScrollBox1.RealignContent; // пересчёт контента родителю Самое важное это сделать пересчёт размеров контента РОДИТЕЛЮ, иначе высота будет не правильная. Незнаю почему так сделано, но только так получается добиться правильной высоты текста (проверял на TListBox, TListView, TText)
-
смотрите скрин в теме DeviceInfo
-
наверное вы это имели ввиду <TMyInputQuery>.Edits[0].KillFocusByReturn := true;
-
/storage/emilated/0/MxBrowser/Download - это путь MX браузера? Как вы хотите добраться стандартными средствами до чужой папки?
-
вам бы справочку почитать.. GetDocumentsPath - папка доступная только для вашего приложения GetSharedDocumentsPath - общая папка документов GetDownloadsPath - папка Download
-
IOUtils прописать в конце всех модулей и после implementation
-
можно открыть другую форму например
-
Мы используем PHP-FPM+NginX+MySQL Почему ушли с PHP? и что вы имели ввиду бэкенд на Delphi, серверное приложение? Можете написать на Lazarus'e, вполне рабочее решение
-
полет нормальный и 5.х и 6.х