enatechno

что-то типа этого?

demoLV.zip

В файле dpoj :
begin Application.Initialize; Application.FormFactor.Orientations := [TScreenOrientation.Portrait]; Application.CreateForm(.....); Application.Run; end.

Задавайте свойство главной формы FormFactor.Orientations для различных представлений (View).
 

Задавайте свойство главной формы FormFactor.Orientations для различных представлений (View).
 

http://fire-monkey.ru/topic/295-obnovlenie-spiskov-tlistbox-tlistview-kak-v-populiarnykh-prilozh/
http://fire-monkey.ru/topic/217-obnovlenie-spiska-listbox-kak-v-prilozhenii-vkontakte/

Все, окончательно осознал механизм работы, теперь все стало на свои места. Все дело в том, что моя камера выдает данные в формате AARRGGBB, только вот значение старших двух бит равно $00, а не $FF. Поэтому картинка и воспринимается прозрачной для TImage. В итоге пробежался в цикле по памяти, поменял нули на $FF и все заработало. 

Елки зеленые... Не подумал)
вот исправлено на стандартный TImage
SampleClock.zip

вот так делается
self.Fill.Color:= TAlphaColorF.Create(255/Random(255), 255/Random(255), 255/Random(255), 255/Random(255)).toAlphaColor;

Как Вы работали с потоком? Использовали TBitmapCodecManager.SaveToStream и указывали расширение .bmp?
У меня такой код правильно отображает Ваш тестовый test3FMX.bmp:
procedure TFormMulticam.Button1Click(Sender: TObject); var bmp: FMX.Graphics.TBitmap; aSurf: TBitmapSurface; aMemStream: TMemoryStream; begin bmp := GCameraArray[0].GetFMXBitmap; aMemStream := TMemoryStream.Create(); try aSurf := TBitmapSurface.Create(); try aSurf.Assign(bmp); TBitmapCodecManager.SaveToStream(aMemStream, aSurf, '.bmp'); Image1.Bitmap.LoadFromStream(aMemStream); finally FreeAndNil(aSurf); end; finally FreeAndNil(aMemStream); end; //Image1.Bitmap.Assign(bmp); bmp.Free; end; Пока не указано явно, что TBitmap имеет формат BMP, TImage в FMX работает с ним как с PNG.

Задан RotationCenter?
В Вашем случае до выполнения RotationAngle нужно опустить по Y центр контрола, отображающего стрелку. Например так:
В run-time:
[контрол со стрелкой].RotationCenter.Y := 0.8;
или в design-time:

 
Значение 0.8 вычислено мной ориентировочно.
 

http://edn.embarcadero.com/article/44619
 

Спасибо Вам за видео.
Я еще протестировал код без фикса на различных устройствах. На некоторых проблем не наблюдалось (samsung c android 4.3; desktop c windows 8 и 10), на некоторых был маленький "шум" (android 4.4.2), на некоторых было что-то типа такого https://youtu.be/EfFNAIfSRTg (nexus 7 c android 5.1.1; iOS simulator 7.1 и 9.1; desktop с windows 7).

никаких изменений в исходниках
смотрите сами
 
https://www.youtube.com/watch?v=SurYKJn9-dA

ну вот все дело в очистке так и знал же

К примеру компонент TTMSFMXIPEdit реализован комбинацией TTMSFMXEdit и TLabel.
Т.е. чтоб смотрелось красиво можно разместить стилизованные безрамочные TEdit и TLabel внутри какого-нибудь контейнера (TRectangle, TEdit...).

Привет Всем!
Много тем на форуме про раскраску TListView, нашел в интернете решение и доработал его
Вот что получилось
   
LV_Helper.zip                                                                  ColorListView.zip
Доступно для Seattle
ListView1.SetColorItemSelected(TAlphaColorRec.Orangered); //выделенный ListView1.SetColorItemFill(TAlphaColorRec.Gray); // обычный цвет Item ListView1.SetColorItemFillAlt(TAlphaColorRec.Lightgrey); // альтернативный цвет Item ListView1.SetColorBackground(TAlphaColorRec.Black); // цвет самого TListView ListView1.SetColorItemSeparator(TAlphaColorRec.Lightgray); // Линия разделения Item'ов ListView1.SetColorText(TAlphaColorRec.Red); // Обычный текст ListView1.SetColorTextSelected(TAlphaColorRec.White); // выделенный текст ListView1.SetColorTextDetail(TAlphaColorRec.Yellow); // текст доп. инфы ListView1.SetColorTextHeader(TAlphaColorRec.Green); // текст заголовка ListView1.SetColorTextHeaderShadow(TAlphaColorRec.Lightgray); // тень текста   ListView1.SetColorButtonText(TAlphaColorRec.Orange); // цвет текста кнопки   ListView1.SetColorButtonTextPressed(TAlphaColorRec.Orangered); // цвет нажатой кнопки добавлено в Berlin
ListView1.SetColorPullRefresh(TAlphaColorRec.Orange); ListView1.SetColorPullRefreshIndicator(TAlphaColorRec.Orangered); ListView1.SetColorStretchGlow(TAlphaColorRec.Lime); ModernListView.rar

это делается так
TLayout = Top\Bottom      TLayout = Center            Button1 = Left\Right            Button2 = Left\Right            Button3 = Left\Right            Button4 = Left\Right            Button5 = Left\Right center_demo.zip

Обычно выкладываются сюда

Обычно выкладываются сюда

var   BmpNew     : TBitmap; begin     BmpNew := TBitmap.Create;     BmpNew.SetSize({нужный размер}, {нужный размер});     BmpNew.Canvas.BeginScene;     try       BmpNew.Canvas.Fill.Kind := TBrushKind.Bitmap;       BmpNew.Canvas.Fill.Bitmap.WrapMode := TWrapMode.TileStretch;       BmpNew.Canvas.Fill.Bitmap.Bitmap := {ваш битмап};       BmpNew.Canvas.Clear(0);       BmpNew.Canvas.FillEllipse(RectF(0, 0, {нужный размер}, {нужный размер}), 1);     finally       BmpNew.Canvas.EndScene;     end;     TImage{ваш объект}.Bitmap.Assign(BmpNew); end; думаю так

Компонент TMapsEngine
 
Возможности
Нативный LocationSensor [ANDROID] Геокодинг/Реверс геокодинг через Google API, Yandex API, Here Maps API Построение маршрута через Google Distance API Расчет дистанции по прямой Совместим со стандартным компонентом TLocationSensor  
Видео демонстрация
 
На видео видно как TMapView косячик с миллионом точек, приложение зависло при отрисовке, но с этим ничего не поделать.
Без синхронизации не возможно отрисовать все точки
 
Исходник
TMapsEngine_source.zip
TMapsEngine_Seattle_10.zip
 
Скачать APK  (долго он там не пролежит, а форум не позволяет загрузить zip размером 7,4 мб )
 

Если просто для демонстрации вашего экрана для презентации, то можно использовать DroidAtScreen. Root права не требуется. Трансляция экрана идет штатными средствами ADB.

Есть в примерах.  
Samples\Object Pascal\Mobile Snippets\InteractiveGestures\ImageZoom\ImageZoom.dproj
или тут

TImageList - это новый компонент http://blogs.embarcadero.com/roschinspb/2015/03/03/timagelistxe8ru/.
Видео https://www.youtube.com/watch?v=YTU7o7xMbws
Обсуждение http://fire-monkey.ru/forum/35-timagelist-s-xe8/

Ваша ошибка в том, что вы присваиваете имя файла, а не TBitmap.
Item.StylesData['imageaction'] := '.\images\ScenarioImage\actions\' + IntToStr(ActionID) + '.png'; Загрузка картинки с диска:
var aFileStream: TFileStream; .... aFileStream := TFileStream.Create('.\images\ScenarioImage\actions\' + IntToStr(ActionID) + '.png', fmOpenRead); try if (aFileStream.Size > 0) then Item.StylesData['imageaction'] := TValue.From<TBitmap>(TBitmap.CreateFromStream(aFileStream)); finally FreeAndNil(aFileStream); end; если проблема останется, то вот еще тема.