delphi – 如何绘制“非”彩色文本？

发布时间：2020-12-15 09:39:45 所属栏目：大数据来源：网络整理

导读：我正在寻找一种用反色绘制文字的方法. 对于形状,我们有TPenMode,可以设置为pmNot,但我们不能为文本执行此操作.我怎么能这样做呢？解决方法这样做： procedure DrawTextNOT(const hDC: HDC; const Font: TFont; const Text: string; const X,Y: integer);be

我正在寻找一种用反色绘制文字的方法.
对于形状,我们有TPenMode,可以设置为pmNot,但我们不能为文本执行此操作.我怎么能这样做呢？

解决方法

这样做：

procedure DrawTextNOT(const hDC: HDC; const Font: TFont; const Text: string; const X,Y: integer);
begin
  with TBitmap.Create do
    try
      Canvas.Font.Assign(Font);
      with Canvas.TextExtent(Text) do
        SetSize(cx,cy);
      Canvas.Brush.Color := clBlack;
      Canvas.FillRect(Rect(0,Width,Height));
      Canvas.Font.Color := clWhite;
      Canvas.TextOut(0,Text);
      BitBlt(hDC,X,Y,Height,Canvas.Handle,SRCINVERT);
    finally
      Free;
    end;
end;

例：

procedure TForm1.FormClick(Sender: TObject);
begin
  Canvas.Brush.Color := clRed;
  Canvas.FillRect(ClientRect);
  DrawTextNOT(Canvas.Handle,Canvas.Font,'This is a test.',20,100);
//  DrawTextNOT(Canvas.Handle,100);
end;

您可能还想禁用ClearType.为此,我推荐你到a previous SO question.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!