позицирование формы (с изменяемыми размерами)

[sunjob]

день добрей!

имеется главная форма, размер которой может меняться. надо что-бы форма "автоматом" центрировалась посреди экрана.

проперть отрабатывает только в момент запуска

Код: Выделить всё

form_main.Position:=poScreenCenter;

на все остальные события не реагирует

Код: Выделить всё

OnPaint()
OnResize()
OnShow()


пробовал "математику"

Код: Выделить всё

form_main.Top := (Screen.WorkAreaRect.Height - form_main.Height) div 2;
form_main.Left:= (Screen.WorkAreaRect.Width  - form_main.Width ) div 2;

form_main.Top := (Screen.DesktopRect.Height - form_main.Height) div 2;
form_main.Left:= (Screen.DesktopRect.Width  - form_main.Width ) div 2;

// если будет находиться на 2м мониторе, то при перерисовки перенесется на 1й
form_main.Top := (Screen.Monitors[0].WorkareaRect.Height - form_main.Height) div 2;
form_main.Left:= (Screen.Monitors[0].WorkareaRect.Width  - form_main.Width ) div 2;

form_main.Top := (Screen.Height - form_main.Height) div 2;
form_main.Left:= (Screen.Width  - form_main.Width ) div 2;

// как-то корявинько
form_main.Top := (Screen.MonitorFromWindow().WorkareaRect.Height - form_main.Height) div 2;
form_main.Left:= (Screen.MonitorFromWindow().WorkareaRect.Width  - form_main.Width ) div 2;


если юзать на основном мониторе, то проблем почти нет (не помню уже, что-то по мелочи бячит, но это по мелочи)
главное неудобство, что форму можно перенести на другой монитор и тогда на прорисовке она перенесется обратно на основной монитор

можно попробовать определить "текущий" монитор и использовать

Код: Выделить всё

Screen.Monitors[]

но пока тоже не расковырял, как это сделать.

какие будут идеи?

спасибо

[Снег Север]

Screen.Monitors[I].WorkareaRect - даёт прямоугольник нужного монитора. С ним и работайте.

[sunjob]

спасибо, конечно, но вы как обычно ни чего не поняли

// если будет находиться на 2м мониторе, то при перерисовки перенесется на 1й
form_main.Top := (Screen.Monitors[0].WorkareaRect.Height - form_main.Height) div 2;
form_main.Left:= (Screen.Monitors[0].WorkareaRect.Width - form_main.Width ) div 2;

проблема в идентификации индекса активного монитора.

[Снег Север]

sunjob, Forms.TMonitor.MonitorNum - индекс монитора на котором показывается форма.

[sunjob]

во-во-во!!! золотые слова !!! щас попробуем-с...

[Alexx2000]

Попробуйте MoveToDefaultPosition (если Position:= poScreenCenter, то этот метод должен поместить окно в центр).

[sunjob]

спасибо за еще один пендиль! кланяюсь!!!

Forms.TMonitor.MonitorNum

как-то ... все так-же не катит, или я что не так не понял (скатывается на дефолтный монитор, т.е. непонятно, что делать?! если форма перенесена на 2й монитор то после "перерасчета" переносится обратно на 1й монитор)

Код: Выделить всё

i_mon := form_main.Monitor.MonitorNum;
form_main.Top := (Screen.Monitors[i_mon].WorkareaRect.Height - form_main.Height) div 2;
form_main.Left:= (Screen.Monitors[i_mon].WorkareaRect.Width  - form_main.Width ) div 2;


MoveToDefaultPosition

это отрабатывает так как надо! но... со второго раза (на первый раз перерисовывается со сдвигом, второй раз в центре, надо разбираться)

[Снег Север]

sunjob попробйте еще у формы устанавливать свойство SetWindowToMonitor.

[sunjob]

SetWindowToMonitor - это, видимо, из дельфи?! в fpc & lazarus нет упоминания в коде/исходниках (не нашел)

[Снег Север]

SetWindowToMonitor - это, видимо, из дельфи?!

Да, не знал. что в лазаре его нет. Но в лазаре можно использовать getmonitor и MakeFullyVisible с указанием монитора.

[Vadim]

Да, не знал. что в лазаре его нет.

Видимо не знают, как сделать кроссплатформенно...

[sunjob]

спасибо за подсказку! в ближайшее время, как вернусь на лазаря, попробую (сейчас другие задачи)
если у кого еще будут мысли, пишите, высказывайтесь, постараюсь "отработать" все версии