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

Равиль Зарипов (ZuBy)

Модераторы
  • Постов

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

  • Посещение

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

    265

Ответы сообщества

  1. Пост Равиль Зарипов (ZuBy) - сообщение в Конфликт Hint и BorderStyle был отмечен как ответ   
    я тут посидел немного, сделал костыль. особо не заморачивался
    копируем в проект и открываем FMX.Forms.pas Ctrl+F -> procedure TCommonCustomForm.SetShowHint(const Value: Boolean);  
    procedure TCommonCustomForm.SetShowHint(const Value: Boolean); begin FShowHint := Value; ReleaseLastHinted; // ZuBy *** if (not(csDesigning in ComponentState)) then begin FreeAndNil(FSharedHint); FSharedHint := THint.CreateNewInstance(Handle); end; // *** ZuBy end; сохраняем в событии OnCreate, OnShow пишем ShowHint := true; Готово!  
  2. Пост Равиль Зарипов (ZuBy) - сообщение в Проблема со свойством "GroupName" был отмечен как ответ   
    намёк
    <TSpeedButton>.StaysPressed := false;
  3. Пост Равиль Зарипов (ZuBy) - сообщение в Компоненты поверх WebBrowser был отмечен как ответ   
    такой возможности пока нет, потому что нативные компоненты всегда располагаются выше стилизованных.
    ждать нужно будущих версии студии, там будут нативные компоненты под андроид и ZOrder
  4. Пост Равиль Зарипов (ZuBy) - сообщение в Delphi 10.1 пропало событие onDblClick в StringGrid был отмечен как ответ   
    временное решение
    DblClick.zip
  5. Пост Равиль Зарипов (ZuBy) - сообщение в В Add Planform нет iOS Simulator был отмечен как ответ   
    ребята ну вы чего?
    http://docwiki.embarcadero.com/RADStudio/Berlin/en/Running_Your_iOS_Application_on_the_iOS_Simulator
     
  6. Пост Равиль Зарипов (ZuBy) - сообщение в как позвонить на iPhone? был отмечен как ответ   
    Вот патч от @Brovin Yaroslav 
    iOSapi.CoreTelephony.pas.patch.zip
     
  7. Пост Равиль Зарипов (ZuBy) - сообщение в iOS и долгая операция был отмечен как ответ   
    посмотрел видео. ваш бутерброд легко делается в TListView и сразу же решится несколько проблем
    динамическая подгрузка ложное срабатывание скроллинг единственно не понятно на счёт смещение, это аналогично доп. меню в айос?
  8. Пост Равиль Зарипов (ZuBy) - сообщение в Иконки в ListView был отмечен как ответ   
    есть два варианта
    1) использовать FontAwesome и перед текстом ставить подходящую иконку (не рекомендую использовать иконку и текст в одном объекте, будут баги на некоторых девайсах из-за кириллицы)
    2) добавить объекты в режиме DynamicAppearance
  9. Пост Равиль Зарипов (ZuBy) - сообщение в Странное поведение TListBox при попытке прокрутки до конца списка был отмечен как ответ   
    не смог воспроизвести вашу ситуацию, есть подозрение на стиль. попробуйте при добавлении Item'a, прогрузить стиль вручную
    LBScroll.zip
  10. Пост Равиль Зарипов (ZuBy) - сообщение в собрать apk файл на комп был отмечен как ответ   
    да, достаточно нажать кнопку плей и в папке с проектом появится папка Android там во вложенных папках будет заветный файлик
  11. Пост Равиль Зарипов (ZuBy) - сообщение в Как реализовать такой интерфейс? был отмечен как ответ   
    Такое есть из коробки, в TTabControl
  12. Пост Равиль Зарипов (ZuBy) - сообщение в Управление окном заставки был отмечен как ответ   
    никак
    если хотите менять текст и прочее, создайте форму сами и сделайте её главной. там и заставку ставьте и текст и прочее
  13. Пост Равиль Зарипов (ZuBy) - сообщение в ListView получить текст Item был отмечен как ответ   
    WebBrowser1.URL := ListView1.Items[ListView1.ItemIndex].Text;  
  14. Пост Равиль Зарипов (ZuBy) - сообщение в Эмулировать нажатие на тач был отмечен как ответ   
    какая именно задача у вас стоит?
    на мобилах нет понятия курсор, можно просто вызвать обработчик
    ControlClick(Sender); или есть у вас идут расчёты по X/Y, скорей всего используется OnMouseDown/OnMouseUp, то вызвать обработчик
    ControlMouseDown(Sender, TMouseButton.mbLeft, [], Control.Position.X + (Control.Width / 2), Control.Position.Y + (Control.Height / 2))  
  15. Пост Равиль Зарипов (ZuBy) - сообщение в Плавный скроллинг TListView под Windows был отмечен как ответ   
    Для Windows не работает TAniCalculations, можете проверить в ModernListView
    Я там наружу вывел <TListView>.getAniCalc
    if ListView1.getAniCalc <> nil then ListView1.getAniCalc.BoundsAnimation := false;  
  16. Пост Равиль Зарипов (ZuBy) - сообщение в Custom Font был отмечен как ответ   
    для берлина
    для сиетла
    для того чтобы на IOS работать с кастомными шрифтами, это нужно прописать в info.plist.TemplateiOS.xml (для берлина)
    <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> <plist version="1.0"> <dict> <%VersionInfoPListKeys%> <%ExtraInfoPListKeys%> <key>UIAppFonts</key> <array> <string>FontAwesome.ttf</string> </array> <key>ITSAppUsesNonExemptEncryption</key><false/> </dict> </plist>  
  17. Пост Равиль Зарипов (ZuBy) - сообщение в Вложенный список был отмечен как ответ   
    на скорую руку
    SubMenu.zip
  18. Пост Равиль Зарипов (ZuBy) - сообщение в Как открыть файл по ссылке ? был отмечен как ответ   
  19. Пост Равиль Зарипов (ZuBy) - сообщение в [TListBoxGroupHeader] настройки был отмечен как ответ   
    вы забываете про StyledSettings
    ListBoxGroupHeader.StyledSettings := ListBoxGroupHeader.StyledSettings - [TStyledSetting.Size, TStyledSetting.FontColor];  
  20. Пост Равиль Зарипов (ZuBy) - сообщение в [TListView] Как отловить нажатие на картинку в TListView? был отмечен как ответ   
    я могу дать две подсказки
    1) 
    ваш вариант

    мой вариант

    2) 
    ShowMessage(ItemObject.Name); UPDATE:
    Чтобы закрыть тему, приложу измененный вариант 111.zip
  21. Пост Равиль Зарипов (ZuBy) - сообщение в Не работают стили на другом компьютере был отмечен как ответ   
    сохранить стиль в файл рядом Windows 10 Desktop нажать на кнопку удаления Добавить новый стиль, там должно быть написано WIndows Загрузить сохраненный стиль
  22. Пост Равиль Зарипов (ZuBy) - сообщение в Наложение картинки на фото был отмечен как ответ   
    procedure TForm5.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap); var aBitmap: TBitmap; aRectF: TRectF; begin aBitmap := TBitmap.Create; aBitmap.SetSize(Image.Width, Image.Height); aBitmap.CopyFromBitmap(Image); aBitmap.Canvas.BeginScene; aRectF := RectF(aBitmap.Width - Image2.Bitmap.Width, aBitmap.Height - Image2.Bitmap.Height, aBitmap.Width, aBitmap.Height); aBitmap.Canvas.DrawBitmap(Image2.Bitmap, Image2.Bitmap.BoundsF, aRectF, 1, true); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end; Kitty
    void __fastcall TFormCamera::TakePhotoFromCameraAction1DidFinishTaking(TBitmap *Image) { //умный указатель чтобы не использовать delete std::unique_ptr<TBitmap> aBitmap(new TBitmap()); TRectF aRectF; aBitmap->SetSize(Image->Width, Image->Height); aBitmap->CopyFromBitmap(Image); aBitmap->Canvas->BeginScene(); aRectF = RectF(aBitmap->Width - Form1->Image1->Bitmap->Width, aBitmap->Height - Form1->Image1->Bitmap->Height, aBitmap->Width, aBitmap->Height); aBitmap->Canvas->DrawBitmap(Form1->Image1->Bitmap, Form1->Image1->Bitmap->BoundsF, aRectF, 1, true); aBitmap->Canvas->EndScene(); Image1->Bitmap->Assign(aBitmap.get()); //сохранить в галерею _di_IFMXPhotoLibrary Service; if (TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXPhotoLibrary), &Service)) { Service->AddImageToSavedPhotosAlbum(Image1->Bitmap); } }
    Image1 - TImage с конечным результатом
    Image2 - с логотипом
  23. Пост Равиль Зарипов (ZuBy) - сообщение в Отправка данных по http в фоновом режиме был отмечен как ответ   
    полезно к прочтению
     
  24. Пост Равиль Зарипов (ZuBy) - сообщение в анимация батарейки с управлением "уровня заряда" был отмечен как ответ   
    ответ: можно
    P.S. несколько раз прочитал, не понял о чем
  25. Пост Равиль Зарипов (ZuBy) - сообщение в Проверить наличие интернета был отмечен как ответ   
    а вообще я как-то уже выкладывал, универсальный способ проверки интернета, для тех кто в танке)
     
×
×
  • Создать...