Boyalı metin altında beyaz arka plan olmadan TCanvas üzerinde metin çizmek nasıl?

Question

Projem için basit bir resim editörü yazıyorum. Orada

Eğer düzenleyici görüntü görebilirsiniz: TImage Üstü

, ben birkaç TLabel yerleştirilir. önizlemede

Eğer görüntü üzerinde TLabels çizim sonucu görebilirsiniz: Bu kodu yazdım TLabels çizim için

: Ben görüntü var

procedure TPrintForm.BuildPreview(aSsignTo: TImage); 
    var 
     Img: TBitmap; 
     i: Integer; 
    begin 
     Img := TBitmap.Create; 
     try 
     Img.Assign(fSrcBitmap); 
     for i := 0 to Count - 1 do 
     begin 
      Img.Canvas.Font := Items[i].Text.Font; 
      Img.Canvas.TextOut(Items[i].Text.BoundsRect.TopLeft.X - Items[i].Text.Font.Size, 
      Items[i].Text.BoundsRect.TopLeft.Y - Items[i].Text.Height - 
      Items[i].Text.Font.Size, Items[i].Text.Caption); 
     end; 
     aSsignTo.Picture.Assign(Img); 
     finally 
     FreeAndNil(Img); 
     end; 
    end; 

sonucunda, nerede TLabel drawed Metin altında beyaz arka plan var. TLabel nasıl çizilir?

Answer 1

Tüm cevaplar için teşekkürler. çözümlenmiş

SetBkMode(Img.Picture.Bitmap.Canvas.Handle,TRANSPARENT); 

Sorun: burada çözüm bulundu.

Answer 2

Img.Canvas.Brush.Style := bsClear;