コードによる画像のアクセスサイズ情報

Question

私はDelphi 10.1 Berlinを使用しています。画像を作成し、そのキャンバスサイズをビットマップサイズと同じにする必要があります。具体的には、私はこのプロパティにアクセスしたいと思っています：

「画像によってサイズ設定されました」。しかし、私はどのように私はこれにアクセスすることができます把握することはできません、助けてください！ :-D

EDIT：あなたたちは私が達成しようとしているものをよりよく理解する必要がある場合、これは、私が使用しているコードです：

imgProdutoZoom := TImage.Create(rtFundoArredondadoZoom); 
imgProdutoZoom.Parent := rtFundoArredondadoZoom; 
imgProdutoZoom.Align := TAlignLayout.Client; 
imgProdutoZoom.Bitmap.Assign(imgProduto.Bitmap); 
imgProdutoZoom.WrapMode := TImageWrapMode.Fit; 
imgProdutoZoom.Name := 'imgZoom'+ IntToStr(i); 

私はこのコードを見つけました：imgProdutoZoom.MultiResBitmap.SizeKind.Source; しかし、 '[dcc32エラー] MainFrm.pas（628）：E2018レコード、オブジェクトまたはクラスの種類が必要です'

Answer 1

rtFundoArredondadoZoomは表示されませんでしたが、それはTRectangleと見なされます。

あなたは

imgProdutoZoom.Parent := rtFundoArredondadoZoom; 
imgProdutoZoom.Align := TAlignLayout.Client; 

を設定するときは、親（rtFundoArredondadoZoom）のエリアを埋めるに語っています。ただし、TImage.WrapModeはデフォルトでTImageWrapMode.Fitであるため、画像はアスペクト比を保持し、親を満たすために伸縮しません。

設定の制限要因は、rtFundoArredondadoZoomの矩形、具体的にはその高さです。画像をフルサイズで表示するには、設定する必要があります

rtFundoArredondadoZoom.Height := imgProdutoZoom.Bitmap.Height; 

場合によっては、矩形の幅を設定することもできます。

次の画像が矩形に設定高さを適用した後、そして基本的に、コード

を用いてより小さな高さを有する矩形の左に元のサイズの画像を示し、TE同じ画像

に応じて修正さあなたのコードは次のようになります。

imgProdutoZoom := TImage.Create(rtFundoArredondadoZoom); 
imgProdutoZoom.Parent := rtFundoArredondadoZoom; 
imgProdutoZoom.Align := TAlignLayout.Client; 
imgProdutoZoom.Bitmap.Assign(imgProduto.Bitmap); 
// imgProdutoZoom.WrapMode := TImageWrapMode.Fit; // not needed 
rtFundoArredondadoZoom.Height := imgProdutoZoom.Bitmap.Height; // add this 
imgProdutoZoom.Name := 'imgZoom'+ IntToStr(i);