Как вывести текст с красивым обрезанием если не помещается

Советы » Canvas » Как вывести текст с красивым обрезанием если не помещается

Используй вызов 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com