2013-07-30 4 views
6

私は自分のプロジェクトに簡単なイメージエディタを書いています。そこ塗装されたテキストの下に白い背景なしでTCanvasにテキストを描画するには?

エディタで画像を見ることができます:TImageの上

enter image description here

は、私はいくつかのTLabelを置きました。私はTLabelをdrawed画像を、持っている結果

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; 

:私はこのコードを書いたTLabelsを描画するための

enter image description here

プレビューでは、画像上にTLabelsを描画した結果を見ることができますテキストの下に白い背景があります。それなしでTLabelを引き出す方法は?答えのためのすべての

答えて

4

感謝。 ここに解決策が見つかりました:

問題が解決しました。

15
Img.Canvas.Brush.Style := bsClear; 
関連する問題