//在矩形范围中显示文本
varg: TGPGraphics;fontFamily: TGPFontFamily;font: TGPFont;rectF: TGPRectF;p: TGPPen;sb: TGPSolidBrush;str: WideString;
beging := TGPGraphics.Create(Canvas.Handle);fontFamily:= TGPFontFamily.Create('宋体');font:= TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPoint);p := TGPPen.Create(aclRed);sb:= TGPSolidBrush.Create(MakeColor(255, 0, 0, 0));rectF:= MakeRect(10.0, 10.0, 116.0, 100.0); {包含文本的矩形范围}str := '万一万一万一万一万一万一万一万一万一万一万一万一万一万一万一';g.DrawRectangle(p, rectF);g.DrawString(str, -1, font, rectF, nil, sb);{参数4不能用TGPRect,只能是TGPRectF; 参数5是文字格式对象,后面举例}fontFamily.Free;font.Free;p.Free;sb.Free;g.Free;
end;//设置对齐方式
varg: TGPGraphics;str: String;fontFamily: TGPFontFamily;font: TGPFont;rectF: TGPRectF;strFormat: TGPStringFormat;sb: TGPSolidBrush;p: TGPPen;
beging := TGPGraphics.Create(Canvas.Handle);fontFamily:= TGPFontFamily.Create('Arial');font:= TGPFont.Create(fontFamily, 12, FontStyleBold, UnitPoint);rectF:= MakeRect(30.0, 10.0, 120.0, 140.0);sb:= TGPSolidBrush.Create(MakeColor(255, 0, 0, 255));strFormat:= TGPStringFormat.Create;strFormat.SetAlignment(StringAlignmentCenter);     {设置左右对齐方式}strFormat.SetLineAlignment(StringAlignmentCenter); {设置垂直对齐方式}str := 'wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy';g.DrawString(str, -1, font, rectF, strFormat, sb);p:= TGPPen.Create(MakeColor(255, 0, 0, 0));g.DrawRectangle(p, rectF);fontFamily.Free;font.Free;strFormat.Free;sb.Free;p.Free;g.Free;
end;//使用格式化标志创建文本格式化对象
varg: TGPGraphics;str: String;fontFamily: TGPFontFamily;font: TGPFont;rectF: TGPRectF;strFormat: TGPStringFormat;sb: TGPSolidBrush;p: TGPPen;
beging := TGPGraphics.Create(Canvas.Handle);fontFamily:= TGPFontFamily.Create('Arial');font:= TGPFont.Create(fontFamily, 12, FontStyleBold, UnitPoint);rectF:= MakeRect(30.0, 10.0, 120.0, 140.0);sb:= TGPSolidBrush.Create(MakeColor(255, 0, 0, 255));strFormat:= TGPStringFormat.Create(StringFormatFlagsDirectionRightToLeft);{使用格式化标志创建文本格式化对象}str := 'wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy wy';g.DrawString(str, -1, font, rectF, strFormat, sb);p:= TGPPen.Create(MakeColor(255, 0, 0, 0));g.DrawRectangle(p, rectF);fontFamily.Free;font.Free;strFormat.Free;sb.Free;p.Free;g.Free;
end;

文本对齐方式:

文本格式化标志: