Растягивание имаджа

← →
Zap (2005-09-25 17:11) [0]

Около Image я поставил Shape при перетаскивании которого изменяется размер Image. Тут же выяснилось, что изменять размеры имаджа во время работы программы можно только когда Stretch = true...В итоге получается, что при растягивании имаджа, растягивается все изображение на нем...мне же нужно чтоб все это получалось как в Paintе. Я чо-то не так делаю или это нужно както обойти? Подскажите плз. заранее спасибо

← →
Zap (2005-09-25 17:44) [1]

вот собственно код, если что
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
drag := true;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var p : TPoint;
begin
{ПЕРЕТАСКИВАНИЕ}
if drag = true then
begin
Image1.Stretch := true;
{Определение координат}
p.X := x;
p.y := y;
p := Form1.ScreentoClient(Shape1.ClientToScreen(p));
{перетаскивание имаджа}
if (p.X >= Image1.Left) and (p.Y >= Image1.Top) then begin
Image1.Width := p.X - Image1.Left;
Image1.Height := p.y - Image1.Top;
{перетаскивание шейпа}
Shape1.left := p.x;
SHape1.Top := p.Y;
end;
end;
{ПЕРЕТАСКИВАНИЕ}
drag := false;
image1.stretch := false;
end;

Растягивание имаджа Найти похожие ветки