Панорама в Delphi

[boostman]

Подскажите каким способом можно реализовать просмотр панорамы на Delphi c использованием Image?

Панорама это широкое изображение, и только часть панорамы находится на экране, как собственно "подвинуть" изображение чтобы был виден другой участок?

Пример панорамы: http://www.panoramas.dk/2009/obama-nobel-prize.html

[Stilet]

Вот примерная наработка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   im:TBitmap;  ax,ay,lx,ly:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 im:=TBitmap.Create;
 im.Width:=1024;im.Height:=768;
 im.LoadFromFile('D:\stasya_ru_2_big.bmp');

end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 BitBlt(Canvas.Handle,ax,ay,im.Width,im.Height,im.Canvas.Handle,0,0,SRCCOPY);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Tag:=1;   lx:=x;ly:=y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Tag:=0; lx:=ax;ly:=ay;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if tag=1 then begin
  ax:=x-lx;
  ay:=y-ly;
  Repaint;
 end;
end;

end.

Смысл в том чтоб запомнить при нажатии мышки координаты где нажато и перерисовывать изображение при "перетаскивании" в новых координатах относительно тех что запомнены

[boostman]

Stilet, спасибо! Но все равно изображение стоит мертвым грузом

[Stilet]

А ты эти процедуры подключи в инспекторе обьектов к соответствующим событиям

[boostman]

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

А ты эти процедуры подключи в инспекторе обьектов к соответствующим событиям

Да собсно все практически из вашего кода взял, и все как полагается привязал

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);

    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
   im:TBitmap;
   ax,ay,lx,ly:integer;


implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
 im:=TBitmap.Create;
           im.Width:=600;im.Height:=400;

 im.LoadFromFile('1.bmp');

end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Tag:=1;   lx:=x;ly:=y;

end;

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     Tag:=0; lx:=ax;ly:=ay;

end;

procedure TForm2.FormPaint(Sender: TObject);
begin
 BitBlt(Canvas.Handle,ax,ay,im.Width,im.Height,im.Canvas.Handle,0,0,SRCCOPY);

end;

procedure TForm2.Image1Click(Sender: TObject);
begin

end;

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if tag=1 then begin
  ax:=x-lx;
  ay:=y-ly;
  Repaint;
 end;

end;

end.

16:58

Писал на Delphi 10

17:24

Вообще как нить можно реализовать панорамный вид в дельфях?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[russian-stalker]

Проверил код-работает.

[boostman]

Хм действительно создал новое приложение и заработало Спасибо!

Как же реализовать чтобы движение шло только в рамках изображения? Т.е в данном примере мы перемещаем Image по форме, а не Picture по Image

[DeKot]

Так загружайте сначала всю панораму в буфер, а потом выводите буфер в Image со смещением координат вывода.

[boostman]

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

Так загружайте сначала всю панораму в буфер, а потом выводите буфер в Image со смещением координат вывода.

Так вопрос собственно в том, как сместить координаты?

[russian-stalker]

BitBlt - самый, по моему мнению, удобный вариант