Почему мой Delphi TCanvas.DrawLine не появляется при работе на Android

У меня очень простое приложение FireMonkey с одной формой и следующим кодом в событии OnPaint. Когда я запускаю его с использованием целевого объекта Windows, я вижу красную линию и красный квадрат. Когда я запускаю его на своем Android Nexus 7, появляется только квадрат. Должно быть, я делаю что-то глупое, но что это может быть?

Спасибо за любую помощь.

procedure TForm2.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin Canvas.Stroke.Color := claRed; Canvas.Fill.Color := claRed; Canvas.Stroke.Thickness := 3; Canvas.DrawLine( PointF( 0, 0 ), PointF( 200, 200 ), 1.0 ); Canvas.FillRect( RectF( 300, 300, 500, 500 ), 0.0, 0.0, [], 1.0 ); end; 

Я обнаружил, что Canvas.Stroke.Kind под Android инициализируется bkNone (0-й порядковый номер), поэтому нет вывода.

Canvas.Stroke.Kind := TBrushKind.bkSolid как вы получите выход, вы должны включить Canvas.Stroke.Kind := TBrushKind.bkSolid .

Intereting Posts
Как я могу развернуть / выполнить приложение на удаленном компьютере с помощью adb (инструменты платформы Android)? Как исправить собственный SIGABRT с помощью Mapsforge на Android Почему AsyncTask запускается в основном потоке приложения? Не удалось найти текущее местоположение внутри фрагмента Андроид и webos нет масштабирования контента? Ksoap2 Android – как указать пространство имен для дочерних свойств сложного объекта? Отобразить имя приложения на двух строках ниже значка приложения. Когда View получает его границы? Как я могу использовать несколько компонентов GLSurfaceView в одном макете? Java.lang.IllegalArgumentException: Недопустимый символ в запросе у индекса 136 на Android Сохранение обслуживания во время изменений ориентации Получение фотографии из контакта Как установить ProgressBar на центральном экране в рамке? Как запустить службу в отдельном потоке? Отправлять данные в работу, которая работает в фоновом режиме