Перейти к содержанию
Fire Monkey от А до Я

zairkz

Пользователи
  • Постов

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

  • Посещение

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

    12

Активность репутации

  1. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Диалоговое окно на Андроид.   
    такой возможности нет, по вы можете дописать
    r1.Margin.Bottom :=  <сложные арифметические действия>;  
  2. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Диалоговое окно на Андроид.   
    да, в базовом классе.
    желательно обновиться с репозитория, там точно есть такое.
    UPD: события на отмену нет, если вы об этом
  3. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Диалоговое окно на Андроид.   
    Обновленная версия 
    Более реалистичные диалоги для андроид 5.0 и выше  
    MyDialogs_ZuBy.zip
  4. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Диалоговое окно на Андроид.   
    Конечно, полная свобода. Что понадобится все можно прикрутить
    myInput.Edits[0].ReturnKeyType := TReturnKeyType.Done; myInput.Edits[0].KillFocusByReturn := true; myInput.Edits[1].ReturnKeyType := TReturnKeyType.Done; myInput.Edits[1].KillFocusByReturn := true;  
  5. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Диалоговое окно на Андроид.   
    там  есть вызов анонимной процедуры, в нем без танцев можно получить данные
    var   mY: TMyInputQuery; begin   mY := TMyInputQuery.Create(['Введите текст'], [''], self,     procedure     begin       ShowMessage('TThreadProcedure ' + mY.Values[0]);     end);   mY.Edits[0].Password := true;   mY.ShowMe;  
  6. Like
    zairkz отреагировална Pax Beach в Диалоговое окно на Андроид.   
    Не бейте сильно, но только вот такое безобразие в голову пришло =)
    procedure TFormMain.DialogEvent(Sender: TObject); var i: integer; s: string; begin s := ''; try for i := 0 to 1000 do s := s + (Sender as TMyInputQuery).Values[i] + #13#10; finally end; ShowMessage('TNotifyEvent '#13#10 + s); end; UPD:
    Отупение прошло. Но класс мне, конечно, надо будет переписать.
    procedure TFormMain.DialogEvent(Sender: TObject); var i: integer; s: string; begin s := ''; for i := 0 to (Sender as TMyInputQuery).Edits.count - 1 do s := s + (Sender as TMyInputQuery).Values[i] + #13#10; ShowMessage('TNotifyEvent '#13#10 + s); end;  
  7. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Python в рамках приложения для Android и iOS   
    что за обработка планируется? код настолько сложный что его невозможно повторить на delphi?
  8. Like
    zairkz отреагировална Kitty в Выход Update для RAD Studio 10 Berlin   
    Update 1 для Берлина вышел. 
  9. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Проблема в Android 6.0   
    Андроед-телефоны, как и все вещи в 2016 году, собираются из каких-то ёбаных микросхем. 
    начало ободряющее))
  10. Like
    zairkz отреагировална Pax Beach в Андроид-фейсбук-вконтакте   
    Бандл — это пакет параметров.
    Спасибо за подсказку. Использовать нужно так: 
    TJnet_Uri.JavaClass.fromFile(TJFile.JavaClass.init(StringToJString(path))).toString;  
  11. Like
    zairkz отреагировална Fedor K в Андроид-фейсбук-вконтакте   
    При реализации  OAuth 2.0 при помощи TWebBrowser главное отследить Redirect. В случае успешной авторизации в URL будет содержаться необходимый токен. Посмотрите в сторону использования вот этих форм (находятся в ..\source\data\rest):
    {$IFDEF MSWINDOWS} REST.Authenticator.OAuth.WebForm.Win {$ELSE} REST.Authenticator.OAuth.WebForm.FMX {$ENDIF} У них есть событие:
    property OnAfterRedirect: TOAuth2WebFormRedirectEvent read FOnAfterRedirect write FOnAfterRedirect; TOAuth2WebFormRedirectEvent = procedure(const AURL: string; var DoCloseWebView : boolean) of object; Вот обработчик:
    procedure TframeAutch.AfterRedirect(const AURL: string; var DoCloseWebView: boolean); var i:integer; Str: string; Params: TStringList; begin i := pos('#access_token=',AURL); if (i>0) then begin Str := AURL; Delete(Str,1,i); Params:=TStringList.Create; try Params.Delimiter:='&'; Params.DelimitedText := Str; token := Params.Values['access_token']; DoCloseWebView := True; finally Params.Free; end; end; end; **Код выше из XE7, сейчас мб что-то изменилось. Использовал такой подход для авторизации в vk, facebook, google+.
    ***Если нужно, могу сделать демку, но это только на выходных.
  12. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в Проблема с анимацией   
    ну вы же понимаете как работает анимация?
    1) реорганизация положения контрола на родителе
    2) реорганизация положения компонентов внутри контрола
    3) сработает ресайз контрола и всех его дочерних компонентов, что вызовет содержащий в обработчиках код
    если высота контрола для которого применяется анимация равна 100 пикселям, все это повторится 100 раз
  13. Like
    zairkz отреагировална dnekrasov в Как Вы используете RAD Studio   
    Пишу на Delphi с ноября 1995 года (Delphi 1 под Win 3.11). До этого использовал TurboPascal и TurboC (еще с 1989 года), но как только увидел Delphi - то сразу влюбился в эту среду разработки. В последствии приходилось писать на С++, С#, PowerBuilder, но всегда возвращался на Delphi и каждый раз вздыхал с облегчением
    Однако в 2009-м уже серьёзно начал склоняться в сторону Java, но с появлением FireMonkey в очередной раз с радостью вздохнул и Delphi стала опять моей основной IDE. Теперь RAD Studio удовлетворяет все мои потребности в плане программирования и больше ни на какой другой язык я даже не смотрю.
  14. Like
    zairkz отреагировална Ufomaster в С днем рождения!   
    Ты прекрасный программист,
    И по жизни оптимист,
    В своем деле – просто ас!
    Всем покажешь высший класс!
    Принимай же поздравленья
    В день прекрасный – День рожденья!
    Будь всегда веселым ты,
    Пусть исполнятся мечты! 
    С Днём рождения!
  15. Like
    zairkz отреагировална Kitty в С днем рождения!   
    C Днём Рождения!
  16. Like
    zairkz отреагировална Gingercat в С днем рождения!   
    Расти большой, не будь лапшой)
  17. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в С днем рождения!   
    Присоединяюсь к поздравлению!
  18. Like
    zairkz отреагировална krapotkin в С днем рождения!   
    Поздравляем Ярослава с Днем рождения!
    Благодарим за титанические усилия, которые он по собственной инициативе, не "благодаря", а скорее "вопреки", прилагает для развития нашего сообщества.
    Желаем не только профессионального благополучия, но и личного счастья!
    Ура, товарищи!

  19. Like
    zairkz получил реакцию от Pax Beach в [1C-Papyc] Мобильное приложение для мастеров-приемщиков сервсиных автоцентров на ОС Android   
    Может быть Вы будете так добры и поделитесь данным функционалом, , или хотя бы подробнее описать реализацию.
  20. Like
    zairkz отреагировална AngryOwl в Мультиязычность в андроиде   
    И еще, друзья! Делалось это все для себя, для личного пользования, а не для "распространения")
    Так-что не обессудьте - если где "говнокод") Сами поправите кому как нравится)
    Заодно может поделитесь интересными мыслями и идеями.
    Если кому что не понятно - подскажу.
  21. Like
    zairkz отреагировална AngryOwl в Мультиязычность в андроиде   
    Как обещал - приложение для создания, редактирования, автоматического перевода и сохранения Ini-файлов с переводами для локализации своих приложений. Для примера есть два файлики (Lang.en и Lang.ru) и другие файлы, содержание которых всем будет понятно)
    Все, вроде, просто)
    P.S. Все желающие могут использовать как хотят. Можете что-то добавлять, исправлять и т.д. Ну и не забываем делиться с другими...))
    P.P.S. - делалось уже давно, под XE7. Кто захочет под XE10 - думаю все будет крайне просто переделать.
    SLLanguage.zip
  22. Like
    zairkz отреагировална AngryOwl в Мультиязычность в андроиде   
    В общем я тупо вырезал часть из своего проекта. И создал маленький демо-проект.
    Работает везде!
    Хоть на Винде, хоть на Маке, хоть на Андроиде.
    Думаю - разберетесь. Тем-более, что там все очень просто.
    В демке сделал только два языка (в моем проекте их 11).
    Все в Ini-файлах, работает очень быстро.
    P.S. Все желающие могут использовать как хотят. Можете что-то добавлять, исправлять и т.д. Ну и не забываем делиться с другими...
    P.P.S. Позже выложу приложение (GUI) для редактирования файлов языков. С автоматическим переводчиком и прочими мелочами, упрощающими редактирование.
    Test_Translator.zip
  23. Like
    zairkz отреагировална Ufomaster в А как хочется что бы Delphi опять стал «Первым в мире».   
    Я считаю, что мне пора прекращать отстаивать мое «виденье» проблемы и способа его решения. Сколько людей столько и мнений. Спасибо всем за критику, но в данном случае мало «смотреть» - нужно «видеть». Раз мы так далеко зашли тогда вот мое мнение к решению этой проблемы. Сказанное ниже не для критики, а прислушиваться Embarcadero к этому виденью или нет, это их выбор. И  у каждого выбора есть свое последствие. Где Delphi находится сейчас и какой на него спрос, не для кого, не секрет.
    План развития.
    Delphi бесплатный или за символическую цену. Развивать App сервис. Сейчас что то уже начинается (RAD Server). Платный корпоративный доступ, урезанный бесплатный, лицензии разработчикам и прочее. Это будет основной прибылью компании. Взаимодействовать с разработчиками Web браузеров (может даже разработать стандарт) для создания и внедрения в браузеры прослойки GUI для взаимодействия в App сервисами. Это будет толчком к новой ОС, назовём её ОС «Net».  Если развитие пойдет в эту сторону, тогда будет решена проблема кросплатформенности. По моему то что сейчас происходит в мире с информатикой это застой какой то. Уж Все очень долго заигрались в своих «песочницах». И спорить чья «лучше», или быстрее «лепятся замки»  это нежелание двигаться дальше.  В данном случае деньги это не двигатель прогресса, если компании будут учитывать сиюминутную прибыль в замен на новые горизонты.

     
  24. Like
    zairkz отреагировална Crusader99 в А как хочется что бы Delphi опять стал «Первым в мире».   
    Если все ТАК хорошо ... посмотрите еще раз на рейтинги.
    И про велосипеды : безотносительно языка, на котором пишешь, собирать свою библиотеку "велосипедов"  начинаешь после первого-же крупного проекта.  Через пару лет работы собирается вполне приличная библиотека, позволяющая не тянуть в  проект тот-же чемоданный cxGrid  только "за ради сортировки по столбцу", или "шоб как в Икселе было"  ... 
    ... И  мимо вопроса вы легко и непринужденно проскочили ... ))))
     
  25. Like
    zairkz отреагировална Равиль Зарипов (ZuBy) в А как хочется что бы Delphi опять стал «Первым в мире».   
    на linux mSsql? у майкрософта есть сервер mssql под линь?
    никогда не слышал
×
×
  • Создать...