德爾福10 TImage，移動圖像寬度

我想用Delphi 10柏林智能設備建立一個應用程序。在這個應用程序中，我想要加載或拍攝照片，而且我必須將另一個組件放置在圖像寬度相同的X位置。我的問題是，當我將圖像分配給TImage控件時，位圖不佔用TImage控件的所有區域，圖像更小。如何在TImage控件中獲取位圖的實際X位置和寬度？這裏是我的代碼：德爾福10 TImage，移動圖像寬度

begin 
    if Image1.Bitmap.Height > Image1.Bitmap.Width then 
    begin 
    Image1.Bitmap.Rotate(-90); 
    end; 
    Image1.Bitmap.Assign(Image); 
    Memo1.Width := Image1.Width; 
    Memo1.Text := ''; 
end;

來源

2016-06-14 RicardoPin

我嘗試了所有WrapMode值，但是，在將照片分配給TImage控件後，圖像變得比圖像控件小，我試圖拉伸，但圖像變形。我需要將WrapMode屬性設置爲'FIT'，並使用顯示在屏幕上的圖像寬度更改其他控件的寬度以保持對齊。是否有一些代碼在加載到timage控件的位圖屬性後獲取圖像寬度？ – RicardoPin

的FireMonkey TImage組件有一個名爲WrapMode屬性，它可以幫助您控制圖像的位圖是如何在TImageSurface渲染。

你可以在這裏正式文件閱讀更多關於它：

http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Objects.TImage.WrapMode

注：此屬性和它連接的功能僅適用於的TImage的FireMonkey版本，而不是爲VCL版本。

來源

2016-06-14 15:47:20 SilverWarior

在VCL中，'TImage'具有'AutoSize'，'Center'，'Proportional'和'Stretch'屬性。 –

我正在使用FireMonkey而不是VCL，這是一個移動應用程序。 – RicardoPin

德爾福10 TImage，移動圖像寬度

回答

相關問題