4

OnPaint イベントに単一のフォームと次のコードを含む非常に単純な FireMonkey アプリケーションがあります。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;
4

1 に答える 1

9

Canvas.Stroke.KindAndroidの下ではbkNone（0番目の序数）に初期化されているため、出力がないことがわかりました。

出力を取得する前に含める必要がありCanvas.Stroke.Kind := TBrushKind.bkSolidます。

于 2013-11-06T16:41:48.457 に答える