Delphi XE7畫布在一個線程中拉伸

Question

我有一個多線程應用程序，在線程類中有一個FInputImage：VCL.Graphics.TBitmap。 我還有另一個名為FImageV的圖像：VCL.Graphics.Bitmap。

檢查以下代碼：

  ...
  FImageV.LoadFromResourceName(HInstance, 'IMAGEH');
  ...

  FInputImage.Canvas.Lock;
  try
    FInputImage.Canvas.CopyMode := cmSrcCopy;
    FInputImage.Canvas.Brush.Color := clRed;
    FInputImage.Canvas.Rectangle(SR);
    FInputImage.Canvas.StretchDraw(SR, FImageV);
  finally
    FInputImage.Canvas.Unlock;
  end;

如果我提交了更多圖像，以至於有多個線程在運行，那么StretchDraw在一段時間后什么也不做，則消失。 我只是看到用Rectangle（SR）繪制的紅色矩形。

這是隨機發生的。 所有對象都在線程內部創建並釋放。 我還嘗試將FImageH作為單獨的類變量添加，因為它是靜態圖像，但是結果是相同的。

任何想法為什么會這樣都會受到歡迎。

謝謝！

Answer 1

也鎖定FImageV的畫布。