[BIG_BO]

есть квадрат. нужно реализовать чтобы когда курсор был на угле. то можно было тянуть за этот угол
квадрат я нарисовал

[Bargest]

Код:

При нажатии мыши:
если координаты мыши около угла
  ставим глобальный флаг, сохраняем координаты мыши

При движении мыши:
если флаг
  из текущих координат мыши вычитаем сохраненные, получаем на сколько передвинулась мышь
  изменяем размер квадрата на новый используя эти значения

При отпускании мыши:
снять флаг

[BIG_BO]

так тяжело. примерчик бы

[angvelem]

У тебя столько ляпов в программе, что для начала их исправь. К примеру:

Код:

procedure MyNCPaint(Wnd : HWND; Msg: UINT; wParam, lParam : Longint);
var
  R, R1   : TRect;
  ps      : TPaintStruct;
  Context : HDC;
  Font    : HFONT;
  Pen     : HPEN;
  Brush   : HBRUSH;
begin
  Context := GetWindowDC(Wnd);
  GetClientRect(Wnd, R);

  SelectObject(Context, Pen);    // А ты создавал?
  selectobject(context, brush);  // А ты создавал?

  ExtFloodFill(context, 0, 50, brush, FLOODFILLSURFACE);

  DeleteObject(pen);             // Удаляем несозданное?
  DeleteObject(brush);           // Удаляем несозданное?

  Ellipse(Context, 600, 0, 630, 30);
  Font := CreateFont(30, 50, 0, 0, FW_Normal, 0, 0, 0,
    DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
    DEFAULT_PITCH, 'Tahoma');
  SelectObject(Context, Font);
  DrawText(Context, 'Hey Arnold', -1, R, DT_LEFT);

  DeleteObject(Font);         // Удаляем выбранный в контекст объект?
  ReleaseDc(hwnd, context);
end;

и это, только маленькая толика из всех ляпов.

[BIG_BO]

буду исправлять

[BIG_BO]

все еще требуется решение

[angvelem]

Подсказки были, за 2 месяца мог бы и наваять.

[Pyro]

есть квадрат. нужно реализовать чтобы когда курсор был на угле. то можно было тянуть за этот угол
квадрат я нарисовал

я начинал такое: есть tshape, вызовв функции и делаются ещё 4 черных tshape (наследников-tshape, или даже panel), которые при создании получают хедл того первого встают куда надо и при движении меняют его размер, я чёта начял но забросил, если надо могу выложить что есть, если ты сможешь доделать.
А по-хорошему это уже написано, надо искать на опен-сорс сайтах например в исходнике лазаруса может быть.

[angvelem]

Не смеши, это настолько легко делается, что TShape-у просто тут делать нечего. А в API имеется функция, которая и соответственный рисунок на угол накладывает (тот полосатенький ).

[Pyro]

зато шейпам можно установить курсор
и есть вероятность сделать одно решение, которое можно применить к любому визуальному компоненту одним вызовом функции
у меня сложности возникли с тем, чтобы переопределить событие onmouse--- налету, сохранить предыдущий обработчик и вызывать его из своего
и ещё непонятка, при движении одного shape должны двигаться ещё два смежных, вобщем забросил идею

[BIG_BO]

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

[Pyro]

обязательно таскание за углы чтоли?
намного легче сделать так чтобы левая кнопка мыши например перемещала, а правая точно так же меняла размер
ПС тот исходник не поможет

[Vishenka]

ребят помогите, очень-очень срочно нужно программу в паскале
http://www.delphisources.ru/forum/at...d=132464948 9