Изменение размера TImage в run-time

[spirit-ua]

Всем Привет!

procedure TForm_Main.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Image3.Width-X<10) and (Image3.Height-Y<10) then
  begin
   FP.X := X;
   FP.Y := Y;
   FDragging := True;
  end;
end;

procedure TForm_Main.Image3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 if FDragging then
  begin
   Image3.Width := Image3.Width + X-FP.X;
   Image3.Height := Image3.Height + Y-FP.Y;
   FP.X := X;
   FP.Y := Y;
  end;
end;

procedure TForm_Main.Image3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 FDragging := False;
end;

все работает но когда ширина\высота становиться меньше единицы Image естественно "пропадает"...
Нужно сделать так когда ширина меньше... Image растягивался в "противоположную" сторону

пробовал играться с условиями (ширина < 1) но ничего не вышло
помогите, пожалуйста

[Arigato]

Значит надо использовать Abs, чтобы знак убрать и делать проверку, если отрицательные размеры, то менять позицию (т.к. она отсчитывается от верхнего левого угла) и отражать картинку.

[spirit-ua]

Сообщение от Arigato

Значит надо использовать Abs, чтобы знак убрать и делать проверку, если отрицательные размеры, то менять позицию (т.к. она отсчитывается от верхнего левого угла) и отражать картинку.

не совсем понял... менять позицию чего? самой картинки?

нужно уменьшать размер Image по ширине в меньшую сторону (влево) и когда ширина становится 0 то уже будет не уменьшение, а увеличение Image в противоположную сторону. не нужно перемещать Image

я так понимаю что когда ширина становится равной левой позиции (ширина равняется нулю) то нужно правую границу оставлять на позиции левой, а левую смещать влево

   if Image3.Width > 0
     then Image3.Width := Image3.Width + X-FP.X
     else Image3.Left := ...

но по этому условию как только сменится левая позиция ширина станет больше нуля... как побороть? ставить "флаг" и в зависимости от значения менять ширину или левую позицию?

помогите

[Arigato]

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

[spirit-ua]

Сообщение от Arigato

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

это я понимаю, с этим и проблема

procedure TForm_Main.Image3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 if FDragging then
  begin
   if flag_as = 0
     then
       begin
       if Image3.Width > 5
         then
           Image3.Width := Image3.Width + X - FP.X;
         else
           flag_as := 1;
       end
     else
       begin
       Image3.Left := ???
       Image3.Width := ???
       end;

   Image3.Height := Image3.Height + Y-FP.Y;
   FP.X := X;
   FP.Y := Y;
  end;
end;

в правильную сторону думаю? какие значения ставить?

[Arigato]

Как-то так:

  public
    FDragging: Boolean;
    Img3Width, Img3Height: Integer;
    Img3Pos, FP: TPoint;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FDragging:=False;
  Img3Width:=Image3.Width;
  Img3Height:=Image3.Height;
  Img3Pos.X:=Image3.Left;
  Img3Pos.Y:=Image3.Top;
end;

procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FP.X:=X;
  FP.Y:=Y;
  FDragging:=True;
end;

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

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FDragging then begin
    Inc(Img3Width,X-FP.X);
    Inc(Img3Height,Y-FP.Y);
    FP.X:=X;
    FP.Y:=Y;
    if Img3Width<0 then
      Image3.Left:=Img3Pos.X+Img3Width
      else Image3.Left:=Img3Pos.X;
    if Img3Height<0 then
      Image3.Top:=Img3Pos.Y+Img3Height
      else Image3.Top:=Img3Pos.Y;
    Image3.Width:=Abs(Img3Width);
    Image3.Height:=Abs(Img3Height);
  end;
end;

[spirit-ua]

Arigato, то что надо, но

    if Img3Width<0 then
      Image3.Left:=Img3Pos.X+Img3Width  ???????????????????
      else Image3.Left:=Img3Pos.X;
    if Img3Height<0 then
      Image3.Top:=Img3Pos.Y+Img3Height  ???????????????????
      else Image3.Top:=Img3Pos.Y;

в строках где знаки вопроса видимо не хватает еще одной переменной т.к. при сдвиге влево/вверх после условия <0 курсов забегает левее/выше картинки, наберусь наглости еще раз попросить помочь

[Arigato]

А как он может на картинке оказаться? Мы же не за край хватаем, а за любое место изображения, вот и оказывается в минусе курсор за его пределами. Сами попробуйте представить, как может быть иначе.

[spirit-ua]

Сообщение от Arigato

А как он может на картинке оказаться? Мы же не за край хватаем, а за любое место изображения, вот и оказывается в минусе курсор за его пределами. Сами попробуйте представить, как может быть иначе.

в вашем примере не за край

procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FP.X:=X;
  FP.Y:=Y;
  FDragging:=True;
end;

а вот если так

procedure TForm_Main.Image3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (Image3.Width-X<10) and (Image3.Height-Y<10) then
  begin
   FP.X := X;
   FP.Y := Y;
   FDragging := True;
  end;
end;

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

if Img3Width<0 then
      Image3.Left:=Img3Pos.X+Img3Width  ???????????????????
      else Image3.Left:=Img3Pos.X;
    if Img3Height<0 then
      Image3.Top:=Img3Pos.Y+Img3Height  ???????????????????
      else Image3.Top:=Img3Pos.Y;

только сам не соображаю

[Аватар]

Нужно FP.X и FP.Y пересчитывать для отрицательных, а не просто X и Y туда. Например их знак менять, хотя это не совсем точно