学习大师原创文档,请勿转载,侵权必究。
有时候我们的字符串长度会超出控件的宽度,那么我们希望字符串按我们的宽度来显示,要么截断,要么以省略号结尾等等要求,那么该函数就可以实现:
引用单元
uses cxGraphics;
函数原型
function cxGetStringAdjustedToWidth(AFont: TFont; const S: string; AWidth: Integer; AModifyStringType: TcxModifyStringType): string;
参数说明:
第一个参数:指定字体;
第二个参数:要转换的字符串;
第三个参数:字符串的最大宽度;
第四个参数:如何结尾,请选用mstEndEllipsis ,结尾超出部分将以省略号结尾
运用实例:
var
AStr: String;
begin
AStr := cxGetStringAdjustedToWidth(ButtonedEdit1.Font, ButtonedEdit1.Text, ButtonedEdit1.Width-5, mstEndEllipsis);
ButtonedEdit1.Text := AStr;
end;
点击前后如下图所示:
|