Увеличение изображения.

[Fellics{новичок}]

Здравствуйте Хотелось бы свою программу написать полностью на своих знаниях, но к сожалению в 14 лет знаний не хватает.
У меня есть на форме компонент TImage и надо увеличить/уменьшить растровое изображение, ну и может в дальнейшем реализовать перемещать изображение мышкой, тоесть та часть картинки что не в поле зрения станет видимой и на оборот. Заранее спасибо.

[KingOfNothing]

Про перетаскивать не подскажу, а вот про уменьшить/увеличить, как вариант - ставишь Stretch = true в свойствах Timage и код

Image1.Width:=Image1.Width+10;
Image1.Height:=Image1.Height+10;

[Fellics{новичок}]

Спасибо большое

[Terran]

Что каcается перетаскивания изображения, то тут ничего сложного нету. Кидаете на форму компонент ScrollBox с вкладки Additional и пишем кодеГ.

Var
S: Boolean;
Procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Begin
S:=True;
End;
Procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Begin
S:=False;
End;
Procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Begin
If S=True Then
Begin
ScrollBox1.HorzScrollBar.Position:=X-250;//для подгона
ScrollBox1.VertScrollBar.Position:=Y-250;//для подгона
End;
End;

[Манжосов Денис :)]

Image1.Width:=Image1.Width+10;
Image1.Height:=Image1.Height+10;

Надо бы ещё добавить

Image1.Left:=Image1.Left-10;
Image1.Top:=Image1.Top-10;

[Fellics{новичок}]

Ну я думаю с добавление что вычитание 10 пикселов это и мне новичку понятно

[Fellics{новичок}]

Спасибо большое дальше думаю без вашей помощи обойдусь

[mutabor]

Вдогонку:
1. Более качественно масштабирует WinAPI функция StretchBlt.
2. Если нужно перетаскивать изображение как карту, т.е. зажав мышкой а не таскать за скроллы, тогда нужно обрабатывать события мышы у имиджа, или другого контрола на к-ром выводишь изображение.

[Fellics{новичок}]

Мне бы с паскалем разобраться