Скроллинг ScrollBox. Интересная идея.

[Vova777]

Идея такая: как сделать скроллинг в Scrollboxe но с таким условием: чтобы скроллировать при удержании левой кнопки мыши, т.е. двигаем мышью горизонтально - едет горизонтальный скроллер, вертикальный - значит соответствующий ему. А если диагональное направление, то одновременно оба скроллера в соответствии с движениями мыши, т.е. движение мышью от одного края ScrollBoxa до другого прокручивает скроллер (или скроллеры) полностью. И так в любых направлениях. Движения нужны гладкие без рывков.

P.S.-> В Scroolboxe лежит Image.

[Swarog]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    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 }
  public
    { Public declarations }
    press: boolean;
    sx,sy: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
press := true;
sx := x;
sy := y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if press then
 begin
  ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position + sx - x;
  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + sy - y;
  sx := x;
  sy := y;
 end;
end;

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

end.

[Vova777]

Спасибо Swarog! Как раз то, что мне и нужно!
Только две маленькие проблемы:
1) Как инвертировать направление скроллинга?
2) Как уменьшить мерцание изображения при скроллинге?

[Vova777]

С дрожанием скроллеров сам разобрался, но проблема мерцания изображения остается:
Код:


unit Unit1;

interface

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

type
TForm1 = class(TForm)
ScrollBox1: TScrollBox;
Image1: TImage;
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 }
public
{ Public declarations }
press: boolean;
sx,sy: integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
press := true;
sx := x;
sy := y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if press then
begin
ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position + sx - x;
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + sy - y;
//sx := x; - эти две строки убрал ))
//sy := y;
end;
end;

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

end.