Перейти к содержанию
  • Регистрация

Janex72

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

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

  • Посещение

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

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

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

385 просмотров профиля
  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. Мне задачи по сложнее. Надо не просто запускать готовые скрипти, а чтоб юзер сам мог их писать для апликации, на пример, при запуске какого то юзерского скрипта передаётся в нём (в скриптовую функцию, на пример) какие то параметри, скрипт обрабатывает данные и взаимодеиствует с контролями на форме. На пример, запускается скрипт, где в параметр передаётся 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. Спасибо, но тут он сылается на ТEdit у которого есть своиство TTextSettings : function TZMaterialEdit.GetTextSettings: TTextSettings; begin Result := FEdit.TextSettings; end; Но у меня свои пустои компонент которыи НЕ наслседовает другои компонент с своиством TTextSettings, и внутри тоже никого с готовым своиством TTextSettings Хотел прикрутить его для моих нужд... обект TTextSettings создаётся и доступен, вот только в дизаинтаиме он в Oбject Inspector-е почему то неразвёртвовается
×
×
  • Создать...