Delphi 10 TPaintboxコードは、paintboxの代わりにフォームにビットマップを配置します

Question

こんにちは私は以下のコードを使って、今はブロブから入力されたTimageから画像を追加します。私の問題は、このコードは画像をペイントボックスに追加するのではなく、フォームに追加することです。

var 
    RectangleCanvas, RectanglePicture: TRectF; 
    BlobStream: TStream; 
begin 
     BlobStream := qrypunchsheetitemphoto.CreateBlobStream(qrypunchsheetitemphoto.FieldByName('Photo'),TBlobStreamMode.bmRead); 
     imgviewimage.Bitmap.LoadFromStream(BlobStream); 
     fdrawbox:= TMyPaintBox.Create(panel1); 
     fdrawbox.Canvas.BeginScene; 
     fdrawbox.BitmapStamp := imgviewimage.Bitmap; 
     fdrawbox.Height := imgviewimage.Bitmap.Height; 
     fdrawbox.Width := imgviewimage.Bitmap.Width; 
     RectangleCanvas := RectF(10, 10, imgviewimage.Bitmap.Width, imgviewimage.Bitmap.Height); 
     RectanglePicture := RectF(10, 10, imgviewimage.Bitmap.Width, imgviewimage.Bitmap.Height); 
      fdrawbox.Canvas.DrawBitmap(imgviewimage.Bitmap, RectangleCanvas , RectanglePicture, 1); 
      fdrawbox.Canvas.EndScene; 
      fdrawbox.BringToFront; 
      BlobStream.Free; 
      TabControl1.ActiveTab := tabViewImage; 
    end; 
end; 

Answer 1

FMX Paintboxは古いDelphi Paintboxとは異なります。以前は、フォームのどこにでもペイントボックスを置いて描画を開始することができました。結果は、配置したPaintboxの範囲内になります。

FMX Paintboxはそうではなく、私は彼らの推論を理解していません。私はそれがプラットフォーム間の互換性とデバイスがどのようにキャンバス操作を扱うかと関係があると言われてきました。

キャンバス幅を自分で簡単に確認できます。

フォームの幅が640ピクセルで、中央に50 x 50のペイントボックスを配置すると、中央に描画が行われることが予想されます。

自分で確認してください。

ShowMessage(FloatToStr(Paintbox1.Width)); // Result will be 50 

ここでPaintbox1.Canvas.Widthをチェックすると、別の結果が得られます。

ShowMessage(IntoToStr(Paintbox1.Canvas.Width); // Result is 640 

あなたがこれを考慮に入れる必要があり、それに応じてオフセット機能を描くにパラメータを渡します。私は親のクリッピングについていくつかの効果を持っているものを読んだことがあるが、それはうまく動作していないと思う。

TPanelを使用してキャンバスに描画する方法もあります。