Вращение изображения

Delphi , Графика и Игры , Изображения

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

procedure RotateRight(BitMap: tImage);
var
  FirstC, LastC, c, r: integer;

  procedure FixPixels(c, r: integer);
  var
    SavePix, SavePix2: tColor;
    i, NewC, NewR: integer;
  begin
    SavePix := Bitmap.Canvas.Pixels[c, r];
    for i := 1 to 4 do
    begin
      newc := BitMap.Height - r + 1;
      newr := c;
      SavePix2 := BitMap.Canvas.Pixels[newc, newr];
      Bitmap.Canvas.Pixels[newc, newr] := SavePix;
      SavePix := SavePix2;
      c := Newc;
      r := NewR;
    end;
  end;

begin
  if BitMap.Width <> BitMap.Height then
    exit;
  BitMap.Visible := false;
  with Bitmap.Canvas do
  begin
    firstc := 0;
    lastc := BitMap.Width;
    for r := 0 to BitMap.Height div 2 do
    begin
      for c := firstc to lastc do
      begin
        FixPixels(c, r);
      end;
      inc(FirstC);
      Dec(LastC);
    end;
  end;
  BitMap.Visible := true;
end;

Программа на языке Delphi для поворота изображения! Давайте рассмотрим код и узнаем, что он делает.

Задача Программа предназначена для поворота битмап-изображения на 90 градусов вправо. Это полезно, когда Windows (или возможно другой окружающий среды) не может выполнить это операцию по умолчанию.

Код Процедура RotateRight принимает объект tImage как входной параметр, представляющий битмап-изображение. Она не возвращает никакого значения. Вот разбивка кода: 1. Первая строка проверяет, равны ли ширина и высота изображения (т.е., оно квадратное). Если они не равны, процедура выходит из цикла. 2. Изображение устанавливается в невидимое состояние (Bitmap.Visible := false) для предотвращения проблем с отрисовкой во время процесса поворота. 3. Статус with создает временный объект, позволяющий доступ к свойствам и методам канваса без необходимости префиксирования их имен Bitmap.Canvas. 4. Программа инициализирует два целочисленных переменных: FirstC (начинается с 0) и LastC (начинается с ширины изображения). 5. Цикл iterates over верхнюю половину изображения (строки r от 0 до BitMap.Height div 2). Для каждой строки: * Внутренний цикл iterates over столбцы c от FirstC до LastC. * Процедура FixPixels вызывается для каждого пикселя в позиции (c, r). Эта процедура отвечает за поворот пикселей. 6. После обработки всех строк FirstC увеличивается, а LastC уменьшается, чтобы переместить зону поворота вниз на одну строку. 7. Наконец, изображение устанавливается в видимое состояние (Bitmap.Visible := true).

Процедура FixPixels Эта процедура принимает два целочисленных аргумента: c (столбец) и r (строка). Ее цель - поворот пикселей в позиции (c, r). Вот что она делает: 1. Сохраняет текущее значение пикселя в временной переменной SavePix. 2. Цикл iterates four times (для каждого четверти поворота). 3. Для каждой итерации: * Вычисляет новые координаты столбца и строки для поворотного пикселя (NewC и NewR) с использованием ширины и высоты оригинального изображения. * Меняет текущее значение пикселя на соответствующее значение пикселя из поворотной позиции (SavePix2 := Bitmap.Canvas.Pixels[NewC, NewR]; Bitmap.Canvas.Pixels[NewC, NewR] := SavePix;). 4. Обновляет координаты столбца и строки для следующей итерации.

Альтернативное решение Хотя этот код работает, он может не быть самым эффективным или элегантным решением. Более современный подход - использовать библиотеку графических функций, поддерживающую поворот изображений, такие как Graphics32 или FreeImage. Эти библиотеки предоставляют оптимизированные функции для поворота изображений без необходимости ручной манипуляции пикселями. В целом, это код - простой, но несколько примитивный способ поворота изображения в Delphi. Он полезен для маленьких изображений и может служить образцом для тех, кто интересуется программированием графики.

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

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

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

:: Главная :: Изображения ::