Janex72

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

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

  • Посещение

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

  • Звание
    Пользователь

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

345 просмотров профиля
  1. Janex72

    Screen Lock

    Привет всем. Есть идея написать свои Screen Lock-er, ну типа когда включаеш телефон то спрашивает пароль или ета фигня с 9 точками где пальцом водиш по точкам ... Подозреваю что простои апликациеи там необоидтись, надо наверно как то с сомим андроидом ето связывать... Мож у каго есть какие то примеры или советы куда копать? WBR Janex
  2. Привет всем. Искал как в FMX Linux-e определить координаты миши если курсор за пределами апликации, нашёл такое: function MousePos: TPointF; var MouseService: IFMXMouseService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(MouseService)) then Exit(MouseService.GetMousePos); Result := PointF(0, 0); end; всё работает, даже под Linux-ом, но шас нужно ешё определить нажата ли какая то клавиша миши, и тоже если курсор за пределами апликации ... Есть идеи как ??? WBR Janex
  3. Janex72

    Python 4 Delph

    Мне задачи по сложнее. Надо не просто запускать готовые скрипти, а чтоб юзер сам мог их писать для апликации, на пример, при запуске какого то юзерского скрипта передаётся в нём (в скриптовую функцию, на пример) какие то параметри, скрипт обрабатывает данные и взаимодеиствует с контролями на форме. На пример, запускается скрипт, где в параметр передаётся XML, в скрипте он обрабатывается и на форме высвечиваются результати в выде, на пример, Gauge, Progressbar, или заливаются текст в TMemo итд. И контролы тоже не вшиты в екзешник в дизаинтаиме, их юзер в рантаиме сам дизаинит и ставит что надо ... Ето как бы примитивная дельфовская IDE но только на питоне ... В "Python 4 Delphi" ето вроде всё можно, но нехватает ума перевести чтоб в дельфе под линукс он компилился, а то под линукс он предусмотрен только для FPC
  4. Janex72

    Python 4 Delph

    Привет всем. Прокопал весь интернет в поисках чего то чем внедрить Python в мою апликацию написаную на Delphi. Нашёл "Python 4 Delphi", под wинду компилится и работает, но мне надо как раз под Linux (Delphi 10.2). Самому подпилить под fmx неудаётся как то Неужели етот "Python 4 Delphi" единственныи в природе для связки дельфи с питоном ?? WBR Janex
  5. Janex72

    Глюк с TCollection

    Привет всем. Сделал компонент, в нём своиство/обект типа TPersistent, а на нём колекция (TCollection) ... Изначально натклнулся, что в дизаинтаиме в обект инспекторе неоткривался редактор где TCollectionitem-и делаются, искал, гуглил, нашёл решение здесь (код по середине): https://stackoverflow.com/questions/6980401/collection-editor-does-not-open-for-a-tcollection-property-in-a-tpersistent-prop Всё работает, в колекцие на пример 5 елементов, но вот если скомпилю под wинду то: Mycomponent.MyPersistentproperty.MyCollection паказывает правильно - 5, а если всё то же скомпилю под андроид, то всегда в любом случаес показывает 1 (!!!) Тоесть всегда одан кокая то пустая колекция, хоть убеися ... Тут под андроид какие то глюки или чё то другое ? WBR Janex
  6. Хммм, да, вроде пашет ... я через dataset дёргал его, наверно изза етого ...
  7. Будем пробовать ... Но вопрос то другои - рисовать на канве с DrawLine самыи быстрии способ ? Подозреваю, что, если, на пример, захочу мультик показывать на канве (сотни всяких draw) с 25fps то врятли канва ето потянет ... Может бить для супер скорости вообше другои подход нужен ?
  8. Приходится каждыи раз перерисовывать весь график. При приходе новых данных, весь графих сдвигается в лево и в конце (с право) рисуется новая точка. Все точки соедены с Line...
  9. Так сделал уже, рисуется, вроде даже быстро... Но мне нужно построить график, как уже писал, которыи будет менятся/перерисовыватся 10 или чаше раз в секунду, и из етого вопрос - рисовать на канве линии с DrawLine будет самыи быстрыи метод или ето каким то другим способом лучше делать ?
  10. Привет всем. Надо мне создать свои Scope - незнаю как по русски он называется Как пример брал TTMSFMXScope - етот типо TChart но сами линии по таимеру передвигаются с право на лево. Готовых компонентов для етого мало (TMS, TeeChart, больше ненашёл), компонент от TMS слишком медlеленныи, мне нужен тупои квадрат в котором двигались отрисованые линии с скоростю как минимум 10 кадров в секунду и отрисовка занимало самое минимальное возможное время, а то на форме ето будет не единственное что будет отрисовыватся... Ну кароч, решил ето делать на TPaintbox-е рисуя линии с DrawLine. Но возникает вопрос - будет ли ето самыи быстрии способ ето сделать, мож есть какие то другие методы? Мож рисовать сперва на TBitmap-е и потом его кидать на канвy? Есть идеи что использовать чтоб достич максимальную возможную скорость отрисовки ? WBR Janex
  11. Атбои ... Часами искал где что нехватает и надобыло только тут написать, как сразу сам нашёл где грабли Надо было только одну строчку добавить, как всё стало на свои места: FFrame.Stored := False;
  12. Привет всем. Надо создать простой компонент который содержал бы фрейм, на VCL много лет такие делал, всё работало, а тут что то не так ... Вот код: Type TxdfScope = Class(TStyledControl) Private FFrame :TmyFrame; Public Constructor Create(Owner :TComponent); Override; Published End; Constructor TxdfScope.Create(Owner :TComponent); Begin Inherited Create(Owner); FFrame := TmyFrame.Create(Self); FFrame.Parent := Self; FFrame.Align := TAlignLayout.Client; SetAcceptsControls(False); End; На фрейме один TButton; Всё вроде как бы правильно, компилится итд. Кидаю компонент на форму - прекрасно, всё как хочется. Сохраняю, открываю заново и получаю AV и т.д. Смотрю в соурс форм и вижу, что видны всё внутренности компонента: object xdfScope1: TxdfScope object TmyFrame Align = Client Size.Width = 200.000000000000000000 Size.Height = 100.000000000000000000 Size.PlatformDefault = False object Button1: TButton Position.X = 32.000000000000000000 Position.Y = 32.000000000000000000 TabOrder = 0 Text = 'Button1' end end end Чувствую что что то не хватает чтоб вёл он себя как нормальный компонент ... WBR Janex
  13. mmover, спасибо, то что надо ...
  14. Спасибо, но тут он сылается на ТEdit у которого есть своиство TTextSettings : function TZMaterialEdit.GetTextSettings: TTextSettings; begin Result := FEdit.TextSettings; end; Но у меня свои пустои компонент которыи НЕ наслседовает другои компонент с своиством TTextSettings, и внутри тоже никого с готовым своиством TTextSettings Хотел прикрутить его для моих нужд... обект TTextSettings создаётся и доступен, вот только в дизаинтаиме он в Oбject Inspector-е почему то неразвёртвовается