Контейнер для Image

[danka123]

Всем Привет!
Есть мыслишка одна, но как это реализовать мыслишек скорее нет)
К примеру есть изображение высокого разрешения, которое прогружается в Image, но не умещается в экран.
Цель - сделать фон формы этой картинкой, что-то вроде карты, и в определенный момент зажав клавишу Mouse1 картинка сьезжала вверх-вниз-вправо-влево.

Может есть компонент, в который можно закинуть изображение и уже этим компонентом как-то рулить... или что-нибудь более простое

Заранее спасибо за мудрые советы

[Stilet]

ScrollBox - самое оно. В него помещай Image, и задавай ему реальный размер изображения. В Скроллбоксе появятся полосы прокрутки. Ну и собственно потом можно будет описать движения картинки при движении мышкой внутри подавая скроллбоксу сообщения о прокрутке.

[danka123]

Stilet, спасибо, все устраивает, только есть одно но...

если Horiz и Vert ScrollBars поставить visible = false, свойство Position просто напросто не работает. Если же они стоят в true. тогда можно через Position обращаться. Наверное такова жизнь ScrollBar


ах да, еще момент.. при пролистывании изображение дергается, но я еще с этим бьюсь, не могу до конца подогнать все.
Позже скину результат

[Stilet]

Наверное такова жизнь ScrollBar

А че скроллеры так сильно мешают?
Хм... Ну задай ширину скроллбара на ширину и высоту скроллов больше, чтоб они за пределы формы вылезли раз глаз мозолят.

[danka123]

Да глаз мозолят скроллы. без них и вид эстетичнее, особенно в данном случае, когда только картинка на экране, и когда их нет, за них не потянешь.

а с подергиванием ничего вроде не сделать, это убогость стандартного Image.
поставил sImage (из AlphaControls) еще более убогим оказался.

Вложением кинуть не получается, картинка большая, поэтому вот ссылка
http://www.sendspace.com/file/0m3xp1

[ReportCube]

А зачем TImage нужен, если есть стандартный TBitmap. Загрузили в него картинку и отрисовывайте нужные части в нужных местах. При нажатой мышке пересчитываете регион извлечения части картинки. И мерцания нет, если не будете перерисовывать слишком часто и без необходимости.

[danka123]

скачайте, посмотрите мой пример, поидее он не должен ведь дергаться, он ведь загружен уже, просто вне зоны ScrollBox'a

var
  Form1: TForm1;
  bb:boolean;

  StartX, startY:integer;

  EndX, EndY:Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    Image1.Picture.LoadFromFile('earth.jpg');
    bb := false;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if bb then
     begin
     EndX := StartX - x;
     EndY := startY - y;

     if EndX > 0 then
     ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position+3 else
     ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position-3;

     if EndY > 0 then
     ScrollBox1.VertScrollBar.Position :=  ScrollBox1.VertScrollBar.Position+3 else
     ScrollBox1.VertScrollBar.Position :=  ScrollBox1.VertScrollBar.Position-3;
    end;

end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    bb :=True;
    StartX := x;
    startY := y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    StartX := x;
    startY := y;
    bb:=false;
end;

end.

[Stilet]

Отойду от темы с предложением компонента, заменяющего Имедж: http://www.programmersforum.ru/showthread.php?t=104883
Делал когда-то для себя. Там и прокрутка, и масштабирование без дерганья.
Да и форматов понимает чуть больше.