如何在某一个背景有图的地方输出文字而不破坏背景?

[pascal_lee_tw]

我要在一个背景有图的地方输出文字，
若是使用 Canvas.TextOut 来输出文字，
则在输出周围会有一个方形区域被Canvas.Brush的颜色遮盖掉。

但是如果使用 TLabel，
并且设定 Transparent:=True，
则不会有这个问题。

由于我在设计某个功能的组件，
不能直接使用 TLabel，
而必须使用类似TCanvas画出文字，
我要使用什么技巧（技朮），
才能在某一个背景有图的地方输出文字而不破坏背景﹖

[nhconch]

Canvas.Brush.Style := bsClear;
Canvas.TextOut(......

[zdq801104]

我觉得你要的这个功能很难实现，看看高手怎么解决，只能帮你UP了

[nyf1220]

由于我在设计某个功能的组件，
不能直接使用 TLabel，

那你可以动态的创建啊

[XuDunYu]

1给你一段TcustomLabel的paint源码

procedure TCustomLabel.Paint;
const
Alignments: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);
WordWraps: array[Boolean] of Word = (0, DT_WORDBREAK);
var
Rect, CalcRect: TRect;
DrawStyle: Longint;
begin
with Canvas do
begin
if not Transparent then
begin
Brush.Color := Self.Color;
Brush.Style := bsSolid;
FillRect(ClientRect);
end;
Brush.Style := bsClear;
Rect := ClientRect;
{ DoDrawText takes care of BiDi alignments }
DrawStyle := DT_EXPANDTABS or WordWraps[FWordWrap] or Alignments[FAlignment];
{ Calculate vertical layout }
if FLayout <> tlTop then
begin
CalcRect := Rect;
DoDrawText(CalcRect, DrawStyle or DT_CALCRECT);
if FLayout = tlBottom then OffsetRect(Rect, 0, Height - CalcRect.Bottom)
else OffsetRect(Rect, 0, (Height - CalcRect.Bottom) div 2);
end;
DoDrawText(Rect, DrawStyle);
end;
end;

[XuDunYu]

procedure TCustomLabel.DoDrawText(var Rect: TRect; Flags: Longint);
var
Text: string;
begin
Text := GetLabelText;
if (Flags and DT_CALCRECT <> 0) and ((Text = '') or FShowAccelChar and
(Text[1] = '&') and (Text[2] = #0)) then Text := Text + ' ';
if not FShowAccelChar then Flags := Flags or DT_NOPREFIX;
Flags := DrawTextBiDiModeFlags(Flags);
Canvas.Font := Font;
if not Enabled then
begin
OffsetRect(Rect, 1, 1);
Canvas.Font.Color := clBtnHighlight;
DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, Flags);
OffsetRect(Rect, -1, -1);
Canvas.Font.Color := clBtnShadow;
DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, Flags);
end
else
DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, Flags);
end;

[constantine]

一句就可以了
Canvas.Brush.Style := bsClear;

[Iamfish]

楼上都说了.

Canvas.Brush.Style := bsClear;

[wfhlxl]

with canvas do
begin
brush.style:=bsclear;
font.color:=youwantcolor;
texout...
end;

[xiaoxiao197821]

一楼正确