在GDI中是否有类似于Delphi TextRect的东西?我查看了DrawText、DrawTextEx,但没有找到所需的内容。我需要绘制一个进度条的百分比文本,该文本被分成两个彩色部分,例如文本的左侧是黑色,右侧是白色。通常在所有进度条中都是如此。谢谢你的回答!
ExtTextOut
函数。procedure TForm4.FormPaint(Sender: TObject);
const
S = 'This is a sample text';
begin
ExtTextOut(Canvas.Handle, 10, 10, ETO_CLIPPED,
Rect(40, 10, 100, 100), PChar(S), length(S), nil)
end;
但我认为你真正想做的是绘制“非彩色文本”:
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, 0, Width, Height));
Canvas.Font.Color := clWhite;
Canvas.TextOut(0, 0, Text);
BitBlt(hDC, X, Y, Width, Height, Canvas.Handle, 0, 0, SRCINVERT);
finally
Free;
end;
end;
procedure TForm4.FormPaint(Sender: TObject);
const
S = 'This is a sample text';
var
ext: TSize;
begin
Canvas.Brush.Color := clBlack;
Canvas.FillRect(Rect(0, 0, Width div 2, Height));
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(Width div 2, 0, Width, Height));
ext := Canvas.TextExtent(S);
DrawTextNOT(Canvas.Handle, Canvas.Font, S, (Width - ext.cx) div 2,
(Height - ext.cy) div 2);
end;
(来源:rejbrand.se)
TextRect
中缺少什么了。你要找的WinAPI函数是ExtTextOut
。不过,我想是否只需绘制单个非彩色文本会更简单呢…… - Andreas Rejbrand
TextOut
和DrawText
(DrawTextEx
)。这些函数比Delphi函数包含更多功能。您需要什么特定的功能?您的TCanvas
代码是什么样子的?为什么您感觉需要放弃TCanvas
? - Andreas Rejbrand