x11

Пользователи
  • Публикаций

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

  • Посещение

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

    2

x11 стал победителем дня 10 декабря

x11 имел наиболее популярный контент!

Информация о x11

  • Звание
    Продвинутый пользователь

Посетители профиля

338 просмотров профиля
  1. DevExpress для FMX

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

    Дошло. Картинки я грузил из базы. Я неправильно их записывал в список 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()
  3. OrangeUI

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

    как 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;
  5. В чем простота? if ch.IsDigit then vs '1234567890'.Contains(ch) В обоих случаях одна строка кода
  6. OrangeUI

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

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

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

    Пока до конца непонятно: - как в галерее (TSkinFMXImageListViewer) масштабировать и сбрасывать масштаб картинки, а хотелось бы, например, по двойному касанию сбрасывать масштаб в ноль; - как правильно удалять картинку из SkinImageList, чтобы ImageListViewer отобразил предыдущую картинку без глюков.
  10. так же непонятно, как записать в footer, его нет даже у livebindings
  11. Вот какая проблема. Команда ShellExecute на Windows 10 открывает не только браузер и сайт, но и потом сразу же диалоговое окно выбора файла. Странно. Воспроизводится так. На Multiview лежит Layout, на Layout лежит ImageControl с картинкой. У ImageControl в OnClick прописана строка вызова процедуры со ссылкой.
  12. Если у элементов, идущих подряд одинаковый текст, то текст скрывается. Как это это отключить?
  13. ShowClearButton в TDateEdit

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

    Сразу не сообразишь. Чтобы загрузить картинку, нужно дважды сюда щелкнуть мышкой.
  15. В общем, оказалось, что "'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