DMS

Мне интересно, а у вас случается такое?

Написали на Delphi приложение для android, работаете в нем. Во время работы на мобильник приходит смс-ка или еще что, неважно. Главное, что экран перекрывается другим приложением. Вы закрываете это приложение, возвращаетесь к своему, а оно зависло.

Здравствуйте!

Может вопрос не имеет прямого отношения к Delphi, но без него не могу нормально программить FMX.

Как получить Root-права на планшет (у меня texet tm-7053)? Все инструкции в Инете, что я смотрю, требуют установки либо Kingroot, либо Vroot, либо Framaroot, а антивирусы ругаются на них и крайне не рекомендуют их устанавливать.

android 4.4.2

Подскажите плиз, как сделать Groupbox прозрачным (под мобильные системы)?

Help me please!

19 часов назад, Равиль Зарипов (ZuBy) сказал:

так же как и в любом другом компоненте, или в родном TListView. можно прям в дизайнере

Извиняюсь, что снова беспокою, но у меня ничего не получается(

1. Ставлю ListView1.SetColorItemFill(TAlphaColorRec.White). Всё равно всё черное.

2. Меняю ItemAppearanceObjects.ItemObjects.Text.Font.Size и ItemAppearanceObjects.ItemObjects.Text.Font.StyleExt. Ничего в программе не меняется

3 часа назад, Равиль Зарипов (ZuBy) сказал:

https://github.com/rzaripov1990/ModernListView#colorizer

цвет можно установить.... а размер и начертание - нет?

5 часов назад, Равиль Зарипов (ZuBy) сказал:

все верно

Скажите плиз, а как в вашем компоненте установить цвет, размер и начертание для айтемов?

Я еще не совсем хорошо знаю Delphi.

Получается, первым делом компилятор ищет модуль в папке с dpr и если не находит, то ищет дальше в Embarcadero\Studio\18.0\source\fmx ?

3 часа назад, Равиль Зарипов (ZuBy) сказал:

Там ведь есть демо...

В папку с проектом

А файлы FMX.FireMonkey.Parser.pas и FMX.ListView.TextButtonFix.pas для чего? Они нужны, если только прозрачность айтемов нужна?

3 часа назад, Равиль Зарипов (ZuBy) сказал:

Какую мою поставку? Это модернизированные(дописанные) сорсы эмбы

В ваш репозиторий включены сорсы эмбы. Мне их положить в корень с dpr или в папку "Embarcadero\Studio\18.0\source\fmx"

  ListView1.ItemAppearance.ItemAppearance := 'ListItemRightDetail';
  ListView1.Transparent := True;

И Листвью всё равно не прозрачный. Картинка под ним не видна (Delphi 10)

5 часов назад, Равиль Зарипов (ZuBy) сказал:

можно, используя ModernLV

TListView.Transparent
TListView.TransparentHeaders 
TListView.TransparentItems 
TListView.TransparentSeparators 

 

Можно узнать, зачем вы включили в свою поставку FMX.ListView.pas и FMX.ListView.Types.pas? Они же эмбаркадеровские

или можно добиться подобного с компонентом ListView?

Почему под Windows он прозрачен, а под Android нет??

Здраствуйте все!

Не могу добиться нужного внешнего вида Листбокса под Андроидом:

  ListBox1.DefaultItemStyles.ItemStyle := 'listboxitembottomdetail';
  ListBox1.StyleLookup := 'transparentlistboxstyle';

Листбокс не прозрачен у меня

9 часов назад, Sashar333 сказал:

Здравствуйте!

Подскажите пожалуйста как делается самая простая проверка подключения телефона на android к интернету, перед выполнением функции IdHTTP1.get ?

Без этого приложение "вылетает".

В программе требует просто пропустить выполнение этой функции, если нет интернета.

Заранее спасибо! 

Не должно вылетать, даже если Инета нет

Можно работать без установленного приложения FB. Юзать REST и Tfrm_OAuthWebForm

Здрасти всем!

Обязательно создавать свой ключ в RAD Studio и подписывать им приложение перед публикацией в Google Play?

Никакой рекламы и никаких покупок нет в программе.

Непонятно только, почему на одной странице приводятся примеры, в одном случае DisposeOf, в другом - Free. Примеры писали разные люди? Какая-то несогласованность, имхо.

Такого бардака в документации, например, Майкросоофта нет.

Вопрос про мобильные системы. Разброд и шатания.

Вот на этой странице схожие примеры, но один оканчивается DisposeOf, а другой Free.

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Mobile_Tutorial:_Using_Notifications_(iOS_and_Android)

procedure TForm1.RepeatedNotificationClick(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Title := 'MyNotification';
    MyNotification.AlertBody := 'Repeating notification each minute!';
    //Fired in 10 seconds
    MyNotification.FireDate := Now + EncodeTime(0, 0, 10, 0);
    //Repeated each minute
    MyNotification.RepeatInterval := TRepeatInterval.Minute;
    // Send notification to the notification center
    NotificationCenter1.ScheduleNotification(MyNotification);
  finally
    MyNotification.Free;
  end;
end;

procedure TForm1.ScheduleNotificationClick(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'MyNotification';
    MyNotification.AlertBody := 'Delphi for your mobile device is here!';
    // Fired in 10 seconds
    MyNotification.FireDate := Now + EncodeTime(0, 0, 10, 0);
    // Send notification to the notification center
    NotificationCenter1.ScheduleNotification(MyNotification);
  finally
    MyNotification.DisposeOf;
  end;
end;