Быстрое отражение изображения

[NIKOLAYY2]

Есть ли какие быстрые способы в делфи отразить по вертикали, горизонтали, перевернуть изображение на 90, 180 градусов, кроме как попиксельная перерисовка?

[Stilet]

Есть конечно. Работа с канвой в памяти, а только потом ее отрисовка.
Или есть еще двойная буфферизация. кажется компонент Image этим обладает. Изображение на момент изменения блокируется вызовом спецметодов (не помню их название, что-то типа BeginUpdate), меняется без перерисовки, после чего блок снимается и рисунок выводится на экран уже измененным. Что правда тут я могу путать, ибо с Делфи не работал давненько, и по большему для такого использую отдельный объект TCanvas.

[phomm]

Флип по осям - тут
Поворот на 180 - тоже самое, что одновременный флип и по горизонтали и по вертикали.

Поворот на 90 не подскажу..
TBitmap.ScanLine вестимо, но Вам, я понял, попиксельно не хотелось... Ну этот способ быстрый, если что.

Если есть большое желание, то стоит взять профессиональную библиотеку. Могу посоветовать FastLib - задачи уровня видеокарты решает на процессоре, а интерфейс близок к привычному канвасу.

Ну и, понятное дело, всегда есть варианты с огл/дх.

[NIKOLAYY2]

phomm
Так и непонял куда в коде вставлять Image, я хотел с Image1 в Image2 отобразить в перевернутом положении, но не отобразилось ни как.

[phomm]

Имхо, от имеджей надо отказываться полностью.
Лучше брать сразу буферный битмап (обычно размером с экран/клиентскую_часть_формы), и на него врисовывать по нужным координатам битмапы всех объектов ( обычно стоит завести некую структуру из битмапа, координат и прочих свойств объектов), и так каждый такт игры (хотя, конечно, есть более экономичные средства, но пока не об экономии речь), полностью нарисованную картинку в буфбитмапе единожды рисовать на форму через канвас. Ранее в этой же цепочке действий должен находиться обработчик игрового такта - изменение свойств всех объектов, в т.ч. координат.
Все эти принципы, опять же, давно разжёваны, Вы бы потрудились изучить учебные темы в разделе создания игр.

А по теме - функция, которую я привёл - как раз и работает с битмапами, и для описанного способа она вполне неплоха, для имейджей же придётся делать пачку телодвижений - создавать битмап, копировать картинку из имейджа в созданный битмап, кидать его в функцию, и после флипа снова записывать в имейдж. Правда, я не могу сказать с гарантией, что не будет срабатывать подход в лоб: Flip(True, True, MyImage1.Picture.Bitmap), я только подозреваю, что не будет, почему и говорю, что нужны телодвижения.

[kropotkina-alice]

Сообщение от NIKOLAYY2

Есть ли какие быстрые способы в делфи отразить по вертикали, горизонтали, перевернуть изображение на 90, 180 градусов, кроме как попиксельная перерисовка?

Нате вам простенькую процедурку для отражения без сложных извращений:

procedure TForm1.FlipBitmap(bmap: TBitmap; FlipHor: Boolean);
var
  x, y, W, H: Integer;
  Pixel_1, Pixel_2: PRGBTriple;
  MemPixel: TRGBTriple;
begin
  bmap.PixelFormat := pf24Bit;
  W := bmap.Width - 1;
  H := bmap.Height - 1;
  if FlipHor then
    for y := 0 to H do
    begin
       Pixel_1 := bmap.ScanLine[y];
      Pixel_2 := bmap.ScanLine[y];
       Inc(Pixel_2, W);
       for x := 0 to W div 2 do
      begin
         MemPixel := Pixel_1^;
        Pixel_1^ := Pixel_2^;
        Pixel_2^ := MemPixel;
        Inc(Pixel_1); 
        Dec(Pixel_2); 
      end;
    end  else
    for y := 0 to H div 2 do
    begin
      Pixel_1 := bmap.ScanLine[y];
      Pixel_2 := bmap.ScanLine[H - y];
      for x := 0 to W do
      begin
         MemPixel := Pixel_1^;
        Pixel_1^ := Pixel_2^;
        Pixel_2^ := MemPixel;
        Inc(Pixel_1);
        Inc(Pixel_2); 
      end;
    end;
end;

Вызов делается так:

procedure TForm1.Button1Click(Sender: TObject);
begin
FlipBitmap(Image1.Picture.Bitmap,False); //отражение по вертикали
Image1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FlipBitmap(Image1.Picture.Bitmap,True); //отражение по горизонтали
Image1.Repaint;
end;

[NIKOLAYY2]

Вот еще нашел хороший способ:

var
 a: TBitmap;
 x, y: integer;
 SrcRect, DstRect: TRect;
begin
 if OpenDialog1.Execute = false then
 Exit;
 a := TBitmap.Create;
 a.LoadFromFile(OpenDialog1.FileName);

 X := a.Width;
 Y := a.Height;
 SrcRect := Rect(0, 0, X, Y);
 DstRect := Rect(X, 0, 0, Y);
 form1.Canvas.CopyRect(DstRect, a.Canvas, SrcRect);
 a.Free;
end;

Проверял и оказалось канву можно везде копировать в любом направлении где есть область Rect! Даже где ее и нету ее можно вставить везде где только можно!
Тут главное с какой по какую координату определить, и переуказать если изображение не квадратное и мы поворачиваем на 90 градусов свойства-
Width;
Height;
вторичного прямоугольника.

[KukoBoy]

unit lab3;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1:  TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var Form1: TForm1;

implementation

{$R *.dfm}

{Процедура перевода в чёрно белый спектр}
procedure TForm1.Button1Click(Sender: TObject);
var x,y,r,g,b:integer;
begin
  for x := 0 to Image1.Width do
    for y := 0 to Image1.Height do
    begin
      r:=getRvalue(Image1.Canvas.Pixels[x,y]);
      g:=getGvalue(Image1.Canvas.Pixels[x,y]);
      b:=getBvalue(Image1.Canvas.Pixels[x,y]);

      Image1.Canvas.Pixels[x,y]:=RGB(round(r*0.3),round(g*0.59),round(b*0.11));
    end;

end;

{Процедура перевода с зелёным оттенком}
procedure TForm1.Button2Click(Sender: TObject);
var x,y,r,g,b:integer;
begin
    for x := 0 to Image1.ClientWidth do
      for y := 0 to Image1.ClientHeight do
      begin
        r:=getRvalue(Image1.Canvas.Pixels[x,y]);
        g:=getGvalue(Image1.Canvas.Pixels[x,y]);
        b:=getBvalue(Image1.Canvas.Pixels[x,y]);

        Image1.Canvas.Pixels[x,y]:=RGB(round(r*0.9),g,round(b*0.9));
      end;
end;

{Процедура перевода в негатив}
procedure TForm1.Button3Click(Sender: TObject);
var x,y,r,g,b:integer;
begin
  for x := 0 to Image1.Width do
    for y := 0 to Image1.Height do
    begin
      r:=getRvalue(Image1.Canvas.Pixels[x,y]);
      g:=getGvalue(Image1.Canvas.Pixels[x,y]);
      b:=getBvalue(Image1.Canvas.Pixels[x,y]);

      Image1.Canvas.Pixels[x,y]:=RGB(round(255-r),round(255-g),round(255-b));
    end;

end;

{Процедура отражения}
procedure TForm1.Button4Click(Sender: TObject);
var i,j,r,g,b,r1,g1,b1:integer;
begin
  for i:= 1 to Image1.Width do
    for j:= 1 to Image1.Height do
    begin
      r:=GetRvalue(Image1.Canvas.Pixels[i,j]);
      g:=GetGvalue(Image1.Canvas.Pixels[i,j]);
      b:=GetBvalue(Image1.Canvas.Pixels[i,j]);

      r1:=GetRvalue(Image1.Canvas.Pixels[i,j]);
      g1:=GetGvalue(Image1.Canvas.Pixels[i,j]);
      b1:=GetBvalue(Image1.Canvas.Pixels[i,j]);

Image1.Canvas.Pixels[i,j]:=Image1.Canvas.Pixels[Image1.Height-i,j];
    end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;

end.