Текущий архив: 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.018 c
