OnePeople

Всем привет. Rad studio 10.3.3 Кто нибудь знает как работать с Bluetooth PBAP? Мои мысли в грубой форме Вопросы: 1.Какой запрос мне отправить, чтобы получить телефонную книгу другого устройства? 2.Чтобы потом позвонить, мне нужно будет еще один сокет создавать, с подключением к другому сервису? PS Спасибо тем кто откликнется! Может кто в java шарит https://github.com/gitzxon/MyBluetoothDemo/blob/master/app/src/main/java/android/bluetooth/client/pbap/BluetoothPbapClient.java

Если создать layout в нем rectangle с белым цветом с прозрачность, то при TAnimator.AnimateFloat(layout, 'Opacity', 0.2, 0.35); rectangle наоборот становиться ярче Тест приложение кнопка внизу, при нажатии все становиться белое( https://dropmefiles.com/3DgQB

Пытаюсь получить список всех приложений(Работает), но если раскомментировать // iconapp.Assign(Surface); то не работает( Как правильно получить иконку приложения??? procedure TForm1.Image20Click(Sender: TObject); var LList: JList; i, ost:integer; LApplicationInfo: JApplicationInfo; iconapp: TBitmap; Drawable: JDrawable; Bitmap: JBitmap; Surface: TBitmapSurface; AppCount: Integer; begin LList:=GetActivityAppList; AppCount:=LList.size - 1; if AppCount mod (Round(glAllApp.Width) div Round(glAllApp.ItemWidth))>0 then ost:=1 else ost:=0; glAllApp.Height:=((AppCount div (Round(glAllApp.Width) div round(glAllApp.ItemWidth)))+ost) *glAllApp.ItemHeight; for I := 0 to LList.size - 1 do begin LApplicationInfo := TJResolveInfo.Wrap(TAndroidHelper.JObjectToID(LList.get(I))).activityInfo.applicationInfo; if (LApplicationInfo.flags and TJApplicationInfo.JavaClass.FLAG_SYSTEM) = 0 then begin Drawable := TAndroidHelper.Context.getPackageManager.getApplicationIcon(LApplicationInfo); Bitmap := TJBitmapDrawable.Wrap((Drawable as ILocalObject).GetObjectID).getBitmap; Surface := TBitmapSurface.Create; JBitmapToSurface(Bitmap, Surface); try // iconapp.Assign(Surface); except end; AddApplicationTile(JCharSequenceToStr(TAndroidHelper.Context.getPackageManager.getApplicationLabel(LApplicationInfo)), JStringToString( TJResolveInfo.Wrap(TAndroidHelper.JObjectToID(LList.get(I))).activityInfo.packageName), iconapp); Surface.Free; end; end; end;

Я так думаю проблема тут в visual bind

Не видя полной картины трудно понять. А почему TListViewItem(ListView1.Selected).Text а не AItem.Text

Да создайте свой стиль для итема какой хотите, хоть 2 строчки хоть 10!

Приложение хорошее, но оценить производительность FGX по нему сложно(, хотя отзывчивость заметна. P.S. У иконки приложения неправильная тень:

Ну на счёт помощи, ваша тема про стиль итема в ListBox, это ну уж очень просто, поэтому здесь вам вряд ли ответят, скажут воспользуйтесь поиском. Прежде чем просить помощи постарайтесь сначала сами поискать и разобраться, а судя по вашим вопросам вы это делали не достаточно хорошо!

Вы уверены что Вам это надо? Может сначала литературу какую нибудь по delphi почитать, а уж потом что то делать!? 2.rar

По быстрому) Paint.rar

Обновлено 1.Исправлено сохранение игры, если игра установлена на диск С:. 2.Исправления сетевой синхронизации 3.Мелкие ошибки интерфейса

Тоже свой вариант по быстрому накидал, как пример WhatNew.rar

1.Можно взять Rectangle, залить его с Alpha 70%. И поместить в него изображение. 2.Затем расчитать абсолютное положение контрола на форме, его размеры,сделать его скриншот. 3.Изображению задать соответствующие размеры, координаты и скриншот контрола, можно добавить свечение.

Делал чисто для себя! И только для своего удовольствия! Возможны ошибки!*(вернее точно есть))) Графика не окончательная! Скриншоты сервер: Скриншоты клиент: Сервер на комп, клиент Android (должны находиться в одной сети) P/S И так как все устройства у меня Full HD, проверял только на них( Monopoly.rar

Да всё проще, не стал заморачиваться, сделал поток с wait на количество секунд в анимации. Т.е. в потоке wait не вешает форму и всё, но это п...ц а не костыль(