0

以下の例では、アプリケーションが 256x256 ピクセルの 2 つのビットマップ (黄と青) を水平方向 (0-255 と 256-511) に赤い背景の四角形 (512x260) に描画していることがわかります。スケーリングはありません。問題は、背景 (赤) の垂直ピクセル線が 2 つの間に表示されるのはなぜですか? デルフィ 10.1 

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
    System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    bm1: TBitmap;
    bm2: TBitmap;
    br: TStrokeBrush;
    bShift: Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bm1 := TBitmap.Create(256, 256);
  if bm1.Canvas.BeginScene then
    try
      bm1.Canvas.Fill.Color := TAlphaColorRec.Yellow;
      bm1.Canvas.FillRect(RectF(0, 0, bm1.Width, bm1.Height
        ),
        0, 0, AllCorners, 1);
    finally
      bm1.Canvas.EndScene;
    end;
  bm2 := TBitmap.Create(256, 256);
  if bm2.Canvas.BeginScene then
    try
      bm2.Canvas.Fill.Color := TAlphaColorRec.Blue;
      bm2.Canvas.FillRect(RectF(0, 0, bm2.Width, bm2.Height
        ),
        0, 0, AllCorners, 1);
    finally
      bm2.Canvas.EndScene;
    end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bm1.Free;
  bm2.Free;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var
  RecPic: TRectF;
  RecCanvas: TRectF;
  RecCanvas2: TRectF;
begin
  if Canvas.BeginScene then
    try
      Canvas.Fill.Color := TAlphaColorRec.White;
      Canvas.FillRect(RectF(0, 0, PaintBox1.Width, PaintBox1.Height
        ),
        0, 0, AllCorners, 1);

      Canvas.Fill.Color := TAlphaColorRec.Red;
      Canvas.FillRect(RectF(0, 0, 511, 260
        ),
        0, 0, AllCorners, 1);
      RecPic := RectF(0, 0, 255, 255);
      RecCanvas := RectF(0, 0, 255, 255);
      Canvas.DrawBitmap(bm1, RecPic, RecCanvas, 1);

      RecCanvas2 := RectF(256, 0, 511, 255);
      Canvas.DrawBitmap(bm2, RecPic, RecCanvas2, 1);
    finally
      Canvas.EndScene;
    end;
end;

end.

どうもありがとう

4

1 に答える 1

0

RecCanvas を RectF(0, 0, 256, 256) として、RecCanvas2 を RectF(256, 0, 512, 256) として使用する必要があります。これは、ビットマップ描画領域から右と下の境界線が除外されるためです。

于 2016-09-03T10:02:46.303 に答える