Всем салют! Делаю сохранение позиции и/или размеров окна. Возникает некоторый гемор с

Question

Всем салют! Делаю сохранение позиции и/или размеров окна. Возникает некоторый гемор с

максимизацией окна. То есть, если окно развёрнуто, я хочу при выходе сохранить его старую позицию и потом восстановить её.

Для этого я делаю так. В FormClose (в Destroy немного ломается эта схема) пишу:
WinSizeMax := WindowState = wsMaximized;
if WinSizeMax then WindowState := wsNormal; // иначе Windows и Height содержат не те значения
WinSizeX := Width;
WinSizeY := Height;

В FormShow (чтобы если чел отменит разворачивание, размер был нормальным):
Width := WinSizeX;
Height := WinSizeY;

И в FormActivate:
if WinSizeMax then
begin
WindowState := wsMaximized;
WinSizeMax := False;
end;

Почему в FormActivate? Потому что иначе окно съезжает в сторону, ибо изначально Position = poScreenCenter, а при установке положения окна (если такая опция включена), меняется на poDesigned.

Короче, это какая-то черезжопная система. Как минимум потому, что окно сначала появляется неразвёрнутое, а потом разворачивается (и это заметно). Благо при закрытии сворачивания до обычного размера визуально не заметно (хотя, может, это только у меня так).

Как это можно реализовать нормально?

#lazarus #programming #russian

0

12.09.2024

4 ответов

2 просмотра

Александр (Rouse_) Багель

Да в принципе так и надо, только работай через BoundsRect

0

2 месяца назад

Eugene Krasnikov (ᴊɪɴ x) Автор вопроса

Александр (Rouse_) Багель
Да в принципе так и надо, только работай через Bou...

Почему через него?

0

2 месяца назад

Александр (Rouse_) Багель

Eugene Krasnikov (ᴊɪɴ x)
Почему через него?

Чтобы не деркать два раза изменение размеров и соответствующий вызов SetWindowPos

0

2 месяца назад

Fasday · Accepted Answer

Fasday

Может перехватить виндовые сообщения? и записывать последние данные о размере окна? Например procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;

0

2 месяца назад

169 похожих чатов

Всем салют! Делаю сохранение позиции и/или размеров окна. Возникает некоторый гемор с

4 ответов

Похожие вопросы