Использование GDI для цветного разделения текста: альтернатива Delphi `TextRect`

Delphi , Синтаксис , Текст и Строки

Использование GDI для цветного разделения текста: альтернатива Delphi TextRect

Вопрос о возможности использования аналога Delphi TextRect в GDI был задан пользователем, который искал способ нарисовать текст с процентным отображением прогресс-бара, разделенный на две цветные части, как это обычно реализуется в прогресс-барах. В контексте обсуждения было указано, что функции DrawText и DrawTextEx не предоставляют нужной функциональности.

Подробное решение проблемы

В GDI для достижения желаемого результата можно использовать функцию ExtTextOut, которая позволяет контролировать вывод текста, включая его обрезку. Однако, для разделения текста на две части с разными цветами, можно использовать более простой подход с использованием BitBlt и отрисовкой текста на временном буфере, который затем инвертируется при копировании на основной холст.

Пример кода для отрисовки текста с двумя цветами:

procedure DrawTextNOT(const hDC: HDC; const Font: TFont; const Text: string; const X, Y: integer);
begin
  with TBitmap.Create do
    try
      Canvas.Font.Assign(Font);
      with Canvas.TextExtent(Text) do
        SetSize(cx, cy);
      Canvas.Brush.Color := clBlack;
      Canvas.FillRect(Rect(0, 0, Width, Height));
      Canvas.Font.Color := clWhite;
      Canvas.TextOut(0, 0, Text);
      BitBlt(hDC, X, Y, Width, Height, Canvas.Handle, 0, 0, SRCINVERT);
    finally
      Free;
    end;
end;

procedure TForm4.FormPaint(Sender: TObject);
var
  S: string;
  ext: TSize;
begin
  S := '100%';
  Canvas.Brush.Color := clBlack;
  Canvas.FillRect(Rect(0, 0, Width div 2, Height));
  Canvas.Brush.Color := clWhite;
  Canvas.FillRect(Rect(Width div 2, 0, Width, Height));
  ext := Canvas.TextExtent(S);
  DrawTextNOT(Canvas.Handle, Canvas.Font, S, (Width - ext.cx) div 2, (Height - ext.cy) div 2);
end;

В этом примере создается временный буфер в виде TBitmap, на который отрисовывается текст. Затем, с помощью BitBlt и флага SRCINVERT, текст копируется на основной холст таким образом, что цвета инвертируются, создавая эффект разделения текста на две части с разными цветами.

Заключение

Использование GDI для цветного разделения текста возможно, и для этого можно адаптировать функциональность, предоставляемую Delphi TextRect, используя ExtTextOut или более простой подход с отрисовкой текста на буфере и последующим инвертированием цветов. Это позволяет достичь желаемого визуального эффекта, аналогичного тому, что реализуется в стандартных компонентах Delphi, таких как TGauge.

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

Пользователь ищет способ цветного разделения текста в GDI, аналогичного функционалу Delphi `TextRect`, для отображения прогресс-бара с двумя цветными частями.

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

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

:: Главная :: Текст и Строки ::