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

Alex7wrt

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

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

  • Посещение

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

    31

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

  1. Like
    Alex7wrt получил реакцию от Ingalime в [Статья][AdMob] Добавляем рекламный блок в приложение   
    http://www.tahribat.com/forum/android---delphi-xe7-firemonkey-admob-interstitial-204528
  2. Like
    Alex7wrt получил реакцию от Rusland в [Статья][AdMob] Добавляем рекламный блок в приложение   
    http://www.tahribat.com/forum/android---delphi-xe7-firemonkey-admob-interstitial-204528
  3. Like
    Alex7wrt отреагировална vovanse в Не удается перетащить (Drag and Drop) итем TListBoxItem между двумя TListBox   
    private ....     procedure DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); override;     procedure DragDrop(const Data: TDragObject; const Point: TPointF); override; .... procedure TMainForm.DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); begin   inherited;   Operation:=TDragOperation.Link; end; procedure TMainForm.DragDrop(const Data: TDragObject; const Point: TPointF); begin ... свой код...   inherited; end;
  4. Like
    Alex7wrt отреагировална Равиль Зарипов (ZuBy) в TDropTarget, пунктирная линия между компонентами, Windows   
    да отредактируйте стиль, там лежит Rectangle
    убрать Sides
  5. Like
    Alex7wrt отреагировална Brovin Yaroslav в TDropTarget, пунктирная линия между компонентами, Windows   
    Через стиль. Отредактировать стиль и убрать эту линию
  6. Like
    Alex7wrt отреагировална krapotkin в TDropTarget, пунктирная линия между компонентами, Windows   
    вот. один компонент на форме. граница есть
    никто вас не заставляет использовать dropTarget но реализация перетаскивания из explorer полностью ляжет на вас, как и было раньше

  7. Like
    Alex7wrt отреагировална Brovin Yaroslav в [Форум]Последние сообщения - проблемы   
    Починил
  8. Like
    Alex7wrt отреагировална Brovin Yaroslav в [TMultiView] Починили TMultiView.Enable в Tokyo   
    Моя работа  По просьбе трудящихся на этом форуме сделал эту задачу. А еще добавил настройки, чтобы можно было линию убирать.
  9. Like
    Alex7wrt отреагировална kami в [Форум]Последние сообщения - проблемы   
    То, что "жирность" шрифта в этом блоке скачет как хочет - это, по большому счету, ерунда.
    Но вот то, что "последнее сообщение" в теме не соответствует реальному - это уже плохо.
    В качестве примера:
    1 - скрин главной страницы после нажатия Ctrl+F5 (полное обновление, минуя кеш)

    2 - скрин темы. Самое интересное - что цифра 4 на главной странице действительно соответствует количеству ответов в теме. Вот только последний - не от того пользователя.

  10. Like
    Alex7wrt отреагировална alexbirukov в [Статья] PHP сервер для рассылки Push на Android и iOS   
    Ссылка на статью. Автор: Александр Бирюков В статья я максимально подробно попытался описать работу с PHP скриптом для рассылки Push сообщений из любой программы вне зависимости от платформы. Затрагивается вопроса от экспорта скриптов до кода программы: отправка и получение Push, регистрация устройств.
     
    Надеюсь кому-нибудь пригодится. Буду рад комментариям, обоснованной критике и доработкам.
     
  11. Like
    Alex7wrt отреагировална enatechno в Расположение компонентов Panel ImageViewer   
    1). Если в design-time: Задайте для ImageViewer: Align - None, Anchors - [akTop,akRight] и разместите ImageViewer на нужном месте (с необходимыми отступами).

     
    2). Если не ошибаюсь, то нет свойства позволяющего сделать объект постоянно поверх все компонентов, поэтому рекомендую при добавлении компонентов перекрывающих ImageViewer делать ImageViewer.BringToFront;
     
    3). Пропорционально относительно чего? Если пропорционально размера формы, то самостоятельно пересчитывайте размер ImageViewer в TForm.OnResize
     
    4). Если речь идет о TPanel, то это стилевой объект и его цвет меняется через стиль. Более простой вариант -  в качестве "панелек" использовать "не стилевой" TRecangle. Цвет TRectanle можете задать и в design-time и runtime (Rectangle1.Fill.Color := TAlphaColorRec.White)

    И кстати, почему ImageViewer? Может TImage будет достаточно?
  12. Like
    Alex7wrt отреагировална zairkz в Более быстрая альтернатива DrawBitmap   
    Попробуй движок Shadow Engine для Firemonkey, FPS впечатляет.
    https://www.youtube.com/watch?v=w6lGasU61HQ
     
    Gihub: https://github.com/dimsa/ShadowEngine
  13. Like
    Alex7wrt отреагировална ENERGY в Запрет потери активности приложения   
    {$IFDEF ANDROID}   procedure KeepScreenOn(aEnable: boolean);   var     vFlags: integer;   begin     vFlags := TJWindowManager_LayoutParams.JavaClass.FLAG_KEEP_SCREEN_ON;     if aEnable then     begin       CallInUIThread (   // uses FMX.Helpers.Android       procedure       begin         TAndroidHelper.Activity.getWindow.setFlags (vFlags, vFlags);       end );     end     else       CallInUIThread (       procedure       begin         TAndroidHelper.Activity.getWindow.clearFlags (vFlags);       end );   end;   {$ENDIF} Это для Berlin и ниже.
    При использовании Tokyo - вызов CallInUIThread не нужен, можно вызывать напрямую, т.к. теперь главный Delphi поток это Java  UIThread.
     
    iOS
    uses iOSapi.UIKit; {$R *.fmx} procedure TForm6.Button1Click(Sender: TObject); var UIApp : UIApplication; begin UIApp := TUIApplication.Wrap(TUIApplication.OCClass.sharedApplication); UIApp.setIdleTimerDisabled(True); end;
  14. Like
    Alex7wrt отреагировална HyperZen в Запрет потери активности приложения   
    Запретить отключение экрана приложения в Андроид:
    в файл проекта (Project - View Source) добавить строки:
    // в uses {$IFDEF ANDROID} Androidapi.Helpers, Androidapi.JNI.App, Androidapi.JNI.GraphicsContentViewText, {$ENDIF} {$R *.res} // и далее - перед Application.Initialize begin {$IFDEF ANDROID} TAndroidHelper.Activity.getWindow.addFlags(TJWindowManager_LayoutParams.JavaClass.FLAG_KEEP_SCREEN_ON); {$ENDIF} Application.Initialize; ...  
  15. Like
    Alex7wrt отреагировална enatechno в Get запросы в iOS   
    Result у Вас какого типа? Попробуйте без него:
     
    xml_result:=HTTPGet('https://geocode-maps.yandex.ru/1.x/?geocode='+ 'Кунгур'+ ',+' +street+ '+улица,+дом+'+ house);  
  16. Like
    Alex7wrt отреагировална Равиль Зарипов (ZuBy) в Область, занимаемая TBitmap   
    У TBitmap есть метод BoundsF, достаточно посмотреть его реализацию
    property BoundsF: TRectF read GetBoundsF; ... function TBitmap.GetBoundsF: TRectF; begin Result := TRectF.Create(0, 0, Width, Height); end;  
  17. Like
    Alex7wrt отреагировална krapotkin в Область, занимаемая TBitmap   
    потому что вы видите Width/Height,  а рассуждаете про Right/Bottom
    в GDI, где указывались именно координаты, а не ширина/высота, тем не менее, эта единичка тоже отнималась внутри функции, так что самому это делать было также не нужно))
  18. Like
    Alex7wrt отреагировална Равиль Зарипов (ZuBy) в Get запросы в iOS   
    проверка интернета
    function CheckInet: boolean; var aResp: IHTTPResponse; aHTTP: THTTPClient; begin Result := false; aHTTP := THTTPClient.Create; try try aResp := aHTTP.Head('http://google.com'); Result := aResp.StatusCode < 400; except Result := false; end; finally FreeAndNil(aHTTP); end; end; get запрос
    function HTTPGet(const aURL: string): string; var aHTTP: THTTPClient; aResp: TStringStream; begin Result := 'Error'; aResp := TStringStream.Create('', TEncoding.UTF8); aHTTP := THTTPClient.Create; try try aHTTP.Get(aURL, aResp); Result := aResp.DataString; except Result := 'Error'; end; finally FreeAndNil(aHTTP); FreeAndNil(aResp); end; end;  
  19. Like
    Alex7wrt отреагировална Brovin Yaroslav в List of new features and customer reported issues fixed in RAD Studio 10.2 Tokyo   
    Прочитать всю новость целиком на сайте Embarcadero
  20. Like
    Alex7wrt отреагировална ENERGY в id: warning: directory not found for option ...PrivateFrameworks   
    Tools/Options/SDK Manager и удалите фрэймворк UIFoundation из всех конфигов iPhoneOS.
    Apple удалили этот фреймворк начиная с iOS 9.3, а Platform Assistant не может получить ассоциированные файлы. источник
     
  21. Like
    Alex7wrt отреагировална AngryOwl в TVideoCaptureDevice, трансляция в потоке   
    На случай "своими руками", я бы порекомендовал Вам копать в сторону WebRTC. Разумеется все зависит от конечных задач, стоящих перед Вашей программой. Судя по всему - это организация потокового видео в режиме реального времени на соответствующие сервисы. А это значит, что:
    - нужно организовать формирование и передачу RTMP (RTSP) потока, с чем в Delphi (если о нем речь идет) есть определенные сложности) (в ситуации с С++ будет немного проще);
    - нужно использовать кодеки (encoder), формат которых поддерживается теми системами, на которых вы хотите видеть воспроизведение потока. Аналогично, как и в вопросе с rtmp-потоком, ситуация с реализацией в Delphi будет сложнее (хотя тоже можно);
    - что касается конвертации кадров из одного формата в другой, то тут все немного проще. В интернете полно алгоритмов описывающих конвертацию битмапа из одного формата в другой. Разумеется - не все так просто. Поскольку необходимо не просто конвертировать кадры, перед тем как передать их энкодеру, но еще и правильно от энкодера получить сам поток и передать его. После энкодера, конечно, идут не просто "кадры". В зависимости от настроек энкодера, сначала идет "ключевой кадр" (и он повторяется с определенной периодичностью), а за ним последовательность "фреймов" - "описывающих" лишь изменения в "ключевом кадре".
    Кратко как-то так...
    В любом случае, я бы порекомендовал Вам сначала пошарить по ресурсу, описывающему работу с потоковым видео. Просто понять как это работает, в принципе. Ну и многое можно там же подчерпнуть. Например, просто как  оптимальнее настроить энкодер для трансляции того или иного видео.
  22. Like
    Alex7wrt отреагировална AngryOwl в TVideoCaptureDevice, трансляция в потоке   
    Добрый!
    Есть. Можно использовать сторонние библиотеки и модули, но цена у них приличная, а можно самому сделать. Вот на счет "самому" - будет непросто))) Очень непросто)
  23. Like
    Alex7wrt отреагировална sinuke в Учебное приложение "Слесарное дело"   
    Название: Слесарное дело
    Платформа: Android, Windows, macOS
    Устройство: ПК, смартфон, планшет
    Разрешение экрана: любое
    Ссылки на скачивание Windows-версии: https://yadi.sk/d/iIeC0OE8ukMoi
    Ссылка на скачивание macOS-версии: https://yadi.sk/d/wBpoFcKe3LgiKx
    Google Play: https://play.google.com/store/apps/details?id=com.sinukeapps.locksmithery
    Описание: Приложение представляет собой электронный конспект по слесарному делу, с помощью которого можно самостоятельно подготовится к занятиям. В него включены 16 тем, поделённые на блоки. Для каждой темы разработаны тесты для самоконтроля. В приложении имеется глоссарий для быстрого поиска по основным понятиям, а также возможность экспорта материалов в текстовый PDF-формат для дальнейшей печати.

  24. Like
    Alex7wrt отреагировална Равиль Зарипов (ZuBy) в Прозрачные контролы   
    в FMX все делается с помощью стилей, нужно отредактировать стиль TGroupbox
  25. Like
    Alex7wrt отреагировална enatechno в Прозрачные контролы   
    Это решается редактированием стиля. 
    Например так:
    1). Размещаете TGroupbox на форме
    2). ПКМ на нем
    3). в контекстном меню выбираете Edit Custom Style (или Edit Default style)
    4). в открывшемся редакторе стиля указываете платформу (Android)
    5). выбираете объект background (по умолчанию он белый).
    6). задаете ему свойство Visible=false
×
×
  • Создать...