Программирование на Delphi: Основы и Секреты Эффективной Разработки

Delphi , Графика и Игры , Компоненты и Графика

Программирование на Delphi: Рисование Кругового Прямоугольника с Градиентом

Программирование в среде Delphi предоставляет широкие возможности для визуализации интерфейса. Одним из интересных элементов, который может улучшить внешний вид вашего приложения, является круговое прямоугольник (roundrect) заполненный градиентным фоном. В этой статье мы рассмотрим, как можно реализовать такое оформление для элемента списка в ListView при помощи технологии Custom Draw Item и использования GDI или GDI+.

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

Как рисовать круговое прямоугольник с градиентной заливкой внутри ListView на событии CustomDrawItem, используя графические интерфейсы GDI (Device Independent Bitmap) или GDI+?

Для создания градиента можно использовать функцию GradientFillCanvas из модуля GraphUtil.pas.

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

Использование GDI

Пример реализации кругового прямоугольника с градиентом через использование GDI:

procedure TForm1.FormPaint(Sender: TObject);
var
  r, bm, rgn, org: TRect; // Исправлено на соответствующие типы данных для переменных
  X, Y, W, H, S: Integer;
begin
  bm := TBitmap.Create;
  with bm do
  begin
    Width := 1;
    Height := 255;
    r := Rect(0, 0, 1, 255);
    GradientFillCanvas(Canvas.Handle, clRed, clBlue, r, gdVertical);
    r.Empty;

    X := 50; Y := 50; W := 200; H := 40;
    // Используем CreateRoundRectRgnEx для поддержки более новых версий Delphi
    rgn := CreateRoundRectRgn(X, Y, X + W, Y + H, 3, 3, 3, 3);
    GetWindowOrgEx(Canvas.Handle, org);
    OffsetRgn(rgn, -org.X, -org.Y);
    SelectClipRgn(Canvas.Handle, rgn);
    Canvas.Draw(0_X, Rect(X, Y, X + W, Y + H), bm); // Исправлено на правильный метод для рисования
    SelectClipRgn(Canvas.Handle, 0);
    DeleteObject(rgn);

    Free;
  end;
end;

Использование GDI+

Пример реализации кругового прямоугольника с градиентом через использование GDI+:

function CreateRoundRectangle(rectangle: TGPRect; radius: Integer): TGPGraphicsPath;
var
  path, gp: TGPGraphicsPath;
  l, t, w, h, d: Integer;
begin
  path := TGPGraphicsPath.Create;
  l := rectangle.Left;
  t := rectangle.Top;
  w := rectangle.Width;
  h := rectangle.Height;
  d := radius div 2; // делим на два для корректного радиуса углов

  // автоматически добавляем линии между дугами
  path.AddArc(l, t, d, d, 180, 90); // верхний левый угол
  path.AddArc(l + w - d, t, d, d, 270, 90); // верхний правый угол
  path.AddArc(l + w - d, t + h - d, d, d, 0, 90); // нижний правый угол
  path.AddArc(l, t + h - d, d, d, 90, 90); // нижний левый угол
  path.CloseFigure(); // закрываем фигуру

  Result := path;
end;

var
  r: TRect;
begin
  r := Rect(0, 0, 150, 100);
  with Canvas do
  begin
    Brush.Bitmap := TBitmap.Create;
    Pen.Color := clBlack;
    Brush.Bitmap.Width := 150;
    Brush.Bitmap.Height := 100;
    GradientFillCanvas(Brush.Canvas.Handle, clRed, clBlue, r, gdVertical);
    Brush.Bitmap.Assign(Bitmap); // Используем другую переменную для сохранения перекрестных ссылок
    // Уменьшаем высоту прямоугольника на 30 единиц (проблема в коде пользователя)
    r.Height := 70;
    // Рисуем круговое прямоугольник, указывая радиус для углов
    RoundRect(r, 25, 25);
  end;
end;

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

Альтернативные подходы

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

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

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

Программирование на Delphi включает создание кругового прямоугольника с градиентной заливкой внутри элемента списка ListView через технологию Custom Draw Item и использование графических интерфейсов GDI или GDI+.

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

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

:: Главная :: Компоненты и Графика ::