Как преобразовать код написанный для картинки в код под карту?

Question

[Black_sun_1906]

Помогите преобразовать данный код. Код написан на Delphi для перемещения мышью картинки, сдвиг ее в произвольном направлении. Надо данный код преобразовать для перемещения не картинки курсором, а для карты.

unit change;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    ScrollBox1: TScrollBox;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    Moving: Boolean;
    MovePoint: TPoint;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
             if Button = TMouseButton.mbLeft  then
             begin
               Moving := True;
               MovePoint.X := X;
               MovePoint.Y := Y;
             end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Moving then
  begin
  Image1.Left := Image1.Left + X - MovePoint.X;
  Image1.Top := Image1.Top + Y - MovePoint.Y;
  end;

end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Moving := False;
end;

end.

Comments

[Everything_is_not_so_bad]

используй тег кода

[Hemul GM]

Я тебе русским языком сказал как делать. Изучай как рисуют на канвасе, не пихают всё в скролбокс

[kalapanga]

Хорошо бы для начала понять, чем "карта" отличается от "картинки".

[Black_sun_1906]

kalapanga, у них разные расширения, картинка открывается при помощи Image, а карта должна открываться при помощи OpenAtlasDialog

[kalapanga]

Black_sun_1906, Чтобы быть отображённой на экране, карта в любом случае должна быть в конце концов преобразована в картинку. Разбирайтесь, как этот самый диалог это делает, чтобы выяснить, каким путём идти - приделывать к нему этот код или осваивать другие методы рисования.
p.s. Об этом OpenAtlasDialog даже гугл не слышал, я - тем более.

Answer 1

[EDIsaev]

Карта в смысле большая, чтобы мышкой её скролить?
Это не рисуют в TImage. Возьми PaintBox, при перемещении или отпускании мыши считай смещение мыши, рисуй в буфере в TBitmap соответствующий кусок карты, в onPaint отображай его.