Лидеры

Чтобы TBluetooth сменил режим на Discoverable, нужно вызвать метод: TBluetooth.StartDiscoverable(Timeout: Integer);

Классический TBluetooth не поддерживает эту информацию. Но TBluetoothLE позволяет узнать это. Для этого нужно воспользоваться событием: TBluetoothLE.OnReadRSSI(const Sender: TObject; ARssiValue: Integer; AGattStatus: TBluetoothGattStatus)

TScrollBox автоматически высчитывает размер скролируемого контента. Поэтому, когда вы помещаете в него контрол и перемещаете его за видимые границы контрола (ViewPort), то TScrollBox пересчитывает размеры контента и добавляет полосы прокрутки. Отсюда следует важный факт, что размер контента TScrollBox зависит от внутернний контролов. Вы пытаетесь добавить внутрь контента Layout, выравненный по всей области скроллбокса. Что вы вы этом случае ожидаете получить на выходе? Как я думаю, вы догадываетесь, что это выравнивание зависит от размер родительского контрола. А сам скролл бокс (предок), использует ваш Layout для определение размера контента. Так что в вашей ситуации TScrollBox для контента возьмет размер самого скролл бокса. Чтобы вам добавить прокрутку нужно: Взять за основу TVertScrollBox Поместить внутрь TLayout (если хотите, можно без него напрямую складывать контролы). Выравнять его по верхнему краю. В этом случае вы сможете руками задать требуемую высоту, при получении новых данных Когда вы будите знать размер вашего изображения, пересчитать высоту и обновить ее для вашего Layout.

estra, Brovin Yaroslav Огромное спасибо за помощь. Ну и с наступающим Новым годом !

Спасибо, все получилось

TFloatAnimation использует ProcessMessages Это чревато возникновением всяких событий, и даже закрытию формы во время анимации, что приводит к AV очень хочется иметь Repaint без ProcessMessages. Это возможно?