在調用Canvas.DrawBitmap（Firemonkey）之前將轉換應用於位圖

Question

下午好。

我正在研究一個繪圖程序，允許用戶在畫布上拖放使用位圖加載的TImages。 （在RAD Studio XE2中的Firemonkey HD應用程序中）然後用戶可以在保存圖像之前更改x和y的比例和旋轉角度。 所有TImages都保存在一個列表，然後這個列表是使用這個簡單的程序寫入底層帆布：

for i := 0 to DroppedList.Count - 1 do 
    begin 
    AImage := DroppedList[i]; 
    SourceRect.Left := 0; 
    SourceRect.Right := AImage.Bitmap.Width; 
    SourceRect.Top := 0; 
    Sourcerect.Bottom := AImage.Bitmap.Height; 

    TargetRect.Left := AImage.Position.X; 
    TargetRect.Right := AImage.Position.X + AImage.Bitmap.Width; 
    TargetRect.Top := AImage.Position.Y; 
    TargetRect.Bottom := AImage.Position.Y + AImage.Bitmap.Height; 

    with FImage.Bitmap do 
    begin 
     Canvas.BeginScene; 
     Canvas.DrawBitmap(AImage.Bitmap, SourceRect, TargetRect, 1, True); 
     Canvas.EndScene; 
     BitmapChanged 
    end; 
    end; 

    FImage.Bitmap.SaveToFile('test.bmp'); 

的問題，這是轉變到規模和，在可見的圖像的旋轉窗口不被DrawBitmap考慮在內，保存時會丟失。 我正在尋找一種將繪製到背景之前應用轉換到位圖的方法。 我無法找到關於此的任何信息，所以我希望有人在這裏可以幫助。

謝謝 丹尼爾

Answer 1

的問題似乎是，縮放和旋轉都applyed到源的TImage。在這個「源TImage」中，轉換不是在位圖上完成的，而是在TImage層次上完成的（因爲它是TControl，所有TControl都可以縮放和旋轉）。稍後將其他位置的源位圖複製，但實際上此位圖從未更改過。

所以必須旋轉和縮放循環中的位圖，根據源TImage中的設置：

with FImage.Bitmap do 
begin 
    Canvas.BeginScene;  
    LBmp := TBitmap.Create; 
    try 
    // create a copy on which transformations will be applyed 
    LBmp.Assign(AImage.Bitmap); 
    // rotate the local bmp copy according to the source TImage. 
    if AImage.RotationAngle <> 0 then 
     LBmp.Rotate(AImage.RotationAngle); 
    // scale the local bmp copy... 
    If AImage.Scale.X <> 1 
     then ; 
    Canvas.DrawBitmap(LBmp, SourceRect, TargetRect, 1, True); 
    finally 
    LBmp.Free; 
    Canvas.EndScene; 
    BitmapChanged 
    end; 
end; 

這個簡單的代碼示例很好地解釋了這個問題。例如，RotatationAngle屬於AImage而不是AImage.Bitmap。

避免執行轉換的解決方法是使用TControl.MakeScreenshot（）。（待驗證，這可能會失敗）

with FImage.Bitmap do 
begin 
    Canvas.BeginScene; 
    LBmpInclTranformations := AImage.MakeScreenShot; 
    Canvas.DrawBitmap(LBmpInclTranformations, SourceRect, TargetRect, 1, True); 
    Canvas.EndScene; 
    BitmapChanged 
end;