Исправление Пунктирной Границы в Delphi: Как Получить Истинные Точки?

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

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

Описание проблемы

Пользователь столкнулся с проблемой, что при попытке добавить пунктирную границу к изображению в формате TBitmap с помощью стандартных функций Delphi, вместо ожидаемых точек получаются маленькие тире. Это происходит из-за особенностей работы с графикой в среде Delphi.

Пример кода

Вот пример кода, который должен добавить пунктирную границу к изображению:

procedure AddDottedBorderToBitmap(aBM: Vcl.Graphics.TBitmap);
var
  c: TCanvas;
begin
  c := aBM.Canvas;
  c.Pen.Color := clBlack;
  c.Pen.Mode  := pmXor;
  c.Pen.Style := psDot;

  c.MoveTo(0, 0);
  c.LineTo(0, aBM.Height - 1);
  c.LineTo(aBM.Width - 1, aBM.Height - 1);
  c.LineTo(aBM.Width - 1, 0);
  c.LineTo(0, 0);
end;

Решение проблемы

В стандартной реализации использования стиля psDot для пера не всегда получается ожидаемый результат. Это связано с тем, что при увеличении масштаба изображения, пиксели, представляющие точки, могут сливаться в маленькие линии. Для получения чистых точек можно использовать функцию DrawFocusRect, которая является частью Windows API и предназначена именно для создания фокусировочных рамок с пунктирной границей.

procedure AddDottedBorderToBitmap(aBM: Vcl.Graphics.TBitmap);
begin
  DrawFocusRect(aBM.Canvas.Handle, Rect(0,0,aBM.Width,aBM.Height));
end;

Альтернативный ответ

Если вам необходимо создать пунктирную линию, не ограничиваясь только прямоугольными рамками, можно использовать стиль пера psAlternate, который чередует пиксели. Этот стиль валиден только для перьев, созданных с помощью функции ExtCreatePen. Вот пример кода, который демонстрирует использование psAlternate:

var
  c: TCanvas;
  oldpenh, newpenh: HPEN; // дескрипторы перьев
  lbrush: TLogBrush;      // логическая кисть
...
  lbrush.lbStyle := BS_SOLID;
  lbrush.lbColor := clBlack;
  lbrush.lbHatch := 0;

  // создание перьев
  newpenh := ExtCreatePen(PS_COSMETIC or PS_ALTERNATE, 1, lbrush, 0, nil);
  try
    // активация нового перо
    oldpenh := SelectObject(c.Handle, newpenh);

    // использование перо
    c.MoveTo(0, 0);
    c.LineTo(0, pbx.Height - 1);
    c.LineTo(pbx.Width - 1, pbx.Height - 1);
    c.LineTo(pbx.Width - 1, 0);
    c.LineTo(0, 0);

    // очистка для демонстрации периихрности
    c.Ellipse(3, 3, pbx.width - 3, pbx.Height - 3);

    // восстановление перо
    SelectObject(c.Handle, oldpenh);
  finally
    // удаление перо
    DeleteObject(newpenh);
  end;

Этот код при правильном масштабировании должен отображать чистые точки, а не маленькие тире.

Вывод

Для создания качественной пунктирной границы в Delphi, можно использовать стандартные средства, такие как DrawFocusRect, или более специфические настройки стилей перьев, такие как psAlternate и функции Windows API. При этом важно правильно обрабатывать дескрипторы перьев и не забывать об их освобождении после использования.

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

Пользователь в Delphi столкнулся с необходимостью добавления пунктирной границы вокруг `TBitmap`, но при использовании стандартного стиля перо в виде точек получаются маленькие тире, что связано с особенностями работы с графикой в этой среде.

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

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

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