Как вывести текст с красивым обрезанием если не помещается
Используй вызов DrawTextEx, установив в параметре dwDTFormat значение
DT_PATH_ELLIPSIS.
procedure TForm1.FormPaint(Sender: TObject);
var
r: TRect;
begin
r := Rect(20, 20, 110, 70);
// DT_PATH_ELLIPSIS or DT_WORD_ELLIPSIS or DT_END_ELLIPSIS
DrawTextEx(Form1.Canvas.Handle, 'Delphi World - это круто!!!',
25, r, DT_WORD_ELLIPSIS, nil);
end;
Статья Как вывести текст с красивым обрезанием если не помещается раздела Графика и Игры Canvas может быть полезна для разработчиков на Delphi и FreePascal.
