学习笔记 ：DrawText

最近在做一个TStringGrid的自绘处理，在画文字处理上遇到了高度的计算问题。后来经过一段时间还是找到了一些方法：

1、使用TLabel

　　这个方法是有点绕路的，方法倒是简单，就是使用AutoSize属于来完成。。

2、使用DrawText

　　DrawText的函数定义：

函数里面最后面那段蓝字标示的很重要，DT_CALCRECT就是用来计算文本尺寸的哦。。做个试验吧：

procedure TForm1.Button1Click(Sender: TObject);

var

  sData: string;

  cellRect: TRect;

begin

  cellRect.Left := ;

  cellRect.Top := ;

  cellRect.Right := ;

  cellRect.Bottom := ;

  sData := '中中国国国 大';

  DrawText(Canvas.Handle, PChar(sData), Length(sData), cellRect, DT_WORDBREAK or DT_CALCRECT);

end;
//执行后没有在界面上画文本

procedure TForm1.Button2Click(Sender: TObject);

var

  sData: string;

  cellRect: TRect;

begin

  cellRect.Left := ;

  cellRect.Top := ;

  cellRect.Right := ;

  cellRect.Bottom := ;

  sData := '中中国国国 大';

  DrawText(Canvas.Handle, PChar(sData), Length(sData), cellRect, DT_WORDBREAK);

end;
//执行后在界面上显示一行字

注意点：

• 这里有一点，DrawText计算后的矩形大小还是通过cellRect来返回的哦。这个参数传入时是做为计算文本显示的矩形大小，返回时就是文本实际占用的矩形大小。
• 同时DrawText运算后也会有函数返回值的，就是文本实际的高度。