DrawTextW绘制右对齐斜体文本右侧被裁剪的解决方法咨询

问题 #

使用以下Delphi代码绘制右对齐、自动换行的文本时，文本右侧边缘出现裁剪，斜体字符和数字的裁剪情况尤为明显：

procedure TForm1.Paint;
var
  r: TRect;
  txt: WideString;
begin
  inherited;
  r := Rect(0, 0, 200, 100);
  txt := 'Lorem ipsum dolor sit amet, consectetur ' +
    'adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore ' +
    'magna aliqua. Ut enim ad';
  DrawTextW(Canvas.Handle, PWideChar(txt), -1, {var} r, DT_RIGHT or DT_WORDBREAK);
end;

单行文本可通过末尾添加空格临时规避，但多行自动换行场景下，逐行绘制过于繁琐，需要更优方案实现完整绘制。

解决方案 #

1. 用DT_CALCRECT提前计算文本区域 #

DrawText的DT_CALCRECT标志能先计算出文本实际需要的绘制矩形，基于这个结果调整绘制区域，从根源避免裁剪。步骤如下：

procedure TForm1.Paint;
var
  r: TRect;
  txt: WideString;
  calcRect: TRect;
begin
  inherited;
  r := Rect(0, 0, 200, 100);
  txt := 'Lorem ipsum dolor sit amet, consectetur ' +
    'adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore ' +
    'magna aliqua. Ut enim ad';
  
  // 计算文本所需的精确矩形
  calcRect := r;
  DrawTextW(Canvas.Handle, PWideChar(txt), -1, calcRect, DT_RIGHT or DT_WORDBREAK or DT_CALCRECT);
  
  // 调整绘制矩形：保持右边界不变，左边界右移以匹配文本宽度
  r.Left := r.Right - (calcRect.Right - calcRect.Left);
  
  // 绘制完整文本
  DrawTextW(Canvas.Handle, PWideChar(txt), -1, r, DT_RIGHT or DT_WORDBREAK);
end;

2. 添加DT_NOPREFIX避免字符解析异常 #

如果文本包含&字符，DrawText会默认将其视为加速键前缀，可能导致字符显示或布局异常。添加DT_NOPREFIX可禁用该行为，确保所有字符正常渲染：

DrawTextW(Canvas.Handle, PWideChar(txt), -1, r, DT_RIGHT or DT_WORDBREAK or DT_NOPREFIX);

3. 针对斜体字体调整额外间距 #

斜体字的字符会超出标准字符边界，DrawText的默认计算可能未覆盖这部分延伸。可以用GetTextExtentPoint32W获取文本实际宽度，再额外预留空间：

procedure TForm1.Paint;
var
  r: TRect;
  txt: WideString;
  textSize: TSize;
begin
  inherited;
  r := Rect(0, 0, 200, 100);
  txt := 'Lorem ipsum dolor sit amet, consectetur ' +
    'adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore ' +
    'magna aliqua. Ut enim ad';
  
  // 获取文本实际尺寸（包含斜体延伸部分）
  GetTextExtentPoint32W(Canvas.Handle, PWideChar(txt), Length(txt), textSize);
  
  // 左边界右移，预留2像素额外空间避免裁剪
  r.Left := r.Right - textSize.cx - 2;
  
  // 绘制文本
  DrawTextW(Canvas.Handle, PWideChar(txt), -1, r, DT_RIGHT or DT_WORDBREAK);
end;

内容的提问来源于stack exchange，提问作者Paul