WinAPI: ExtTextOut - 扩展的文本输出

//声明:
ExtTextOut(
  DC: HDC;          {设备环境句柄}
  X, Y: Integer;    {起点坐标}
  Options: Longint; {选项}
  Rect: PRect;      {指定显示范围; 0 表示限制范围}
  Str: PChar;       {字符串指针}
  Count: Longint;   {字符串长度}
  Dx: PInteger      {表示字符间距的数组; 是可选值}
): BOOL;

//Options 参数可选值:
ETO_OPAQUE         = 2;     {输出前, 用当前背景色填充矩形}
ETO_CLIPPED        = 4;     {剪切输出, 只输出矩形范围内的文本}
ETO_GLYPH_INDEX    = $10;   {}
ETO_RTLREADING     = $80;   {}
ETO_NUMERICSLOCAL  = $400;  {}
ETO_NUMERICSLATIN  = $800;  {}
ETO_IGNORELANGUAGE = $1000; {}
ETO_PDY            = $2000; {}

 
 
 
 
 

 

 
  

//举例:
procedure TForm1.FormPaint(Sender: TObject);
var
  MyRect: TRect;
const
  str = 'Delphi';
  arr: array[0..4] of Integer = (10,20,30,40,50);
begin
  MyRect := Rect(10,10,200,200);
  ExtTextOut(Canvas.Handle, 50, 50, ETO_CLIPPED, @MyRect, str, Length(str), @arr);
end;

 
 
 
 
 

 

 
  

//效果图: