1
2
3
4
5
6
7
8
9
10
11
12
| procedure SetEllipsisLabel(l: TLabel);
var
s: String;
R: TRect;
begin
s := l.Caption;
UniqueString(s);
R := l.ClientRect;
l.Canvas.Font := l.Font;
DrawText(l.Canvas.Handle, PChar(s), Length(s), R, DT_END_ELLIPSIS or DT_MODIFYSTRING or DT_NOPREFIX);
l.Caption := s;
end;
|
