Масштабирование компонентов Опции

[Unconnected]

Привет всем.

На форме имеются созданные вручную TImage'и. Каждому я вручную присвоил необходимые события. Собственно, нужно сделать возможность изменения размеров компонента, чтобы при подводе курсора к границе (но не к углу!) имаджа курсор менялся на обоюдоострую стрелочку, и можно было растягивать компонент. Вот что получилось:

Procedure TLine_Road.onMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  xmouse:=x;ymouse:=y;
  down:=true;
end;

Procedure TLine_Road.onMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  down:=false;
end;

Procedure TLine_Road.OnMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var m:TImage;
begin
  m:=(sender as TImage);
  if (x>m.left) and (x<m.left+m.width) and ((y=m.top) or (y=m.top+m.height)) then
    begin
      m.Cursor:=crSizeNS;
      if down then begin
        if y=m.top then begin
                          m.height:=m.height+(y-m.top);
                          m.Top:=y-1;
                        end;
      end;
    end else
  if down then
  begin
    m.Cursor:=crDefault;
    m.left:=m.left+(x-xmouse);
    m.top:=m.top+(y-ymouse);
  end;
end;

В процедуре OnMove я уже сделал перетаскивание компонента, работает. А вот чуть выше, в этой процедуре - попытка сделать ресайз, но там пробно только для верхней границы. Какое-то странное поведение: имадж создаётся на панели с координатами (1,1), уже с картинкой. Если его не двигать, то при подводе курсора к верхней границе, он, курсор, меняет, как и должно быть, форму, но ничего не меняет. А если имадж подвинуть ниже, то и вовсе курсор не меняется. Подвинули на исходную - меняется. Чертовщина, хотя сравнивал координаты - вроде правильно всё.

Сообщение отредактировано: Unconnected - 22.02.2010 20:26

[Client]

Набрал код Rian'а (ренейм? ) и скачков не заметил. Правда, морагние есть небольшое

к чему относится

Методом трассировки выяснил, что этот код отвечает за перемещение имеджа при нажатии мыши в области, не включающую в себя рамку

PtInRect(Rect(2, 2,  m.Width - 2, m.Height - 2), Point(X, Y))

Это "point in rect" ? т.е. область не влючая рамку (2 пикселя) ?

Добавлено через 2 мин.

Хочешь, покажу тебе "уличную магию"?

Не-не-не, только не это, Дэвид Блэйн

[Rian]

Набрал код Rian'а (ренейм? ) и скачков не заметил. Правда, морагние есть небольшое

моргание убирается через
doublebufferd:=true;

ренейм) не может же первый придуманный ник быть вечным....

Добавлено через 12 мин.

Работать и работать правильно - это разные вещи... Твой код - работает...

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

Добавлено через 4 мин.
P.S. Кстати, а вот это:
к чему относится? Это был первый вопрос на засыпку. А второй - как ты думаешь, когда отработает изменение Image1.Top? При каких условиях?

убегает с космической скоростью?... не заметил....

последняя проверка перемещает всю картинку

image1.top отработает если y<5 и... есть флаг нажатия

ЗЫ. я уже боюсь чего это volvo опять загадает