Использование TPathData для создания сетки форм и печать на канвас

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

Использование TPathData для создания сетки форм и печати на канвас

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

Преобразование TRectF в замкнутый контур

Для начала создадим методы для преобразования TRectF в замкнутые векторы на канвасе:

procedure CreateClosedPath(APathData: TPathData; const ARect: TRectF);
begin
  APathData.MoveTo(ARect.TopLeft);
  APathData.LineTo(PointF(ARect.Right, ARect.Top));
  APathData.LineTo(PointF(ARect.Right, ARect.Bottom));
  APathData.LineTo(PointF(ARect.Left, ARect.Bottom));
  APathData.ClosePath;
end;

Создание сетки на канвасе

Допустим, нам необходимо создать сетку из прямоугольных элементов. В качестве примера создадим функцию для печати креста:

procedure DrawCross(ACanvas: TCanvas; const ARect1, ARect2: TRectF);
var
  PathData: TPathData;
begin
  PathData := TPathData.Create;

  // Рисуем первый прямоугольник (горизонтальный элемент креста)
  CreateClosedPath(PathData, ARect1);
  ACanvas.DrawPath(PathData);

  // Добавляем новый контур для второго прямоугольника
  PathData.Append;
  CreateClosedPath(PathData, ARect2);
  ACanvas.DrawPath(PathData);

  // Освобождаем ресурсы
  PathData.Free;
end;

Разделение путей при пересечении

Ключевой момент в данной задаче - разделение векторных данных для отдельных прямоугольников, чтобы избежать белых промежутков. Если использовать один и тот же объект TPathData для нескольких пересекающихся областей, то они будут не закрашены при вызове метода FillPath.

Возможный способ решения - создание отдельного объекта TPathData для каждой области сетки:

procedure DrawGrid(ACanvas: TCanvas; const ARects: array of TRectF);
var
  PathData, TempPathData: TPathData;
  Index: Integer;
begin
  PathData := TPathData.Create;

  for Index := Low(ARects) to High(ARects) do
  begin
    // Создаем временный объект для каждого нового пути
    TempPathData := TPathData.Create;
    CreateClosedPath(TempPathData, ARects[Index]);

    // Добавляем новый контур в основной объект PathData
    PathData.Append(TempPathData);
    TempPathData.Free; // Освобождаем временный путь

  end;

  ACanvas.DrawPath(PathData); // Нарисуйте границы всех путей
  PathData.FillMode := TFillMode.Winding;
  ACanvas.FillPath(PathData);

  PathData.Free;
end;

Используя этот подход, можно создать сетку из любых пересекающихся прямоугольников без белых промежутков. Обратите внимание на использование режима закрашивания Winding для корректного учета внутренних углов.

Пример использования

procedure TForm3.Button1Click(Sender: TObject);
var
  Rects: array of TRectF;
begin
  // Инициализация массива прямоугольников
  SetLength(Rects, 2);
  Rects[0] := RectF(45,10,55,90);
  Rects[1] := RectF(10,45,90,55);

  // Установка размеров изображения и начало сцены
  ImageControl1.Bitmap.SetSize(Round(ImageControl1.BoundsRect.Width), Round(ImageControl1.BoundsRect.Height));
  if not ImageControl1.Bitmap.Canvas.BeginScene then
    Exit;

  try
    with ImageControl1.Bitmap.Canvas do
    begin
      Clear(TAlphaColorRec.Black);
      Pen.Color := TAlphaColorRec.White;
      Pen.Thickness := 2;

      // Рисование сетки с использованием подготовленных прямоугольников
      DrawGrid(Self.Canvas, Rects);
    end;
  finally
    ImageControl1.Bitmap.Canvas.EndScene;
  end;
end;

Заключение

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

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

Использование объекта `TPathData` в Delphi для создания векторных изображений в виде сеток из прямоугольников с корректным закрашиванием пересекающихся областей.

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

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

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