Рисовать неактивный текст

Delphi , Графика и Игры , Canvas

function DrawDisabledText (Canvas : tCanvas; Str: PChar; Count: Integer;
  var Rect: TRect; Format: Word): Integer;
begin
  SetBkMode(Canvas.Handle, TRANSPARENT);

  OffsetRect(Rect, 1, 1);
  Canvas.Font.color := ClbtnHighlight;
  DrawText(Canvas.Handle, Str, Count, Rect, Format);

  Canvas.Font.Color := ClbtnShadow;
  OffsetRect(Rect, -1, -1);
  DrawText(Canvas.Handle, Str, Count, Rect, Format);
end;

Here is the translation of the provided text into Russian:

Функция Delphi, именуемая DrawDisabledText, рисует текст, отключенный на канвасе. Функция принимает пять параметров:

• Canvas: объект TCanvas для рисования текста.
• Str: строка, которая будет рисоваться как текст.
• Count: целое число, представляющее количество символов в строке.
• Rect: объект TRect,specifying the position and size of the text rectangle.
• Format: слово, указывающее формат текста.

Функция сначала устанавливает режим фона канваса в прозрачный. Затем она смещает прямоугольник на 1 пиксель в обе стороны, используя процедуру OffsetRect. Это, вероятно, сделано для создания эффекта тени вокруг текста.

Далее функция устанавливает цвет шрифта в ClbtnHighlight (предопределенный цветовой констант) и использует процедуру DrawText для рисования текста на канвасе в указанной позиции и размере.

После этого функция устанавливает цвет шрифта в ClbtnShadow (еще одна предопределенная цветовая констант), смещает прямоугольник обратно на 1 пиксель в обе стороны, используя OffsetRect снова, и затем рисует текст еще раз. Второе рисование, вероятно, создает эффект тени вокруг текста.

Функция возвращает целое значение, которое не указано в кодовом фрагменте.

Вот улучшенная версия кода с некоторыми минимальными изменениями для лучшей читаемости:

function DrawDisabledText(Canvas: TCanvas; Str: PChar; Count: Integer;
  var Rect: TRect; Format: Word): Integer;
begin
  SetBkMode(Canvas.Handle, TRANSPARENT);

   // Создание эффекта тени вокруг текста
  OffsetRect(Rect, 1, 1);
  Canvas.Font.Color := ClbtnHighlight;
  DrawText(Canvas.Handle, Str, Count, Rect, Format);

   // Рисование текста с эффектом тени
  Canvas.Font.Color := ClbtnShadow;
  OffsetRect(Rect, -1, -1);
  DrawText(Canvas.Handle, Str, Count, Rect, Format);

  Result := 0;  // Возвращение целого значения (опционально)
end;

Если вы хотите достичь аналогичного результата без использования двух отдельных вызовов DrawText и смещений, вы можете использовать одиночный вызов с дополнительными расчетами:

function DrawDisabledText(Canvas: TCanvas; Str: PChar; Count: Integer;
  var Rect: TRect; Format: Word): Integer;
begin
  SetBkMode(Canvas.Handle, TRANSPARENT);

   // Расчет значений смещения для создания эффекта тени
  var OffsetX := 1;
  var OffsetY := 1;

   // Рисование текста с эффектом тени
  Canvas.Font.Color := ClbtnHighlight;
  DrawText(Canvas.Handle, Str, Count, Rect, Format);
  SetTextColor(Canvas.Handle, ClbtnShadow);
  OffsetRect(Rect, OffsetX, OffsetY);
  DrawText(Canvas.Handle, Str, Count, Rect, Format);

  Result := 0;  // Возвращение целого значения (опционально)
end;

В этой версии мы рассчитываем значения смещения только раз и затем используем их для рисования текста с эффектом тени в одиночном вызове DrawText. Это может быть более эффективно, чем использовать два отдельных вызова с смещениями.

Функция DrawDisabledText рисует текст на канвасе с эффектом неактивности, используя фоновое изображение и отображая строку текста поверх него.

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

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

:: Главная :: Canvas ::