chaplin.u@gmail.com

Я имею ввиду 

Buttton

как говорит Леонид Якубович : в этом слове есть 3 такие буквы значит вам полагается шкатулочка...

может проблема в этом : 

locMessageForm.Buttton.ModalResult := mrOk;

что тут на форуме происходит ? получается что проще в книжках найти ответ.

не верю что никто не знал об TTabTransition::Slide

так это для дельфинов а я на бильдере..

Есть пример TTabbedwithNavigationForm . когда я провожу пальцем в сторону то табы меняются но скачком ( сначала один таб а потом сразу второй) . как сделать чтобы это было плавно т.е чтобы видно было оба таба сразу.

решение как я и предполагал простое. У ListBox есть свойство GroupingKind. Так вот по дефолту оно стоит Plaint (без зазоров) а когда меняешь на  Grouped появляются полосочки как я и хотел.

странно что никто на форуме этого не знал...

Освежите в памяти для того чтобы аппликация была совместима с Лоллипопом ( Андроид 5) какие версии SDK NDK должны стоять ?

ага и сидим 15 секунд и ждём может чего произойдёт. И я знаю что - юзер вырубит апликацию и пошлёт матом того кто это написал.

Я так понимаю вот уже получен Result := FJGatt.discoverServices;    

и если " if Result then     begin       FServicesEvent.WaitFor(BLEDiscoverServicesTimeout);       Result := FLastStatus = TBluetoothGattStatus.Success;

зачем опять брать Result и сравнивать с  FLastStatus := TBluetoothGattStatus.Failure;

чёто наворотили они.

27 минут назад, chaplin.u@gmail.com сказал:

Result := FLastStatus = TBluetoothGattStatus.Success;

так можно на дельфях писать ? правописание правильное ?

1 минуту назад, kami сказал:

Вопрос про логику - на quality.embarcadero.com.

дык и я в тот огород камень

а если нет - то будет стоять 15 секунд ???? это что за логика ? я поменял на 500 ( полсекунды ) и стало гораздо лучше.

а это что за перл ?

Result := FLastStatus = TBluetoothGattStatus.Success;

что-то тут не ладно с логикой :

function TAndroidBluetoothLEDevice.DoDiscoverServices: Boolean;
const
  BLEDiscoverServicesTimeout = 15000;
begin
  InternalGetGattClient;
  Result := False;
  if GetIsConnected then
  begin
    FServicesEvent.ResetEvent;
    FServices.Clear;
    FLastStatus := TBluetoothGattStatus.Failure;
    if FRefreshMethod and FForceRefreshCachedServices then
      FJGatt.refresh;
    Result := FJGatt.discoverServices;
    if Result then
    begin
      FServicesEvent.WaitFor(BLEDiscoverServicesTimeout);
      Result := FLastStatus = TBluetoothGattStatus.Success;
      if Result then
      begin
        InternalGetServices;
        FReconnected := False;
        DoOnServicesDiscovered(Self, FServices);
      end;
    end;
  end;
end;

---------------

не могу понять зачем задержка на 15000 ?

вроде всё путём :

1.BluetoothLE1->DiscoverDevices(ScanningTime); - находит устройство

2.FBLEDevice->Connect(); - подключается 

3. FBLEDevice->DiscoverServices(); - читает сервисы но периодически застревает 

 Кто-то знает что может быть ?

я делаю для Андроида и там такие потоки слёз програмистов... Два телефона с одной и той же версией а работают по разному....

так что  Sleep(N)  самое удачное решение. Спасибо !

нужно оставить прибор в покое на N мсек. конечно первая мысль была поставить таймер но подумал жалко тратить ресурсы.

В программе данные не успевают обработаться. нужно сделать задержку на секунду. поставить цикл не хотелось бы чтобы не загружать прибор. 

может кто подскажет мудрое решение.

примерчик плиз. я ужастно люблю коды ( желательно для бильдера).

ok,  сервер сторонний  а в радосной студии есть решение для клиента ?  компонента к которой обращаться ? пример ?

Скажем у меня есть аппликация на одном телефоне и такая-же на другом телефоне. юзер нажимает кнопки на телефоне в аппликации которая работает в режиме передачи. то что он нажимает посылается через интернет на такую-же аппликацию которая работает в режиме приема. полученная информацию показывается на экране второго телефона.

Как сделать связь между ними по интернету ? есть ли примеры и решения ?

Если вопрос задан в теме TListBox -> стилизация то видимо речь идёт об TListBox.  Курсы я не кончал так что стиль поменять не могу. если это так просто - сделайте это пожалуйста в качестве тренировки.

а какие данные ещё нужно ? у стандартного листбокса нет каких-то полосок между итемами а у этого есть. можно конечно ставить панели на каждый итем но потом придётся обращаться не детям а к внукам а это не удобно.

что такое кастомный итем ? может люди закончившие курсы по стилям могут кастомнуть стиль листбокса ?  есть желающие ?

Как сделать разделители между итемами. Как на картинке.

устройство тут не причём. я повторюсь что речь идёт о доступе к функции которая описана в Androidapi.JNI.Bluetooth.pas. Должны быть стандартные способы обратиться к этой функции.

Кстати для проверки можно обратиться к любой другой функции (которую ты можешь проверить ) описаной в этом или другом файле в этой-же директории.  

если дело в оплате то можно договориться.