Текущий архив: 2004.02.02;
Скачать: CL | DM;

Вниз

Магнитное окно   Найти похожие ветки 

← →
Grinder ©   (2004-01-21 10:57) [0]

МАСТЕРА, может кто подскажет как сделать "магнитное" окно. Как на Winamp?

---

← →
WED ©   (2004-01-21 11:04) [1]

Порули поиском по слову "липкие".. кажись так статья называлась "липки окна"...

---

← →
TUser ©   (2004-01-21 11:06) [2]

См архив этого форума (~ 1,5 месяца назад было что-то похожее). Вобщем надо перехватывать WM_MOVE (и WM_SIZE, если магнитизм должен быть при изменении размеров). + в jedi есть компонент, который позволяет примагничивать окно к границам экрана.

---

← →
Grinder ©   (2004-01-21 11:10) [3]

Нету :( В jedi видел его. Но не люблю jedi. Он зараза раздувает размер файла неоправдано.

---

← →
Grinder ©   (2004-01-21 11:18) [4]

Нашел такое решение пока.
procedure TForm1.WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING);

var
WorkArea: TRect;
StickAt : Word;

begin
StickAt := 20;
SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
with WorkArea, Msg.WindowPos^ do
begin
// Сдвигаем границы для сравнения с левой и верхней сторонами
Right:=Right-cx;
Bottom:=Bottom-cy;
if abs(Left - x) <= StickAt then
x := Left;
if abs(Right - x) <= StickAt then
x := Right;
if abs(Top - y) <= StickAt then
y := Top;
if abs(Bottom - y) <= StickAt then
y := Bottom;
end;
inherited;

end;

---

← →
Babay ©   (2004-01-21 11:27) [5]

Можно перехватывать сообщение WM_MOVE формы и по нему позиционировать "прилипшие"

---

← →
DVM ©   (2004-01-21 12:57) [6]

> Можно перехватывать сообщение WM_MOVE формы и по нему позиционировать
> "прилипшие"

Не WM_MOVE, а WM_MOVING. Дальше все очень просто. Находим расстояние между прямоугольником окна и той прямой, к которой окно должно прилепать. Если оно меньше некоторого минимума, то двигаем окно вплотную к линии. См. описание WM_MOVING.

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.02;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.02 c