Delphi：如何在请求的宽度和行数中绘制一些文本，结尾省略号？
我需要在具有固定宽度（以像素为单位）和固定数量的文本行的表格单元格中绘制一些文本。如果文本被单元格矩形剪切，则必须以省略号结尾。问题是我无法正确计算文本矩形（或者TextRect / DrawText过程无法正常工作，我不确定）。
我试着用这种计算文本矩形的方法：
var
TextRect: TRect;
tm: TEXTMETRIC;
...
GetTextMetrics(Canvas.Handle, tm);
TextLineHeight := tm.tmHeight + tm.tmExternalLeading;
TextRect.Bottom := TextRect.Top + TextLineHeight * NumberOfLines;
Canvas.TextRect(TextRect, 'some long long long text',
[tfTop, tfLeft, tfEndEllipsis, tfWordBreak]);
TextRect.Bottom := TextRect.Top + TextLineHeight * NumberOfLines - 1;
没有找到相关结果
已邀请:
2 个回复
勘掸府迫路
var Text: string; ... Text := 'some long long long text'; SetLength(Text, Length(Text) + 4); // as per DrawTextEx documentation Dec(TextRect.Bottom); Canvas.TextRect(TextRect, Text, [tfTop, tfLeft, tfEndEllipsis, tfWordBreak, tfModifyString]); Inc(TextRect.Bottom); Canvas.TextRect(TextRect, Text, [tfTop, tfLeft, tfWordBreak]);晤默报
计算所需的矩形。