x11

Почему-то свойство пустое

в pas-файле есть такое {%CLASSGROUP 'FMX.Controls.TControl'}

как оно могла поменяться или исчезнуть?

Не могу понять, что случилось в проекте с TDataModule. Проект мультиплатформенный. В прошлый раз сохранил, закрыл, ничего необычного. Сегодня открываю, а мне ошибку Delphi Berlin показывает. И действительно, у TImageList отсутствует свойство source. Открываю, а он выглядит по-другому, как будто из VCL. Закрываю проект, создаю мультиплатформенную форму, кладу TImageList на форму и о чудо - совершенно другой TImageList и свойство Source есть. Что случилось с моим TDataModule? Как среде дать понять, что это мультиплатформенный проект?

Разработчики DevExpress разрабатывают пробные компоненты для Firemonkey отсюда http://www.sql.ru/forum/1279315-1/na-delphi-dlya-linux-v-etot-raz-s-interfeysom

Дошло. Картинки я грузил из базы. Я неправильно их записывал в список TSkinImageList. Использовал метод CreateFromBitmapAndMask() вот так переделал procedure AddPhoto(Image: TBlobStream; const sDescr: string = ''); Var pic: TDrawPicture; begin pic := TDrawPicture.CreateFromStream(Image); pic.Caption := sDescr; ImageList.PictureList.Add(pic); end; к сожалению, нет метода CreateFromBitmap()

Картинка на тёмной и светлой темах. А вот во время дизайна, в среде, нормально отображается. Не могу понять, как заставить отображаться нормально на светлой теме.

как TBaseDrawPicture правратить в TBitmap? Задача: Нужно как-то расшарить картинку на андроиде actShowShareSheetAction1.Bitmap.Assign(Bitmap); procedure TForm1.actShowShareSheetAction1BeforeExecute(Sender: TObject); Var Bitmap: TBitmap; BaseDrawPicture: TBaseDrawPicture; stream: TMemoryStream; begin if ImageListViewer.Properties.Picture.CurrentPicture.IsEmpty then begin ShowMessage('Картинка отсутствует'); exit; end; BaseDrawPicture := TBaseDrawPicture(ImageListViewer.Properties.Picture.CurrentPicture); stream := TMemoryStream.Create; BaseDrawPicture.SaveToStream(stream); stream.Position := 0; Bitmap := TBitmap.CreateFromStream(stream); try actShowShareSheetAction1.Bitmap.Assign(Bitmap); finally Bitmap.Free; stream.Free; end; end;

В чем простота? if ch.IsDigit then vs '1234567890'.Contains(ch) В обоих случаях одна строка кода

Относительно компиляции примеров. Придётся переименовать папки, чтобы не было иероглифов. Ну и внутри проектов тоже ссылки на модули подправить. Там не много.

так в самом первом сообщении https://pan.baidu.com/s/14i84u ну или вот http://www.orangeui.cn/download.php

Я сам еле додумался, как скачать. Нужно зайти внутри папки "OrangeUI", и затем внутри папки "OrangeUI 1.73.1", затем нажать справа кнопку скачивания. В появившемся окне нажать кнопку справа, а кнопка слева - это скачивание download менеджера Байду.

Пока до конца непонятно: - как в галерее (TSkinFMXImageListViewer) масштабировать и сбрасывать масштаб картинки, а хотелось бы, например, по двойному касанию сбрасывать масштаб в ноль; - как правильно удалять картинку из SkinImageList, чтобы ImageListViewer отобразил предыдущую картинку без глюков.

так же непонятно, как записать в footer, его нет даже у livebindings

Вот какая проблема. Команда ShellExecute на Windows 10 открывает не только браузер и сайт, но и потом сразу же диалоговое окно выбора файла. Странно. Воспроизводится так. На Multiview лежит Layout, на Layout лежит ImageControl с картинкой. У ImageControl в OnClick прописана строка вызова процедуры со ссылкой.

Если у элементов, идущих подряд одинаковый текст, то текст скрывается. Как это это отключить?

На андроид-устройстве, если включить свойство ShowClearButton, то кнопка очистки и кнопка выбора накладываются друг на друга

Сразу не сообразишь. Чтобы загрузить картинку, нужно дважды сюда щелкнуть мышкой.

В общем, оказалось, что "'CharInSet' is deprecated: 'Use TCharHelper functionality'" Правильно вот так: uses System.Character; ... ... for ch in s do if ch.IsInArray(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then result := result + ch; или "IsDigit" если нужны только цифры for ch in s do if ch.IsDigit then result := result + ch; http://docwiki.embarcadero.com/Libraries/XE7/en/System.Character.IsDigit

function OnlyDec(const s: String): string; Var ch: char; i: integer; begin for i := 0 to s.Length do if CharInSet(s[i], ['0'..'9']) then result := result + s[i]; или for i := low(s) to High(s) do if CharInSet(s[i], ['0'..'9']) then result := result + s[i]; или for ch in s do if ch in ['0'..'9'] then result := result + ch; или for ch in s do if CharInSet(ch, ['0'..'9']) then result := result + ch; end; Почитал http://docwiki.embarcadero.com/RADStudio/Tokyo/en/String_Types_(Delphi) но до конца не понял. Как всё-таки более правильно сделать цикл по строке? Я склоняюсь к последнему варианту.

За смену картинки пальцем отвечают несколько свойств. SkinFMXImageListViewer1.Properties.CanGestureSwitch; SkinFMXImageListViewer1.Properties.ImageListSwitchEffectType; Программно: ImageListViewer.Prop.SwitchNext; ImageListViewer.Prop.SwitchPrior; Вместо полного названия свойства Properties можно использовать сокращение Prop.

Перед компиляцией и установкой библиотеки поменяйте язык на английский иначе будет все на китайском. в файле "OrangeUIDesign\Source\uLanguage.pas" в самом конце в секции initialization initialization //赋值 //english LangKind:=TLangKind.lkEN; //chinese //LangKind:=TLangKind.lkZH;

В текущей версии 1.73 проблема на Андроиде, если у компоненты TSkinImageListViewerDefaultMaterial включено свойство DrawPictureParam.IsStretch , то приложение тупо падает или выскакивает ошибка, связанная с Floating point operation

Чтобы SkinFMXImageListViewer нормально вписывал картинку, нужно прикрутить TSkinImageListViewerDefaultMaterial и уже в этой компоненте настраивать. Не обязательно использовать отдельный TSkinImageListViewerDefaultMaterial, достаточно включить свойство MaterialUserKind := mukSelfOwn, при этом свойство SelfOwnMaterial будет заполнено автоматически своей компонентой, но на форме её не будет. Думаю, что TSkinImageListViewerDefaultMaterial удобно использовать, если есть несколько SkinFMXImageListViewer, подключенных к единой компоненте TSkinImageListViewerDefaultMaterial.

OrangeUI пришлось установить из-за того, что там есть галерея картинок с листанием - TSkinFMXImageListViewer. Я перепробовал несколько библиотек, где есть галереи или какой-нибудь ImageViewer со списком картинок, но все они криво рисуют картинку, там нет чего-то связанного с Wrap`ом или Stretch`ем. К сожалению примеры скудные, документации почти нет. Исходников тоже нет, только dcu.