Как вывести текст с красивым обрезанием если не помещается
Используй вызов 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, ' это круто!!!', 25, r, DT_WORD_ELLIPSIS, nil); end; |