Определение обрезки текста в TLabel с помощью многоточия в Delphi

Delphi , Компоненты и Классы , TLabel

В процессе разработки приложений на Delphi нередко возникает потребность определить, обрезается ли текст в компоненте TLabel с помощью многоточия (ellipsis). В этой статье мы рассмотрим, как программно определить, происходит ли обрезка текста в TLabel, и предложим несколько решений этой задачи.

Проблема

У нас есть компонент TLabel с свойством EllipsisPosition, установленным в значение epEndEllipsis. Мы хотим определить, обрезается ли текст в данный момент или нет. Кроме как самостоятельно рассчитывать площадь, необходимую для отображения текста, и сравнивать ее с фактическими размерами label'а, других простых и элегантных способов не придумано. Однако даже расчет площади может оказаться нетривиальной задачей, так как, например, TCanvas.GetTextHeight не учитывает переносы строк.

Решение 1: Использование DrawStringEllipsis

Одним из возможных решений может служить функция DrawStringEllipsis, предложенная в альтернативном ответе. Функция принимает в качестве параметров дескриптор устройства контекста (HDC), область (TRect), в которой будет отображаться текст, и саму строку текста (AStr). Функция возвращает true, если текст был обрезан, и false в противном случае.

function DrawStringEllipsis(const DC: HDC; const ARect: TRect; const AStr: string): boolean;
var
  r: TRect;
  s: PChar;
begin
  r := ARect;
  GetMem(s, length(AStr)*sizeof(char) + 8);
  StrCopy(s, PChar(AStr));
  DrawText(DC, PChar(s), length(AStr), r, DT_LEFT or DT_END_ELLIPSIS or DT_MODIFYSTRING);
  result := not SameStr(AStr, s);
  FreeMem(s);
end;

Пример использования функции:

procedure TForm1.FormClick(Sender: TObject);
begin
  Caption := 'Clipped ' + BoolToStr(DrawStringEllipsis(Canvas.Handle, Rect(10, 100, 50, 50), 'This is a text.'), true);
end;

Решение 2: Использование TCustomLabel.DoDrawText

Обновление 1 в исходном вопросе предлагает использовать метод TCustomLabel.DoDrawText(lRect, DT_CALCRECT), чтобы позволить label выполнить требуемый расчет размера без дублирования своего кода. Для этого необходимо либо временно установить EllipsisPosition в значение epNone, либо использовать временный экземпляр label'а.

Решение 3: Анализ кода TCustomLabel.DoDrawText

В подтвержденном ответе предлагается воспользоваться результатами анализа кода TCustomLabel.DoDrawText. Ниже приведен пример реализации функции IsTextClipped в пользовательском классе TMyLabel, наследуемом от TLabel:

function TMyLabel.IsTextClipped: Boolean;
const
  EllipsisStr = '...';
var
  lEllipBup: TEllipsisPosition;
  lRect: TRect;
begin
  lRect := ClientRect;
  Dec(lRect.Right, Canvas.TextWidth(EllipsisStr));

  lEllipBup := EllipsisPosition;
  EllipsisPosition := epNone;
  try
    DoDrawText(lRect, DT_CALCRECT or IfThen(WordWrap, DT_WORDBREAK));
  finally
    EllipsisPosition := lEllipBup;
  end;
  Result := ((lRect.Right - lRect.Left) > ClientWidth)
         or ((lRect.Bottom - lRect.Top) > ClientHeight);
end;

Функция IsTextClipped возвращает true, если текст обрезается, и false в противном случае. Важно отметить, что это решение учитывает многократные строки и переносы слов, так как использует ту же логику, что и TCustomLabel.DoDrawText.

Вывод

В данной статье мы рассмотрели несколько способов программно определить, происходит ли обрезка текста в компоненте TLabel с помощью многоточия в Delphi. Каждое из решений имеет свои достоинства и недостатки, и выбор конкретного метода будет зависеть от конкретных требований и условий использования.

Создано по материалам из источника по ссылке.

В статье рассматриваются способы программного определения обрезки текста в компоненте TLabel с помощью многоточия в Delphi, а также предлагаются несколько решений этой задачи.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TLabel ::